Mercurial > emacs
annotate lib-src/etags.c @ 45925:5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
which are almost always unnamed. etags.el looks for an explicit
tag name, then for an implicit one. See make_tag for details.
The change is both forwards and backwards compatible.
(make_tag): New function (was the disabled function new_pfnote).
(make_C_tag): Use it.
author | Francesco Potortì <pot@gnu.org> |
---|---|
date | Thu, 20 Jun 2002 11:48:31 +0000 |
parents | 1c3f7d78e90a |
children | 5425e4687a4e |
rev | line source |
---|---|
35653 | 1 /* Tags file maker to go with GNU Emacs -*- coding: latin-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
|
2 Copyright (C) 1984, 1987-1989, 1993-1995, 1998-2001, 2002 |
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, |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
19 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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. |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
35 * |
240 | 36 */ |
10761
7aa80669e697
* etags.c (C_entries): Bug corrected in xrealloc of token_str.
Francesco Potortì <pot@gnu.org>
parents:
10754
diff
changeset
|
37 |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
38 char pot_etags_version[] = "@(#) pot revision number is 16.29"; |
10801
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
39 |
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
40 #define TRUE 1 |
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
41 #define FALSE 0 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
42 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
43 #ifdef DEBUG |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
44 # undef DEBUG |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
45 # define DEBUG TRUE |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
46 #else |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
47 # define DEBUG FALSE |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
48 # 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
|
49 #endif |
10754
cd1c0b5e8634
* etags.c (C_entries): Initialise the new members of TOKEN.
Francesco Potortì <pot@gnu.org>
parents:
10623
diff
changeset
|
50 |
26083
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
51 #ifdef HAVE_CONFIG_H |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
52 # include <config.h> |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
53 /* 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
|
54 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
|
55 # 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
|
56 # 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
|
57 # define LONG_OPTIONS /* accept long options */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
58 # ifndef PTR /* for Xemacs */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
59 # define PTR void * |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
60 # endif |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
61 # ifndef __P /* for Xemacs */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
62 # define __P(args) args |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
63 # endif |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
64 #else |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
65 # if defined(__STDC__) && (__STDC__ || defined(__SUNPRO_C)) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
66 # define __P(args) args /* use prototypes */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
67 # define PTR void * /* for generic pointers */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
68 # else |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
69 # define __P(args) () /* no prototypes */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
70 # define const /* remove const for old compilers' sake */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
71 # 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
|
72 # endif |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
73 #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
|
74 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
75 #ifndef _GNU_SOURCE |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
76 # 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
|
77 #endif |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
78 |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
79 /* WIN32_NATIVE is for Xemacs. |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
80 MSDOS, WINDOWSNT, DOS_NT are for Emacs. */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
81 #ifdef WIN32_NATIVE |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
82 # undef MSDOS |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
83 # undef WINDOWSNT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
84 # define WINDOWSNT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
85 #endif /* WIN32_NATIVE */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
86 |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
87 #ifdef MSDOS |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
88 # undef MSDOS |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
89 # 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
|
90 # include <fcntl.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
91 # 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
|
92 # 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
|
93 # 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
|
94 # 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
|
95 # 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
|
96 # endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
97 #else |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
98 # define MSDOS FALSE |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
99 #endif /* MSDOS */ |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
100 |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
101 #ifdef WINDOWSNT |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
102 # include <stdlib.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
103 # include <fcntl.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
104 # include <string.h> |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
105 # include <direct.h> |
14982
b470e33ce4a9
[WINDOWSNT]: Include io.h.
Richard M. Stallman <rms@gnu.org>
parents:
14924
diff
changeset
|
106 # 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
|
107 # define MAXPATHLEN _MAX_PATH |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
108 # undef HAVE_NTGUI |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
109 # undef DOS_NT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
110 # 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
|
111 # 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
|
112 # 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
|
113 # endif /* undef HAVE_GETCWD */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
114 #else /* !WINDOWSNT */ |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
115 # ifdef STDC_HEADERS |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
116 # include <stdlib.h> |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
117 # include <string.h> |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
118 # else |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
119 extern char *getenv (); |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
120 # endif |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
121 #endif /* !WINDOWSNT */ |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
122 |
26262
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 #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
|
124 # 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
|
125 #else |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
126 # 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
|
127 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
|
128 # 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
|
129 #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
|
130 |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
131 #include <stdio.h> |
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
132 #include <ctype.h> |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
133 #include <errno.h> |
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
134 #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
|
135 extern int errno; |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
136 #endif |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
137 #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
|
138 #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
|
139 |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
140 #include <assert.h> |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
141 #ifdef NDEBUG |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
142 # 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
|
143 # define assert(x) ((void) 0) |
35741
e0acf4b43873
(assert) [__MINGW32__]: Redefine assert to work around a
Andrew Innes <andrewi@gnu.org>
parents:
35740
diff
changeset
|
144 #endif |
e0acf4b43873
(assert) [__MINGW32__]: Redefine assert to work around a
Andrew Innes <andrewi@gnu.org>
parents:
35740
diff
changeset
|
145 |
4804
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
146 #if !defined (S_ISREG) && defined (S_IFREG) |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
147 # 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
|
148 #endif |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
149 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
150 #ifdef LONG_OPTIONS |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
151 # include <getopt.h> |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
152 #else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
153 # 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
|
154 extern char *optarg; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
155 extern int optind, opterr; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
156 #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
|
157 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
158 #ifdef ETAGS_REGEXPS |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
159 # 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
|
160 # 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
|
161 !!! NOTICE !!! |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
162 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
|
163 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
|
164 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
|
165 # endif |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
166 # endif |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
167 # 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
|
168 #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
|
169 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
170 /* 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
|
171 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
|
172 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
|
173 #ifdef CTAGS |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
174 # undef CTAGS |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
175 # define CTAGS TRUE |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
176 #else |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
177 # define CTAGS FALSE |
240 | 178 #endif |
179 | |
180 /* Exit codes for success and failure. */ | |
181 #ifdef VMS | |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
182 # define GOOD 1 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
183 # define BAD 0 |
240 | 184 #else |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
185 # define GOOD 0 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
186 # define BAD 1 |
240 | 187 #endif |
188 | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
189 #define streq(s,t) (assert((s)!=NULL || (t)!=NULL), !strcmp (s, t)) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
190 #define strneq(s,t,n) (assert((s)!=NULL || (t)!=NULL), !strncmp (s, t, n)) |
240 | 191 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
192 #define CHARS 256 /* 2^sizeof(char) */ |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
193 #define CHAR(x) ((unsigned int)(x) & (CHARS - 1)) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
194 #define iswhite(c) (_wht[CHAR(c)]) /* c is white */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
195 #define notinname(c) (_nin[CHAR(c)]) /* c is not in a name */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
196 #define begtoken(c) (_btk[CHAR(c)]) /* c can start token */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
197 #define intoken(c) (_itk[CHAR(c)]) /* c can be in token */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
198 #define endtoken(c) (_etk[CHAR(c)]) /* c ends tokens */ |
240 | 199 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
200 #define ISALNUM(c) isalnum (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
201 #define ISALPHA(c) isalpha (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
202 #define ISDIGIT(c) isdigit (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
203 #define ISLOWER(c) islower (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
204 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
205 #define lowcase(c) tolower (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
206 #define upcase(c) toupper (CHAR(c)) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
207 |
12344
7e7941d8cceb
* etags.c (find_entries): rewind before rereading the input file.
Francesco Potortì <pot@gnu.org>
parents:
12242
diff
changeset
|
208 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
209 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
210 * 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
|
211 * |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
212 * 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
|
213 * 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
|
214 */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
215 #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
|
216 # 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
|
217 # 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
|
218 (n) * sizeof (Type))) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
219 # 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
|
220 (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
|
221 #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
|
222 # 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
|
223 # 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
|
224 (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
|
225 #endif |
240 | 226 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
227 #define bool int |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
228 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
229 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
|
230 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
231 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
|
232 { |
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
|
233 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
|
234 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
|
235 } 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
|
236 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
237 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
|
238 { |
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
|
239 char *name; /* language 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
|
240 bool metasource; /* source used to generate other sources */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
241 Lang_function *function; /* parse 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
|
242 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
|
243 char **suffixes; /* name suffixes 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
|
244 char **interpreters; /* interpreters for this language */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
245 } language; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
246 |
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
|
247 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
|
248 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
249 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
|
250 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
|
251 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
|
252 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
|
253 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
|
254 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
|
255 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
|
256 bool usecharno; /* etags tags shall contain char 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
|
257 } 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
|
258 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
259 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
|
260 { /* 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
|
261 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
|
262 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
|
263 char *name; /* tag 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 *pat; /* search pattern */ |
4702b23921b4
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 bool valid; /* write this tag on the tag 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 bool is_func; /* function tag: use pattern in 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
|
267 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
|
268 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
|
269 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
|
270 } node; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
271 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
272 /* |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
273 * 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
|
274 * `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
|
275 * 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
|
276 * 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
|
277 * 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
|
278 */ |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
279 typedef struct |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
280 { |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
281 long size; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
282 int len; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
283 char *buffer; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
284 } linebuffer; |
240 | 285 |
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
|
286 /* 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
|
287 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
|
288 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
289 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
|
290 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
|
291 at_regexp, /* a regular expression */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
292 at_filename, /* a file name */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
293 at_stdin /* read from stdin here */ |
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
|
294 } 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
|
295 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
|
296 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
|
297 } 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
|
298 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
299 #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
|
300 /* Structure defining a regular expression. */ |
4702b23921b4
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 pattern |
4702b23921b4
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 struct pattern *p_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
|
304 language *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
|
305 char *regex; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
306 struct re_pattern_buffer *pat; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
307 struct re_registers regs; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
308 char *name_pattern; |
4702b23921b4
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 bool error_signaled; |
4702b23921b4
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 bool ignore_case; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
311 bool multi_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
|
312 } pattern; |
4702b23921b4
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 #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
|
314 |
4702b23921b4
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 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
316 /* 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
|
317 Lang_function Ada_funcs; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
318 so let's write it this way */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
319 static void Ada_funcs __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
320 static void Asm_labels __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
321 static void C_entries __P((int c_ext, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
322 static void default_C_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
323 static void plain_C_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
324 static void Cjava_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
325 static void Cobol_paragraphs __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
326 static void Cplusplus_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
327 static void Cstar_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
328 static void Erlang_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
329 static void Fortran_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
330 static void Yacc_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
331 static void Lisp_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
332 static void Makefile_targets __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
333 static void Pascal_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
334 static void Perl_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
335 static void PHP_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
336 static void Postscript_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
337 static void Prolog_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
338 static void Python_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
339 static void Scheme_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
340 static void TeX_commands __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
341 static void Texinfo_nodes __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
342 static void just_read_file __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
343 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
344 static void print_language_names __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
345 static void print_version __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
346 static void print_help __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
347 int main __P((int, char **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
348 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
349 static compressor *get_compressor_from_suffix __P((char *, char **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
350 static language *get_language_from_langname __P((const char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
351 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
|
352 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
|
353 static void readline __P((linebuffer *, FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
354 static long readline_internal __P((linebuffer *, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
355 static bool nocase_tail __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
356 static char *get_tag __P((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
|
357 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
358 #ifdef ETAGS_REGEXPS |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
359 static void analyse_regex __P((char *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
360 static void free_patterns __P((void)); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
361 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
|
362 #endif /* ETAGS_REGEXPS */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
363 static void error __P((const char *, const char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
364 static void suggest_asking_for_help __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
365 void fatal __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
366 static void pfatal __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
367 static void add_node __P((node *, node **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
368 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
369 static void init __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
370 static void initbuffer __P((linebuffer *)); |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
371 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
|
372 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
|
373 static void find_entries __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
374 static void free_tree __P((node *)); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
375 static void free_fdesc __P((fdesc *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
376 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
|
377 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
|
378 static void invalidate_nodes __P((fdesc *, node **)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
379 static void put_entries __P((node *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
380 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
381 static char *concat __P((char *, char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
382 static char *skip_spaces __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
383 static char *skip_non_spaces __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
384 static char *savenstr __P((char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
385 static char *savestr __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
386 static char *etags_strchr __P((const char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
387 static char *etags_strrchr __P((const char *, int)); |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
388 static bool strcaseeq __P((const char *, const char *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
389 static char *etags_getcwd __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
390 static char *relative_filename __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
391 static char *absolute_filename __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
392 static char *absolute_dirname __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
393 static bool filename_is_absolute __P((char *f)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
394 static void canonicalize_filename __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
395 static void linebuffer_setlen __P((linebuffer *, int)); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
396 static PTR xmalloc __P((unsigned int)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
397 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
|
398 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
399 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
400 static char searchar = '/'; /* use /.../ searches */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
401 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
402 static char *tagfile; /* output file */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
403 static char *progname; /* name this program was invoked with */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
404 static char *cwd; /* current working directory */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
405 static char *tagfiledir; /* directory of tagfile */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
406 static FILE *tagf; /* ioptr for tags file */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
407 |
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
|
408 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
|
409 static fdesc *curfdp; /* current file description */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
410 static int lineno; /* line number of current line */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
411 static long charno; /* current character number */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
412 static long linecharno; /* charno of start of current line */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
413 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
|
414 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
415 static const int invalidcharno = -1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
416 |
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
|
417 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
|
418 static node *last_node; /* the last node created */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
419 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
420 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
|
421 static linebuffer filebuf; /* a buffer containing the whole file */ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
422 |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
423 /* boolean "functions" (see init) */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
424 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
|
425 static char |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
426 /* white chars */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
427 *white = " \f\t\n\r\v", |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
428 /* 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
|
429 *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
|
430 /* 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
|
431 *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
|
432 /* token starting chars */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
433 *begtk = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz$~@", |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
434 /* valid in-token chars */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
435 *midtk = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz$0123456789"; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
436 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
437 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
|
438 /* 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
|
439 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
|
440 static bool typedefs_or_cplusplus; /* -T: create tags for C typedefs, level */ |
240 | 441 /* 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
|
442 /* member functions. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
443 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
|
444 /* constants and variables. */ |
240 | 445 /* -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
|
446 static bool globals; /* create tags for global variables */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
447 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
|
448 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
|
449 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
|
450 static bool update; /* -u: update tags */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
451 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
|
452 static bool no_warnings; /* -w: suppress warnings */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
453 static bool cxref_style; /* -x: create cxref style output */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
454 static bool cplusplus; /* .[hc] means C++, not C */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
455 static bool noindentypedefs; /* -I: ignore indentation in C */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
456 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
|
457 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
458 #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
|
459 static bool parsing_stdin; /* --parse-stdin used */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
460 |
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
|
461 #ifdef ETAGS_REGEXPS |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
462 static pattern *p_head; /* list of all regexps */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
463 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
|
464 #else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
465 # 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
|
466 #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
|
467 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
468 #ifdef LONG_OPTIONS |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
469 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
|
470 { |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
471 { "packages-only", no_argument, &packages_only, TRUE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
472 { "c++", no_argument, NULL, 'C' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
473 { "declarations", no_argument, &declarations, TRUE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
474 { "no-line-directive", no_argument, &no_line_directive, TRUE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
475 { "help", no_argument, NULL, 'h' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
476 { "help", no_argument, NULL, 'H' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
477 { "ignore-indentation", no_argument, NULL, 'I' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
478 { "language", required_argument, NULL, 'l' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
479 { "members", no_argument, &members, TRUE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
480 { "no-members", no_argument, &members, FALSE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
481 { "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
|
482 #ifdef ETAGS_REGEXPS |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
483 { "regex", required_argument, NULL, 'r' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
484 { "no-regex", no_argument, NULL, 'R' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
485 { "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
|
486 #endif /* ETAGS_REGEXPS */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
487 { "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
|
488 { "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
|
489 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
490 #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
|
491 { "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
|
492 { "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
|
493 { "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
|
494 { "globals", no_argument, &globals, TRUE }, |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
495 { "typedefs", no_argument, NULL, 't' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
496 { "typedefs-and-c++", no_argument, NULL, 'T' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
497 { "update", no_argument, NULL, 'u' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
498 { "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
|
499 { "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
|
500 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
501 #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
|
502 { "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
|
503 { "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
|
504 { "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
|
505 { "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
|
506 #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
|
507 { NULL } |
621 | 508 }; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
509 #endif /* LONG_OPTIONS */ |
621 | 510 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
511 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
|
512 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
513 { "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
|
514 { "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
|
515 { "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
|
516 { "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
|
517 { "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
|
518 { NULL } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
519 }; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
520 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
521 /* |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
522 * Language stuff. |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
523 */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
524 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
525 /* Ada code */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
526 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
|
527 { "ads", "adb", "ada", NULL }; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
528 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
529 /* Assembly code */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
530 static char *Asm_suffixes [] = |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
531 { "a", /* Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
532 "asm", /* Microcontroller assembly */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
533 "def", /* BSO/Tasking definition includes */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
534 "inc", /* Microcontroller include files */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
535 "ins", /* Microcontroller include files */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
536 "s", "sa", /* Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
537 "S", /* cpp-processed Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
538 "src", /* BSO/Tasking C compiler output */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
539 NULL |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
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 /* Note that .c and .h can be considered C++, if the --c++ flag was |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
543 given, or if the `class' keyowrd is met inside the file. |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
544 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
|
545 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
|
546 { "c", "h", NULL }; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
547 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
548 static char *Cplusplus_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
549 { "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
|
550 "M", /* Objective C++ */ |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
551 "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
|
552 NULL }; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
553 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
554 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
|
555 { "java", NULL }; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
556 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
557 static char *Cobol_suffixes [] = |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
558 { "COB", "cob", NULL }; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
559 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
560 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
|
561 { "cs", "hs", NULL }; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
562 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
563 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
|
564 { "erl", "hrl", NULL }; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
565 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
566 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
|
567 { "F", "f", "f90", "for", NULL }; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
568 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
569 static char *Lisp_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
570 { "cl", "clisp", "el", "l", "lisp", "LSP", "lsp", "ml", NULL }; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
571 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
572 static char *Makefile_filenames [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
573 { "Makefile", "makefile", "GNUMakefile", "Makefile.in", "Makefile.am", NULL}; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
574 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
575 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
|
576 { "p", "pas", NULL }; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
577 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
578 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
|
579 { "pl", "pm", NULL }; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
580 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
581 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
|
582 { "perl", "@PERL@", NULL }; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
583 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
584 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
|
585 { "php", "php3", "php4", NULL }; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
586 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
587 static char *plain_C_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
588 { "lm", /* Objective lex file */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
589 "m", /* Objective C file */ |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
590 "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
|
591 NULL }; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
592 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
593 static char *Postscript_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
|
594 { "ps", "psw", NULL }; /* .psw is for PSWrap */ |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
595 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
596 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
|
597 { "prolog", NULL }; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
598 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
599 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
|
600 { "py", 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
|
601 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
602 /* 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
|
603 static char *Scheme_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
604 { "oak", "sch", "scheme", "SCM", "scm", "SM", "sm", "ss", "t", NULL }; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
605 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
606 static char *TeX_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
607 { "bib", "clo", "cls", "ltx", "sty", "TeX", "tex", NULL }; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
608 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
609 static char *Texinfo_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
610 { "texi", "texinfo", "txi", NULL }; |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
611 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
612 static char *Yacc_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
613 { "y", "y++", "ym", "yxx", "yy", NULL }; /* .ym is Objective yacc file */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
614 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
615 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
616 * 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
|
617 * |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
618 * 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
|
619 * 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
|
620 */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
621 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
622 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
|
623 { |
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
|
624 { "ada", FALSE, Ada_funcs, NULL, Ada_suffixes, 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
|
625 { "asm", FALSE, Asm_labels, NULL, Asm_suffixes, 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
|
626 { "c", FALSE, default_C_entries, NULL, default_C_suffixes, 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
|
627 { "c++", FALSE, Cplusplus_entries, NULL, Cplusplus_suffixes, 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
|
628 { "c*", FALSE, Cstar_entries, NULL, Cstar_suffixes, 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
|
629 { "cobol", FALSE, Cobol_paragraphs, NULL, Cobol_suffixes, 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
|
630 { "erlang", FALSE, Erlang_functions, NULL, Erlang_suffixes, 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
|
631 { "fortran", FALSE, Fortran_functions, NULL, Fortran_suffixes, 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
|
632 { "java", FALSE, Cjava_entries, NULL, Cjava_suffixes, 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
|
633 { "lisp", FALSE, Lisp_functions, NULL, Lisp_suffixes, 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
|
634 { "makefile", FALSE, Makefile_targets, Makefile_filenames, NULL, 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
|
635 { "pascal", FALSE, Pascal_functions, NULL, Pascal_suffixes, 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
|
636 { "perl", FALSE, Perl_functions,NULL, Perl_suffixes, Perl_interpreters }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
637 { "php", FALSE, PHP_functions, NULL, PHP_suffixes, 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
|
638 { "postscript",FALSE, Postscript_functions,NULL, Postscript_suffixes, 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
|
639 { "proc", FALSE, plain_C_entries, NULL, plain_C_suffixes, 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
|
640 { "prolog", FALSE, Prolog_functions, NULL, Prolog_suffixes, 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
|
641 { "python", FALSE, Python_functions, NULL, Python_suffixes, 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
|
642 { "scheme", FALSE, Scheme_functions, NULL, Scheme_suffixes, 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
|
643 { "tex", FALSE, TeX_commands, NULL, TeX_suffixes, 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
|
644 { "texinfo", FALSE, Texinfo_nodes, NULL, Texinfo_suffixes, 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
|
645 { "yacc", TRUE, Yacc_entries, NULL, Yacc_suffixes, 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
|
646 { "auto", FALSE, NULL }, /* default guessing scheme */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
647 { "none", FALSE, just_read_file }, /* regexp matching only */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
648 { NULL, FALSE, 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
|
649 }; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
650 |
240 | 651 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
652 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
|
653 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
|
654 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
655 language *lang; |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
656 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
|
657 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
658 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
|
659 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
|
660 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
|
661 { |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
662 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
|
663 if (lang->filenames != NULL) |
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
664 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
|
665 printf (" %s", *name); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
666 if (lang->suffixes != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
667 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
|
668 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
|
669 puts (""); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
670 } |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
671 puts ("Where `auto' means use default language for files based on file\n\ |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
672 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
|
673 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
|
674 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
|
675 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
|
676 Fortran is tried first; if no tags are found, C is tried next.\n\ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
677 When parsing any C file, a \"class\" keyword switches to C++.\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
|
678 Compressed files are supported using gzip and bzip2."); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
679 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
680 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
681 #ifndef EMACS_NAME |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
682 # 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
|
683 #endif |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
684 #ifndef VERSION |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
685 # define VERSION "version" |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
686 #endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
687 static void |
621 | 688 print_version () |
689 { | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
690 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
|
691 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
|
692 puts ("This program is distributed under the same terms as Emacs"); |
621 | 693 |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
694 exit (GOOD); |
621 | 695 } |
696 | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
697 static void |
621 | 698 print_help () |
699 { | |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
700 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
|
701 \n\ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
702 These are the options accepted by %s.\n", progname, progname); |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
703 #ifdef LONG_OPTIONS |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
704 puts ("You may use unambiguous abbreviations for the long option names."); |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
705 #else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
706 puts ("Long option names do not work with this executable, as it is not\n\ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
707 linked with GNU getopt."); |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
708 #endif /* LONG_OPTIONS */ |
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
|
709 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
|
710 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
|
711 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
|
712 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
713 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
|
714 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
|
715 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
|
716 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
717 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
|
718 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
|
719 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
720 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
721 puts ("-B, --backward-search\n\ |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
722 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
|
723 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
|
724 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
725 /* 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
|
726 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
|
727 experimentation. In principle, we could want to tag as C++ even |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
728 before any "class" keyword. |
4126
9a906e5f9b28
* etags.c (print_help): Break up the very long strings containing
Jim Blandy <jimb@redhat.com>
parents:
4052
diff
changeset
|
729 puts ("-C, --c++\n\ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
730 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
|
731 */ |
621 | 732 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
733 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
|
734 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
|
735 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
|
736 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
|
737 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
|
738 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
|
739 ("\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
|
740 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
741 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
742 puts ("-d, --defines\n\ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
743 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
|
744 else |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
745 puts ("-D, --no-defines\n\ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
746 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
|
747 This makes the tags file smaller."); |
621 | 748 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
749 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
|
750 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
|
751 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
|
752 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
|
753 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
|
754 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
755 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
|
756 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
|
757 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
|
758 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
759 if (CTAGS) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
760 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
|
761 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
|
762 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
763 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
|
764 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
|
765 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
|
766 puts ("--members\n\ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
767 Create tag entries for member variables in C and derived languages."); |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
768 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
769 #ifdef ETAGS_REGEXPS |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
770 puts ("-r REGEXP, --regex=REGEXP or --regex=@regexfile\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
771 Make a tag for each line matching the regular expression pattern\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
772 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
|
773 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
|
774 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
|
775 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
|
776 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
|
777 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
|
778 --regex=\"/proc[ \\t]+\\([^ \\t]+\\)/\\1/.\".\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
779 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
|
780 `m' means to allow multi-line matches, `s' implies `m' and\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
781 causes dot to match the newline character as well."); |
10047
9b284d98b102
* etags.c (print_help): print --regex usage for ctags also.
Francesco Potortì <pot@gnu.org>
parents:
9976
diff
changeset
|
782 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
|
783 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
|
784 #endif /* ETAGS_REGEXPS */ |
10449
2266157d9bcc
* etags.c (longopts, print_help, main): Use -I as abbreviation
Francesco Potortì <pot@gnu.org>
parents:
10404
diff
changeset
|
785 puts ("-I, --ignore-indentation\n\ |
621 | 786 Don't rely on indentation quite as much as normal. Currently,\n\ |
787 this means not to assume that a closing brace in the first\n\ | |
788 column is the final brace of a function or structure\n\ | |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
789 definition in C and C++."); |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
790 puts ("-o FILE, --output=FILE\n\ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
791 Write the tags to FILE."); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
792 puts ("--parse-stdin=NAME\n\ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
793 Read from standard input and record tags as belonging to file NAME."); |
621 | 794 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
795 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
796 { |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
797 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
|
798 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
|
799 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
|
800 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
|
801 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
|
802 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
803 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
804 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
|
805 puts ("-u, --update\n\ |
621 | 806 Update the tag entries for the given files, leaving tag\n\ |
807 entries for other files in place. Currently, this is\n\ | |
808 implemented by deleting the existing entries for the given\n\ | |
809 files and then rewriting the new entries at the end of the\n\ | |
810 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
|
811 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
|
812 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
813 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
|
814 { |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
815 puts ("-v, --vgrind\n\ |
621 | 816 Generates an index of items intended for human consumption,\n\ |
817 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
|
818 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
|
819 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
|
820 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
|
821 files."); |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
822 puts ("-x, --cxref\n\ |
621 | 823 Like --vgrind, but in the style of cxref, rather than vgrind.\n\ |
824 The output uses line numbers instead of page numbers, but\n\ | |
825 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
|
826 which you like."); |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
827 } |
621 | 828 |
829 puts ("-V, --version\n\ | |
830 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
|
831 -h, --help\n\ |
621 | 832 Print this help message."); |
833 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
834 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
|
835 |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
836 puts (""); |
26323
98d99afb5ffb
* etags.c (print_help): Change email address to send bugs to.
Gerd Moellmann <gerd@gnu.org>
parents:
26262
diff
changeset
|
837 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
|
838 |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
839 exit (GOOD); |
621 | 840 } |
841 | |
842 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
843 #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
|
844 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
845 #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
|
846 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
847 /* 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
|
848 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
|
849 #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
|
850 typedef struct { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
851 short curlen; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
852 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
|
853 } vspec; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
854 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
855 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
856 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
|
857 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
|
858 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
|
859 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
|
860 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
|
861 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
|
862 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
|
863 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
|
864 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
|
865 |
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
|
866 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
|
867 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
|
868 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
|
869 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
|
870 */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
871 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
872 #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
|
873 #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
|
874 #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
|
875 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
|
876 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
|
877 vspec *out; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
878 char *in; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
879 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
880 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
|
881 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
|
882 static struct dsc$descriptor_s i; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
883 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
|
884 long status; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
885 short retval; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
886 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
887 if (pass1) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
888 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
889 pass1 = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
890 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
|
891 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
|
892 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
|
893 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
|
894 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
|
895 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
|
896 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
|
897 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
|
898 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
899 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
|
900 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
901 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
|
902 return 1; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
903 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
904 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
|
905 retval = 0; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
906 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
907 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
908 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
|
909 retval = -1; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
910 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
911 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
|
912 pass1 = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
913 return retval; |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
914 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
915 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
916 /* |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
917 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
|
918 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
|
919 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
920 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
|
921 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
|
922 char *arg; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
923 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
|
924 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
925 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
|
926 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
927 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
|
928 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
929 case 1: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
930 *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
|
931 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
|
932 case 0: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
933 *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
|
934 return NULL; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
935 default: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
936 *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
|
937 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
|
938 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
939 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
940 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
941 #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
|
942 system (cmd) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
943 char *cmd; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
944 { |
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
|
945 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
|
946 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
947 #endif |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
948 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
949 #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
|
950 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
|
951 char *s; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
952 { |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
953 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
|
954 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
955 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
|
956 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
|
957 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
958 *s = EOS; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
959 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
960 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
961 else |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
962 *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
|
963 return start; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
964 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
965 #endif /* VMS */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
966 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
967 |
15683 | 968 int |
240 | 969 main (argc, argv) |
970 int argc; | |
971 char *argv[]; | |
972 { | |
973 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
|
974 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
|
975 char **included_files; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
976 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
|
977 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
|
978 linebuffer filename_lb; |
240 | 979 #ifdef VMS |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
980 bool got_err; |
240 | 981 #endif |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
982 char *optstring; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
983 int opt; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
984 |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
985 |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
986 #ifdef DOS_NT |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
987 _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
|
988 #endif /* DOS_NT */ |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
989 |
240 | 990 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
|
991 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
|
992 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
|
993 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
|
994 file_count = 0; |
240 | 995 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
996 /* 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
|
997 is small. */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
998 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
|
999 |
240 | 1000 /* |
1001 * 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
|
1002 * 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
|
1003 * global variables. |
240 | 1004 */ |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1005 if (!CTAGS) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1006 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1007 typedefs = typedefs_or_cplusplus = constantypedefs = TRUE; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1008 globals = TRUE; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1009 } |
240 | 1010 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1011 optstring = "-"; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1012 #ifdef ETAGS_REGEXPS |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1013 optstring = "-r:Rc:"; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1014 #endif /* ETAGS_REGEXPS */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1015 #ifndef LONG_OPTIONS |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1016 optstring = optstring + 1; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1017 #endif /* LONG_OPTIONS */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1018 optstring = concat (optstring, |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1019 "Cf:Il:o:SVhH", |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1020 (CTAGS) ? "BxdtTuvw" : "aDi:"); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1021 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1022 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
|
1023 switch (opt) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1024 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1025 case 0: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1026 /* 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
|
1027 long-named option. We should do nothing. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1028 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1029 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1030 case 1: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1031 /* 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
|
1032 argbuffer[current_arg].arg_type = at_filename; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1033 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1034 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1035 ++file_count; |
621 | 1036 break; |
1037 | |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1038 case STDIN: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1039 /* 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
|
1040 argbuffer[current_arg].arg_type = at_stdin; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1041 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1042 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1043 ++file_count; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1044 if (parsing_stdin) |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1045 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
|
1046 parsing_stdin = TRUE; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1047 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1048 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1049 /* Common options. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1050 case 'C': cplusplus = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1051 case 'f': /* for compatibility with old makefiles */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1052 case 'o': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1053 if (tagfile) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1054 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1055 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
|
1056 suggest_asking_for_help (); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1057 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1058 tagfile = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1059 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1060 case 'I': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1061 case 'S': /* for backward compatibility */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1062 noindentypedefs = TRUE; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1063 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1064 case 'l': |
240 | 1065 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1066 language *lang = get_language_from_langname (optarg); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1067 if (lang != NULL) |
621 | 1068 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1069 argbuffer[current_arg].lang = lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1070 argbuffer[current_arg].arg_type = at_language; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1071 ++current_arg; |
240 | 1072 } |
1073 } | |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1074 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1075 case 'c': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1076 /* 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
|
1077 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
|
1078 /* FALLTHRU */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1079 case 'r': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1080 argbuffer[current_arg].arg_type = at_regexp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1081 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1082 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1083 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1084 case 'R': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1085 argbuffer[current_arg].arg_type = at_regexp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1086 argbuffer[current_arg].what = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1087 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1088 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1089 case 'V': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1090 print_version (); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1091 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1092 case 'h': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1093 case 'H': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1094 print_help (); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1095 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1096 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1097 /* Etags options */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1098 case 'a': append_to_tagfile = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1099 case 'D': constantypedefs = FALSE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1100 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
|
1101 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1102 /* Ctags options. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1103 case 'B': searchar = '?'; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1104 case 'd': constantypedefs = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1105 case 't': typedefs = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1106 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
|
1107 case 'u': update = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1108 case 'v': vgrind_style = TRUE; /*FALLTHRU*/ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1109 case 'x': cxref_style = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1110 case 'w': no_warnings = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1111 default: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1112 suggest_asking_for_help (); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1113 } |
240 | 1114 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1115 for (; optind < argc; ++optind) |
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 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
|
1118 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
|
1119 ++current_arg; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1120 ++file_count; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1121 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1122 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1123 if (nincluded_files == 0 && file_count == 0) |
240 | 1124 { |
26507
aabdfbf65c68
1999-11-19 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26340
diff
changeset
|
1125 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
|
1126 suggest_asking_for_help (); |
240 | 1127 } |
1128 | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1129 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
|
1130 tagfile = CTAGS ? "tags" : "TAGS"; |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
1131 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
|
1132 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
|
1133 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1134 char *oldcwd = cwd; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1135 cwd = concat (oldcwd, "/", ""); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1136 free (oldcwd); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1137 } |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1138 if (streq (tagfile, "-")) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
1139 tagfiledir = cwd; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
1140 else |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
1141 tagfiledir = absolute_dirname (tagfile, cwd); |
240 | 1142 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1143 init (); /* set up boolean "functions" */ |
240 | 1144 |
1145 initbuffer (&lb); | |
1146 initbuffer (&filename_lb); | |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1147 initbuffer (&filebuf); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1148 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1149 if (!CTAGS) |
240 | 1150 { |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1151 if (streq (tagfile, "-")) |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1152 { |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1153 tagf = stdout; |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1154 #ifdef DOS_NT |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1155 /* 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
|
1156 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
|
1157 if (!isatty (fileno (stdout))) |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1158 setmode (fileno (stdout), O_BINARY); |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1159 #endif /* DOS_NT */ |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1160 } |
240 | 1161 else |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1162 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
|
1163 if (tagf == NULL) |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
1164 pfatal (tagfile); |
240 | 1165 } |
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 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1168 * 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
|
1169 */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1170 for (i = 0; i < current_arg; ++i) |
240 | 1171 { |
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
|
1172 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
|
1173 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
|
1174 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1175 switch (argbuffer[i].arg_type) |
240 | 1176 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1177 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
|
1178 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
|
1179 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1180 #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
|
1181 case at_regexp: |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1182 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
|
1183 break; |
240 | 1184 #endif |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1185 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
|
1186 #ifdef VMS |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1187 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
|
1188 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1189 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
|
1190 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1191 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
|
1192 argc--, argv++; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1193 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1194 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1195 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1196 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
|
1197 } |
240 | 1198 #else |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1199 this_file = argbuffer[i].what; |
240 | 1200 #endif |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1201 /* 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
|
1202 (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
|
1203 if (streq (this_file, "-")) |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1204 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1205 if (parsing_stdin) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1206 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
|
1207 (char *)NULL); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1208 while (readline_internal (&filename_lb, stdin) > 0) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1209 process_file_name (filename_lb.buffer, lang); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1210 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1211 else |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1212 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
|
1213 #ifdef VMS |
240 | 1214 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1215 #endif |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1216 break; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1217 case at_stdin: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1218 this_file = argbuffer[i].what; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1219 process_file (stdin, this_file, lang); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1220 break; |
240 | 1221 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
1222 } |
10761
7aa80669e697
* etags.c (C_entries): Bug corrected in xrealloc of token_str.
Francesco Potortì <pot@gnu.org>
parents:
10754
diff
changeset
|
1223 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1224 #ifdef ETAGS_REGEXPS |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1225 free_patterns (); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1226 #endif /* ETAGS_REGEXPS */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1227 free (filebuf.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
|
1228 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1229 if (!CTAGS || cxref_style) |
240 | 1230 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1231 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
|
1232 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
|
1233 nodehead = NULL; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1234 if (!CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1235 while (nincluded_files-- > 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1236 fprintf (tagf, "\f\n%s,include\n", *included_files++); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1237 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1238 if (fclose (tagf) == EOF) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1239 pfatal (tagfile); |
240 | 1240 exit (GOOD); |
1241 } | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1242 |
621 | 1243 if (update) |
240 | 1244 { |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1245 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
|
1246 for (i = 0; i < current_arg; ++i) |
240 | 1247 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1248 switch (argbuffer[i].arg_type) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1249 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1250 case at_filename: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1251 case at_stdin: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1252 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1253 default: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1254 continue; /* the for loop */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1255 } |
240 | 1256 sprintf (cmd, |
1257 "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
|
1258 tagfile, argbuffer[i].what, tagfile); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1259 if (system (cmd) != GOOD) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
1260 fatal ("failed to execute shell command", (char *)NULL); |
240 | 1261 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1262 append_to_tagfile = TRUE; |
240 | 1263 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1264 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1265 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
|
1266 if (tagf == NULL) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1267 pfatal (tagfile); |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1268 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
|
1269 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
|
1270 nodehead = NULL; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1271 if (fclose (tagf) == EOF) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1272 pfatal (tagfile); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1273 |
240 | 1274 if (update) |
1275 { | |
45643
5cee84ffef53
(main): Avoid a buffer overrun with sprintf.
Francesco Potortì <pot@gnu.org>
parents:
45535
diff
changeset
|
1276 char cmd[2*BUFSIZ+10]; |
5cee84ffef53
(main): Avoid a buffer overrun with sprintf.
Francesco Potortì <pot@gnu.org>
parents:
45535
diff
changeset
|
1277 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
|
1278 exit (system (cmd)); |
240 | 1279 } |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
1280 return GOOD; |
240 | 1281 } |
1282 | |
1283 | |
1284 /* | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1285 * 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
|
1286 * 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
|
1287 * 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
|
1288 * and EXTPTR is not significant. |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1289 * 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
|
1290 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1291 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
|
1292 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
|
1293 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
|
1294 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
|
1295 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1296 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
|
1297 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
|
1298 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1299 /* 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
|
1300 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
|
1301 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
|
1302 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
|
1303 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
|
1304 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
|
1305 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
|
1306 *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
|
1307 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
|
1308 /* 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
|
1309 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
|
1310 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
|
1311 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
|
1312 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1313 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
|
1314 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
|
1315 return compr; |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1316 if (!MSDOS) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1317 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
|
1318 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
|
1319 *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
|
1320 } 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
|
1321 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
|
1322 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1323 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1324 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1325 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1326 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1327 * 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
|
1328 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1329 static language * |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1330 get_language_from_langname (name) |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
1331 const char *name; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1332 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1333 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
|
1334 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1335 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
|
1336 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
|
1337 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
|
1338 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1339 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
|
1340 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
|
1341 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
|
1342 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
|
1343 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1344 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1345 return NULL; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1346 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1347 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1348 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1349 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1350 * 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
|
1351 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1352 static language * |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1353 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
|
1354 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
|
1355 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1356 language *lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1357 char **iname; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1358 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1359 if (interpreter == NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1360 return NULL; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1361 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
|
1362 if (lang->interpreters != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1363 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
|
1364 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
|
1365 return lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1366 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1367 return NULL; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1368 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1369 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1370 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1371 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1372 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1373 * 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
|
1374 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1375 static language * |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1376 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
|
1377 char *file; |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1378 bool case_sensitive; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1379 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1380 language *lang; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1381 char **name, **ext, *suffix; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1382 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1383 /* Try whole file name first. */ |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1384 for (lang = lang_names; lang->name != NULL; lang++) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1385 if (lang->filenames != NULL) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1386 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
|
1387 if ((case_sensitive) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1388 ? streq (*name, file) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1389 : strcaseeq (*name, file)) |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1390 return lang; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1391 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1392 /* 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
|
1393 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
|
1394 if (suffix == NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1395 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
|
1396 suffix += 1; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1397 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
|
1398 if (lang->suffixes != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1399 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
|
1400 if ((case_sensitive) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1401 ? streq (*ext, suffix) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1402 : 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
|
1403 return lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1404 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
|
1405 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1406 |
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
|
1407 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1408 /* |
240 | 1409 * This routine is called on each file argument. |
1410 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1411 static void |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1412 process_file_name (file, lang) |
240 | 1413 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
|
1414 language *lang; |
240 | 1415 { |
1416 struct stat stat_buf; | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1417 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
|
1418 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
|
1419 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
|
1420 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
|
1421 char *ext, *real_name; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1422 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
|
1423 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1424 canonicalize_filename (file); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1425 if (streq (file, tagfile) && !streq (tagfile, "-")) |
240 | 1426 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1427 error ("skipping inclusion of %s in self.", file); |
240 | 1428 return; |
1429 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1430 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
|
1431 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1432 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
|
1433 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
|
1434 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1435 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
|
1436 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1437 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
|
1438 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
|
1439 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1440 |
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
|
1441 /* 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
|
1442 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
|
1443 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
|
1444 { |
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
|
1445 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
|
1446 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
|
1447 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
|
1448 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1449 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1450 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
|
1451 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1452 /* 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
|
1453 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
|
1454 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
|
1455 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1456 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
|
1457 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
|
1458 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1459 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
|
1460 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1461 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
|
1462 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1463 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
|
1464 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
|
1465 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1466 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
|
1467 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1468 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
|
1469 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
|
1470 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
|
1471 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1472 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
|
1473 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
|
1474 { |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1475 real_name = compressed_name; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1476 break; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
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 } |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1479 if (real_name != NULL) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1480 break; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1481 } /* 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
|
1482 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
|
1483 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
|
1484 } |
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 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
|
1486 { |
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 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
|
1488 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
|
1489 } |
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 } |
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 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
|
1493 { |
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 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
|
1495 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
|
1496 } |
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 } /* 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
|
1498 |
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 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
|
1500 { |
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 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
|
1502 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
|
1503 } |
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 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
|
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 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
|
1507 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
|
1508 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
|
1509 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1510 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
|
1511 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
|
1512 if (inf == NULL) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1513 { |
26262
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 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
|
1515 goto cleanup; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1516 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1517 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1518 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
|
1519 |
26262
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 if (real_name == compressed_name) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1521 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
|
1522 else |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1523 retval = fclose (inf); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1524 if (retval < 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1525 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
|
1526 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1527 cleanup: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1528 if (compressed_name) free (compressed_name); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1529 if (uncompressed_name) free (uncompressed_name); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1530 last_node = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1531 curfdp = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1532 return; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1533 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1534 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1535 static void |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1536 process_file (fh, fn, lang) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1537 FILE *fh; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1538 char *fn; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1539 language *lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1540 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1541 static const fdesc emptyfdesc; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1542 fdesc *fdp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1543 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1544 /* Create a new input file description entry. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1545 fdp = xnew (1, fdesc); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1546 *fdp = emptyfdesc; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1547 fdp->next = fdhead; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1548 fdp->infname = savestr (fn); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1549 fdp->lang = lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1550 fdp->infabsname = absolute_filename (fn, cwd); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1551 fdp->infabsdir = absolute_dirname (fn, cwd); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1552 if (filename_is_absolute (fn)) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1553 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1554 /* An absolute file name. Canonicalize it. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1555 fdp->taggedfname = absolute_filename (fn, NULL); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1556 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1557 else |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1558 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1559 /* 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
|
1560 to the directory of the tags file. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1561 fdp->taggedfname = relative_filename (fn, tagfiledir); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1562 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1563 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
|
1564 fdp->prop = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1565 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1566 fdhead = fdp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1567 curfdp = fdhead; /* the current file description */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1568 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1569 find_entries (fh); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1570 |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1571 /* 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
|
1572 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
|
1573 curfdp. */ |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1574 if (!CTAGS |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1575 && 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
|
1576 && !curfdp->lang->metasource) |
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1577 { |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1578 node *np, *prev; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1579 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1580 /* 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
|
1581 for the structure of the node tree. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1582 prev = NULL; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1583 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
|
1584 if (np->fdp == curfdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1585 break; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1586 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1587 /* 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
|
1588 if (np != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1589 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1590 /* 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
|
1591 instructions depend on this being true. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1592 assert (np->left == NULL); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1593 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1594 assert (fdhead == curfdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1595 assert (last_node->fdp == curfdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1596 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
|
1597 free_tree (np); /* remove the written nodes */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1598 if (prev == NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1599 nodehead = NULL; /* no nodes left */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1600 else |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1601 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
|
1602 } |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1603 } |
240 | 1604 } |
1605 | |
1606 /* | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3569
diff
changeset
|
1607 * 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
|
1608 * by setting boolean flags dependent upon the corresponding character. |
240 | 1609 * Every char which is NOT in that string is not a white char. Therefore, |
1610 * all of the array "_wht" is set to FALSE, and then the elements | |
1611 * subscripted by the chars in "white" are set to TRUE. Thus "_wht" | |
1612 * of a char is TRUE if it is the string "white", else FALSE. | |
1613 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1614 static void |
240 | 1615 init () |
1616 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
1617 register char *sp; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
1618 register int i; |
240 | 1619 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1620 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
|
1621 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
|
1622 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
|
1623 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
|
1624 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
|
1625 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
|
1626 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
|
1627 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
|
1628 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
|
1629 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
|
1630 endtoken('\0') = endtoken('\n'); |
240 | 1631 } |
1632 | |
1633 /* | |
1634 * This routine opens the specified file and calls the function | |
1635 * which finds the function and type definitions. | |
1636 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1637 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
|
1638 find_entries (inf) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1639 FILE *inf; |
240 | 1640 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1641 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
|
1642 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
|
1643 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
|
1644 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1645 /* 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
|
1646 if (lang != NULL && lang->function != NULL) |
240 | 1647 { |
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
|
1648 parser = lang->function; |
240 | 1649 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1650 |
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
|
1651 /* 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
|
1652 if (parser == NULL) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1653 { |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1654 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
|
1655 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
|
1656 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1657 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
|
1658 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
|
1659 } |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1660 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1661 |
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
|
1662 /* 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
|
1663 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
|
1664 && 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
|
1665 && lb.len >= 2 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1666 && lb.buffer[0] == '#' |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1667 && lb.buffer[1] == '!') |
240 | 1668 { |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1669 char *lp; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1670 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1671 /* 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
|
1672 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
|
1673 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
|
1674 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
|
1675 if (lp != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1676 lp += 1; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1677 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
|
1678 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
|
1679 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
|
1680 *cp = '\0'; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1681 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1682 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
|
1683 { |
26262
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 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
|
1685 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
|
1686 { |
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
|
1687 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
|
1688 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
|
1689 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1690 } |
240 | 1691 } |
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
|
1692 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1693 /* 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
|
1694 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
|
1695 which is unlikely. */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1696 rewind (inf); |
44607
8f3420af28a8
* etags.c (get_language_from_filename): Add one argument.
Francesco Potortì <pot@gnu.org>
parents:
44605
diff
changeset
|
1697 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1698 /* 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
|
1699 if (parser == NULL) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1700 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1701 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
|
1702 if (lang != NULL && lang->function != NULL) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1703 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1704 curfdp->lang = lang; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1705 parser = lang->function; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1706 } |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1707 } |
44607
8f3420af28a8
* etags.c (get_language_from_filename): Add one argument.
Francesco Potortì <pot@gnu.org>
parents:
44605
diff
changeset
|
1708 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1709 /* Else try Fortran or C. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1710 if (parser == NULL) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1711 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1712 node *old_last_node = last_node; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1713 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1714 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
|
1715 find_entries (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1716 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1717 if (old_last_node == last_node) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1718 /* No Fortran entries found. Try C. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1719 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1720 /* 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
|
1721 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
|
1722 rewind (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1723 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
|
1724 find_entries (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1725 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1726 return; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1727 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1728 |
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
|
1729 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
|
1730 && curfdp->lang != NULL && curfdp->lang->metasource) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1731 /* 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
|
1732 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
|
1733 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
|
1734 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
|
1735 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
|
1736 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1737 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
|
1738 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
|
1739 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
|
1740 && 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
|
1741 /* 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
|
1742 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
|
1743 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1744 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
|
1745 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1746 if (DEBUG) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1747 fprintf (stderr, |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1748 "Removing references to \"%s\" obtained from \"%s\"\n", |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1749 badfdp->taggedfname, badfdp->infname); |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1750 |
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
|
1751 /* Delete the tags referring to badfdp. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1752 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
|
1753 |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1754 *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
|
1755 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
|
1756 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1757 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
|
1758 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
|
1759 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1760 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1761 assert (parser != NULL); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1762 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1763 /* Generic initialisations before reading from file. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1764 filebuf.len = 0; /* reset the file buffer */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1765 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1766 /* 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
|
1767 lineno = 0; /* reset global line number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1768 charno = 0; /* reset global char number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1769 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
|
1770 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1771 parser (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1772 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1773 #ifdef ETAGS_REGEXPS |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1774 regex_tag_multiline (); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1775 #endif /* ETAGS_REGEXPS */ |
240 | 1776 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1777 |
240 | 1778 |
1779 /* Record a tag. */ | |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
1780 static void |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
1781 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
|
1782 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
|
1783 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
|
1784 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
|
1785 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
|
1786 int lno; /* line number */ |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1787 long cno; /* character number */ |
240 | 1788 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1789 register node *np; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1790 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1791 if (CTAGS && name == NULL) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1792 return; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1793 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1794 np = xnew (1, node); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1795 |
240 | 1796 /* 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
|
1797 if (CTAGS && !cxref_style && streq (name, "main")) |
240 | 1798 { |
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
|
1799 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
|
1800 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
|
1801 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
|
1802 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
|
1803 fp[0] = '\0'; |
240 | 1804 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1805 else |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
1806 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
|
1807 np->valid = TRUE; |
10623
8a73e71a55e3
* etags.c (pfnote): Initialise been_warned in the node.
Francesco Potortì <pot@gnu.org>
parents:
10449
diff
changeset
|
1808 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
|
1809 np->fdp = curfdp; |
240 | 1810 np->is_func = is_func; |
1811 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
|
1812 if (np->fdp->usecharno) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1813 /* 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
|
1814 ctags compatibility? old versions compatibility? I don't know. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1815 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
|
1816 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
|
1817 uncomment the +1 below. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1818 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
|
1819 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
|
1820 np->cno = invalidcharno; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1821 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
|
1822 if (CTAGS && !cxref_style) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1823 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1824 if (strlen (linestart) < 50) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1825 np->pat = concat (linestart, "$", ""); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1826 else |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1827 np->pat = savenstr (linestart, 50); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1828 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1829 else |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1830 np->pat = savenstr (linestart, linelen); |
240 | 1831 |
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 add_node (np, &nodehead); |
240 | 1833 } |
1834 | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1835 /* |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1836 * Check whether an implicitly named tag should be created, |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1837 * then call `pfnote'. |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1838 * NAME is a string that is internally copied by this function. |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1839 * |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1840 * TAGS format specification |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1841 * Idea by Sam Kendall <kendall@mv.mv.com> (1997) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1842 * |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1843 * make_tag creates tags with "implicit tag names" (unnamed tags) |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1844 * if the following are all true, assuming NONAM=" \f\t\n\r()=,;": |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1845 * 1. NAME does not contain any of the characters in NONAM; |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1846 * 2. LINESTART contains name as either a rightmost, or rightmost but |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1847 * one character, substring; |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1848 * 3. the character, if any, immediately before NAME in LINESTART must |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1849 * be a character in NONAM; |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1850 * 4. the character, if any, immediately after NAME in LINESTART must |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1851 * also be a character in NONAM. |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1852 * |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1853 * The implementation uses the notinname() macro, which recognises the |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1854 * characters stored in the string `nonam'. |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1855 * etags.el needs to use the same characters that are in NONAM. |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1856 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
1857 static void |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1858 make_tag (name, namelen, is_func, linestart, linelen, lno, cno) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1859 char *name; /* tag name, or NULL if unnamed */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1860 int namelen; /* tag length */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1861 bool is_func; /* tag is a function */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1862 char *linestart; /* start of the line where tag is */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1863 int linelen; /* length of the line where tag is */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1864 int lno; /* line number */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1865 long cno; /* character number */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1866 { |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1867 register char *cp; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1868 bool named; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1869 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1870 named = TRUE; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1871 if (!CTAGS) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1872 { |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1873 for (cp = name; !notinname (*cp); cp++) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1874 continue; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1875 if (*cp == '\0') /* rule #1 */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1876 { |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1877 cp = linestart + linelen - namelen; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1878 if (notinname (linestart[linelen-1])) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1879 cp -= 1; /* rule #4 */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1880 if (cp >= linestart /* rule #2 */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1881 && (cp == linestart |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1882 || notinname (cp[-1])) /* rule #3 */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1883 && strneq (name, cp, namelen)) /* rule #2 */ |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
1884 named = FALSE; /* use implicit tag name */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1885 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1886 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1887 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1888 if (named) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1889 name = savenstr (name, namelen); |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1890 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1891 name = NULL; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1892 pfnote (name, is_func, linestart, linelen, lno, cno); |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1893 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1894 |
240 | 1895 /* |
1896 * free_tree () | |
1897 * recurse on left children, iterate on right children. | |
1898 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1899 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
|
1900 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
|
1901 register node *np; |
240 | 1902 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1903 while (np) |
240 | 1904 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1905 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
|
1906 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
|
1907 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
|
1908 free (np->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
|
1909 free (np->pat); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1910 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
|
1911 np = node_right; |
240 | 1912 } |
1913 } | |
1914 | |
1915 /* | |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1916 * free_fdesc () |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1917 * delete a file description |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1918 */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1919 static void |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1920 free_fdesc (fdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1921 register fdesc *fdp; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1922 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1923 if (fdp->infname != NULL) free (fdp->infname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1924 if (fdp->infabsname != NULL) free (fdp->infabsname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1925 if (fdp->infabsdir != NULL) free (fdp->infabsdir); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1926 if (fdp->taggedfname != NULL) free (fdp->taggedfname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1927 if (fdp->prop != NULL) free (fdp->prop); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1928 free (fdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1929 } |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1930 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1931 /* |
240 | 1932 * add_node () |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1933 * 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
|
1934 * 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
|
1935 * balancing. |
240 | 1936 * |
1937 * add_node is the only function allowed to add nodes, so it can | |
1938 * maintain state. | |
1939 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1940 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
|
1941 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
|
1942 node *np, **cur_node_p; |
240 | 1943 { |
1944 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
|
1945 register node *cur_node = *cur_node_p; |
240 | 1946 |
1947 if (cur_node == NULL) | |
1948 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1949 *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
|
1950 last_node = np; |
240 | 1951 return; |
1952 } | |
1953 | |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1954 if (!CTAGS) |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1955 /* Etags Mode */ |
240 | 1956 { |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1957 /* 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
|
1958 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
|
1959 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
|
1960 used sublist. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1961 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
|
1962 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1963 /* 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
|
1964 assert (last_node->right == NULL); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1965 last_node->right = np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1966 last_node = np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1967 } |
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
|
1968 else if (cur_node->fdp == np->fdp) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1969 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1970 /* 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
|
1971 good for us. Let's scan this sublist. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1972 add_node (np, &cur_node->right); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1973 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1974 else |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1975 /* 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
|
1976 next one. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1977 add_node (np, &cur_node->left); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1978 } /* if ETAGS mode */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1979 |
240 | 1980 else |
1981 { | |
1982 /* 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
|
1983 dif = strcmp (np->name, cur_node->name); |
240 | 1984 |
1985 /* | |
1986 * If this tag name matches an existing one, then | |
1987 * do not add the node, but maybe print a warning. | |
1988 */ | |
1989 if (!dif) | |
1990 { | |
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
|
1991 if (np->fdp == cur_node->fdp) |
240 | 1992 { |
1993 if (!no_warnings) | |
1994 { | |
1995 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
|
1996 np->fdp->infname, lineno, np->name); |
240 | 1997 fprintf (stderr, "Second entry ignored\n"); |
1998 } | |
1999 } | |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2000 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
|
2001 { |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2002 fprintf |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2003 (stderr, |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2004 "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
|
2005 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
|
2006 cur_node->been_warned = TRUE; |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2007 } |
240 | 2008 return; |
2009 } | |
2010 | |
2011 /* 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
|
2012 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
|
2013 } /* if CTAGS mode */ |
240 | 2014 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2015 |
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
|
2016 /* |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2017 * 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
|
2018 * 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
|
2019 * 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
|
2020 */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2021 static void |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2022 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
|
2023 fdesc *badfdp; |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2024 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
|
2025 { |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2026 node *np = *npp; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2027 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2028 if (np == NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2029 return; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2030 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2031 if (CTAGS) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2032 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2033 if (np->left != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2034 invalidate_nodes (badfdp, &np->left); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2035 if (np->fdp == badfdp) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2036 np->valid = FALSE; |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2037 if (np->right != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2038 invalidate_nodes (badfdp, &np->right); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2039 } |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2040 else |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2041 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2042 assert (np->fdp != NULL); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2043 if (np->fdp == badfdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2044 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2045 *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
|
2046 np->left = NULL; /* isolate it */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2047 free_tree (np); /* free it */ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2048 invalidate_nodes (badfdp, npp); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2049 } |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2050 else |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2051 invalidate_nodes (badfdp, &np->left); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2052 } |
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
|
2053 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2054 |
240 | 2055 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2056 static int total_size_of_entries __P((node *)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2057 static int number_len __P((long)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2058 |
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
|
2059 /* 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
|
2060 static int |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2061 number_len (num) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2062 long num; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2063 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2064 int len = 1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2065 while ((num /= 10) > 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2066 len += 1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2067 return len; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2068 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2069 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2070 /* |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2071 * 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
|
2072 * 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
|
2073 * 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
|
2074 * but is still supplied for backward compatibility. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2075 */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2076 static int |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2077 total_size_of_entries (np) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2078 register node *np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2079 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2080 register int total = 0; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2081 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2082 for (; np != NULL; np = np->right) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2083 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2084 total += strlen (np->pat) + 1; /* pat\177 */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2085 if (np->name != NULL) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2086 total += strlen (np->name) + 1; /* name\001 */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2087 total += number_len ((long) np->lno) + 1; /* lno, */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2088 if (np->cno != invalidcharno) /* cno */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2089 total += number_len (np->cno); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2090 total += 1; /* newline */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2091 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2092 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2093 return total; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2094 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2095 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2096 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
|
2097 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
|
2098 register node *np; |
240 | 2099 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2100 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
|
2101 static fdesc *fdp = NULL; |
240 | 2102 |
26262
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 == NULL) |
240 | 2104 return; |
2105 | |
2106 /* Output subentries that precede this one */ | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2107 if (CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2108 put_entries (np->left); |
240 | 2109 |
2110 /* 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
|
2111 if (np->valid) |
240 | 2112 { |
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
|
2113 if (!CTAGS) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2114 { |
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
|
2115 /* 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
|
2116 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
|
2117 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2118 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
|
2119 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
|
2120 fdp->taggedfname, total_size_of_entries (np)); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2121 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2122 fputs (np->pat, 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
|
2123 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
|
2124 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
|
2125 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2126 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
|
2127 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
|
2128 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2129 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
|
2130 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
|
2131 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
|
2132 fputs ("\n", tagf); |
240 | 2133 } |
2134 else | |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2135 { |
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
|
2136 /* 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
|
2137 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
|
2138 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
|
2139 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2140 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
|
2141 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2142 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
|
2143 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
|
2144 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
|
2145 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
|
2146 fprintf (stdout, "%-16s %3d %-16s %s\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
|
2147 np->name, np->lno, np->fdp->taggedfname, np->pat); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2148 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2149 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
|
2150 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2151 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
|
2152 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2153 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
|
2154 { /* 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
|
2155 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
|
2156 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
|
2157 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2158 for (sp = np->pat; *sp; sp++) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2159 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2160 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
|
2161 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
|
2162 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
|
2163 } |
4702b23921b4
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 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
|
2165 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2166 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
|
2167 { /* 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
|
2168 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
|
2169 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2170 putc ('\n', tagf); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2171 } |
240 | 2172 } |
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
|
2173 } /* if this node contains a valid tag */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2174 |
240 | 2175 /* 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
|
2176 put_entries (np->right); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2177 if (!CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2178 put_entries (np->left); |
240 | 2179 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2180 |
240 | 2181 |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2182 /* C extensions. */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2183 #define C_EXT 0x00fff /* C extensions */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2184 #define C_PLAIN 0x00000 /* C */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2185 #define C_PLPL 0x00001 /* C++ */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2186 #define C_STAR 0x00003 /* C* */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2187 #define C_JAVA 0x00005 /* JAVA */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2188 #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
|
2189 #define YACC 0x10000 /* yacc file */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2190 |
240 | 2191 /* |
2192 * The C symbol tables. | |
2193 */ | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2194 enum sym_type |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2195 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2196 st_none, |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2197 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
|
2198 st_C_gnumacro, |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2199 st_C_ignore, |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2200 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
|
2201 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
|
2202 st_C_class, st_C_template, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2203 st_C_struct, st_C_extern, st_C_enum, st_C_define, st_C_typedef, st_C_typespec |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2204 }; |
240 | 2205 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2206 static unsigned int hash __P((const char *, unsigned int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2207 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
|
2208 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
|
2209 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2210 /* Feed stuff between (but not including) %[ and %] lines to: |
15579
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2211 gperf -c -k 1,3 -o -p -r -t |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2212 %[ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2213 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
|
2214 %% |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2215 if, 0, st_C_ignore |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2216 for, 0, st_C_ignore |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2217 while, 0, st_C_ignore |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2218 switch, 0, st_C_ignore |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2219 return, 0, st_C_ignore |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2220 @interface, 0, st_C_objprot |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2221 @protocol, 0, st_C_objprot |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2222 @implementation,0, st_C_objimpl |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2223 @end, 0, st_C_objend |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2224 import, C_JAVA, st_C_ignore |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2225 package, C_JAVA, st_C_ignore |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2226 friend, C_PLPL, st_C_ignore |
17785
5b92f8ba5c6d
Added support for the Java language.
Francesco Potortì <pot@gnu.org>
parents:
17778
diff
changeset
|
2227 extends, C_JAVA, st_C_javastruct |
5b92f8ba5c6d
Added support for the Java language.
Francesco Potortì <pot@gnu.org>
parents:
17778
diff
changeset
|
2228 implements, C_JAVA, 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
|
2229 interface, C_JAVA, st_C_struct |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2230 class, 0, st_C_class |
15579
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2231 namespace, C_PLPL, st_C_struct |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2232 domain, C_STAR, st_C_struct |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2233 union, 0, st_C_struct |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2234 struct, 0, st_C_struct |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2235 extern, 0, st_C_extern |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2236 enum, 0, st_C_enum |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2237 typedef, 0, st_C_typedef |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2238 define, 0, st_C_define |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2239 operator, C_PLPL, 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
|
2240 template, 0, st_C_template |
15579
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2241 bool, C_PLPL, st_C_typespec |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2242 long, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2243 short, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2244 int, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2245 char, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2246 float, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2247 double, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2248 signed, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2249 unsigned, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2250 auto, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2251 void, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2252 static, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2253 const, 0, st_C_typespec |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2254 volatile, 0, st_C_typespec |
15579
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2255 explicit, C_PLPL, st_C_typespec |
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2256 mutable, C_PLPL, st_C_typespec |
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2257 typename, C_PLPL, st_C_typespec |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2258 # DEFUN used in emacs, the next three used in glibc (SYSCALL only for mach). |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2259 DEFUN, 0, st_C_gnumacro |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2260 SYSCALL, 0, st_C_gnumacro |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2261 ENTRY, 0, st_C_gnumacro |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2262 PSEUDO, 0, st_C_gnumacro |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2263 # 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
|
2264 # EXFUN used in glibc, DEFVAR_* in emacs. |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2265 #EXFUN, 0, st_C_gnumacro |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2266 #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
|
2267 %] |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2268 and replace lines between %< and %> with its output, |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2269 then make in_word_set and C_stab_entry static. */ |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2270 /*%<*/ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2271 /* C code produced by gperf version 2.7.1 (19981006 egcs) */ |
15579
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2272 /* Command-line: gperf -c -k 1,3 -o -p -r -t */ |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2273 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
|
2274 |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2275 #define TOTAL_KEYWORDS 47 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2276 #define MIN_WORD_LENGTH 2 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2277 #define MAX_WORD_LENGTH 15 |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2278 #define MIN_HASH_VALUE 18 |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2279 #define MAX_HASH_VALUE 138 |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2280 /* maximum key range = 121, 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
|
2281 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2282 #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
|
2283 __inline |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2284 #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
|
2285 static unsigned int |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2286 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
|
2287 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
|
2288 register unsigned int len; |
240 | 2289 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2290 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
|
2291 { |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2292 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2293 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2294 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2295 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2296 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2297 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2298 139, 139, 139, 139, 63, 139, 139, 139, 33, 44, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2299 62, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2300 42, 139, 139, 12, 32, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2301 139, 139, 139, 139, 139, 139, 139, 34, 59, 37, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2302 24, 58, 33, 3, 139, 16, 139, 139, 42, 60, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2303 18, 11, 39, 139, 23, 57, 4, 63, 6, 20, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2304 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2305 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2306 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2307 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2308 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2309 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2310 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2311 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2312 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2313 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2314 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2315 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2316 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2317 139, 139, 139, 139, 139, 139 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2318 }; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2319 register int hval = len; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2320 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2321 switch (hval) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2322 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2323 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
|
2324 case 3: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2325 hval += asso_values[(unsigned char)str[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
|
2326 case 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
|
2327 case 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
|
2328 hval += asso_values[(unsigned char)str[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
|
2329 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
|
2330 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2331 return hval; |
240 | 2332 } |
2333 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2334 #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
|
2335 __inline |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2336 #endif |
35766
3584fc1b9b79
(in_word_set): Use `static' in definition (for pcc).
Dave Love <fx@gnu.org>
parents:
35758
diff
changeset
|
2337 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
|
2338 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
|
2339 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
|
2340 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
|
2341 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2342 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
|
2343 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2344 {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2345 {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2346 {"if", 0, st_C_ignore}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2347 {""}, {""}, {""}, {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2348 {"int", 0, st_C_typespec}, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2349 {""}, {""}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2350 {"void", 0, st_C_typespec}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2351 {""}, {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2352 {"interface", C_JAVA, st_C_struct}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2353 {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2354 {"SYSCALL", 0, st_C_gnumacro}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2355 {""}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2356 {"return", 0, st_C_ignore}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2357 {""}, {""}, {""}, {""}, {""}, {""}, {""}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2358 {"while", 0, st_C_ignore}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2359 {"auto", 0, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2360 {""}, {""}, {""}, {""}, {""}, {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2361 {"float", 0, st_C_typespec}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2362 {"typedef", 0, st_C_typedef}, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2363 {"typename", C_PLPL, st_C_typespec}, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2364 {""}, {""}, {""}, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2365 {"friend", C_PLPL, st_C_ignore}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2366 {"volatile", 0, st_C_typespec}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2367 {""}, {""}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2368 {"for", 0, st_C_ignore}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2369 {"const", 0, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2370 {"import", C_JAVA, st_C_ignore}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2371 {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2372 {"define", 0, st_C_define}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2373 {"long", 0, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2374 {"implements", C_JAVA, st_C_javastruct}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2375 {"signed", 0, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2376 {""}, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2377 {"extern", 0, st_C_extern}, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2378 {"extends", C_JAVA, st_C_javastruct}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2379 {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2380 {"mutable", C_PLPL, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2381 {"template", 0, st_C_template}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2382 {"short", 0, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2383 {"bool", C_PLPL, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2384 {"char", 0, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2385 {"class", 0, st_C_class}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2386 {"operator", C_PLPL, st_C_operator}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2387 {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2388 {"switch", 0, st_C_ignore}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2389 {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2390 {"ENTRY", 0, st_C_gnumacro}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2391 {""}, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2392 {"package", C_JAVA, st_C_ignore}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2393 {"union", 0, st_C_struct}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2394 {"@end", 0, st_C_objend}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2395 {"struct", 0, st_C_struct}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2396 {"namespace", C_PLPL, st_C_struct}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2397 {""}, {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2398 {"domain", C_STAR, st_C_struct}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2399 {"@interface", 0, st_C_objprot}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2400 {"PSEUDO", 0, st_C_gnumacro}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2401 {"double", 0, st_C_typespec}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2402 {""}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2403 {"@protocol", 0, st_C_objprot}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2404 {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2405 {"static", 0, st_C_typespec}, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2406 {""}, {""}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2407 {"DEFUN", 0, st_C_gnumacro}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2408 {""}, {""}, {""}, {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2409 {"explicit", C_PLPL, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2410 {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2411 {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2412 {""}, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2413 {"enum", 0, st_C_enum}, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2414 {""}, {""}, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2415 {"unsigned", 0, st_C_typespec}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2416 {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2417 {"@implementation",0, st_C_objimpl} |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2418 }; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2419 |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2420 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
|
2421 { |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2422 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
|
2423 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2424 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
|
2425 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2426 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
|
2427 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2428 if (*str == *s && !strncmp (str + 1, s + 1, len - 1)) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2429 return &wordlist[key]; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2430 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2431 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2432 return 0; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2433 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2434 /*%>*/ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2435 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2436 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
|
2437 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
|
2438 char *str; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2439 int len; |
240 | 2440 int c_ext; |
2441 { | |
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
|
2442 register struct C_stab_entry *se = in_word_set (str, len); |
240 | 2443 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2444 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
|
2445 return st_none; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2446 return se->type; |
240 | 2447 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2448 |
240 | 2449 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2450 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2451 * 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
|
2452 * 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
|
2453 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2454 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2455 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2456 fvnone, /* nothing seen */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2457 fdefunkey, /* Emacs DEFUN keyword seen */ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2458 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
|
2459 foperator, /* func: operator keyword seen (cplpl) */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2460 fvnameseen, /* function or variable name seen */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2461 fstartlist, /* func: just after open parenthesis */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2462 finlist, /* func: in parameter list */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2463 flistseen, /* func: after parameter list */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2464 fignore, /* func: before open brace */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2465 vignore /* var-like: ignore until ';' */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2466 } fvdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2467 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2468 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
|
2469 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2470 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2471 * 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
|
2472 * typdef is its state variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2473 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2474 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2475 { |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
2476 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
|
2477 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
|
2478 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
|
2479 tinbody, /* inside typedef body */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2480 tend, /* just before typedef tag */ |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2481 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
|
2482 } typdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2483 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2484 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2485 * 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
|
2486 * 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
|
2487 * variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2488 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2489 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2490 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2491 snone, /* nothing seen yet, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2492 or in struct body if cblev > 0 */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2493 skeyseen, /* struct-like keyword seen */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2494 stagseen, /* struct-like tag seen */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2495 sintemplate, /* inside template (ignore) */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2496 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
|
2497 } structdef; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2498 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2499 /* |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2500 * 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
|
2501 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2502 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
|
2503 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2504 /* |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2505 * 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
|
2506 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2507 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2508 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2509 dnone, /* nothing seen */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2510 dsharpseen, /* '#' seen as first char on line */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2511 ddefineseen, /* '#' and 'define' seen */ |
5044
d3bd7baee39f
(FUNCST, TYPEDST, STRUCTST, DEFINEST): Delete excess commas.
Richard M. Stallman <rms@gnu.org>
parents:
4937
diff
changeset
|
2512 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
|
2513 } definedef; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2514 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2515 /* |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2516 * 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
|
2517 * 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
|
2518 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2519 static enum |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2520 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2521 onone, /* nothing seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2522 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
|
2523 oimplementation, /* @implementations seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2524 otagseen, /* class name seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2525 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
|
2526 ocatseen, /* category name seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2527 oinbody, /* in @implementation body */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2528 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
|
2529 omethodtag, /* after method name */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2530 omethodcolon, /* after method colon */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2531 omethodparm, /* after method parameter */ |
14230
6b836f84bccf
(enum sym_type, anonymous enum): Delete final comma.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
2532 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
|
2533 } objdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2534 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2535 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2536 /* |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2537 * 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
|
2538 * 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
|
2539 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2540 static struct tok |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2541 { |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2542 bool valid; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2543 bool named; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2544 int offset; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2545 int length; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2546 int lineno; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2547 long linepos; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2548 char *line; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2549 } token; /* latest token read */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2550 static linebuffer token_name; /* its name */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2551 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2552 /* |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2553 * 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
|
2554 * 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
|
2555 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2556 static void pushclass_above __P((int, char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2557 static void popclass_above __P((int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2558 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
|
2559 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2560 static struct { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2561 char **cname; /* nested class names */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2562 int *cblev; /* nested class curly brace level */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2563 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
|
2564 int size; /* length of the array */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2565 } cstack; /* stack for nested declaration tags */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2566 /* 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
|
2567 #define nestlev (cstack.nl) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2568 /* After struct keyword or in struct body, not inside an nested function. */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2569 #define instruct (structdef == snone && nestlev > 0 \ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2570 && cblev == cstack.cblev[nestlev-1] + 1) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2571 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2572 static void |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2573 pushclass_above (cblev, str, len) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2574 int cblev; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2575 char *str; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2576 int len; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2577 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2578 int nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2579 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2580 popclass_above (cblev); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2581 nl = cstack.nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2582 if (nl >= cstack.size) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2583 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2584 int size = cstack.size *= 2; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2585 xrnew (cstack.cname, size, char *); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2586 xrnew (cstack.cblev, size, int); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2587 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2588 assert (nl == 0 || cstack.cblev[nl-1] < cblev); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2589 cstack.cname[nl] = (str == NULL) ? NULL : savenstr (str, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2590 cstack.cblev[nl] = cblev; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2591 cstack.nl = nl + 1; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2592 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2593 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2594 static void |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2595 popclass_above (cblev) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2596 int cblev; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2597 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2598 int nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2599 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2600 for (nl = cstack.nl - 1; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2601 nl >= 0 && cstack.cblev[nl] >= cblev; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2602 nl--) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2603 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2604 if (cstack.cname[nl] != NULL) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2605 free (cstack.cname[nl]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2606 cstack.nl = nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2607 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2608 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2609 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2610 static void |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2611 write_classname (cn, qualifier) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2612 linebuffer *cn; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2613 char *qualifier; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2614 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2615 int i, len; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2616 int qlen = strlen (qualifier); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2617 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2618 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
|
2619 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2620 len = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2621 cn->len = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2622 cn->buffer[0] = '\0'; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2623 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2624 else |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2625 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2626 len = strlen (cstack.cname[0]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2627 linebuffer_setlen (cn, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2628 strcpy (cn->buffer, cstack.cname[0]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2629 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2630 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
|
2631 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2632 char *s; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2633 int slen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2634 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2635 s = cstack.cname[i]; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2636 if (s == NULL) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2637 continue; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2638 slen = strlen (s); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2639 len += slen + qlen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2640 linebuffer_setlen (cn, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2641 strncat (cn->buffer, qualifier, qlen); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2642 strncat (cn->buffer, s, slen); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2643 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2644 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2645 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2646 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2647 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
|
2648 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
|
2649 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2650 /* |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2651 * consider_token () |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2652 * 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
|
2653 * 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
|
2654 * 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
|
2655 * |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
2656 * *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
|
2657 * 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
|
2658 * |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2659 * Globals |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2660 * fvdef IN OUT |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2661 * structdef IN OUT |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2662 * definedef IN OUT |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2663 * typdef IN OUT |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2664 * objdef IN OUT |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2665 */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2666 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2667 static bool |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2668 consider_token (str, len, c, c_extp, cblev, 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
|
2669 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
|
2670 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
|
2671 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
|
2672 int *c_extp; /* IN, OUT: C extensions mask */ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2673 int cblev; /* IN: curly brace level */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2674 int parlev; /* IN: parenthesis level */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2675 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
|
2676 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2677 /* When structdef is stagseen, scolonseen, or snone with cblev > 0, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2678 structtype is the type of the preceding struct-like keyword, and |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2679 structcblev is the curly 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
|
2680 static enum sym_type structtype; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2681 static int structcblev; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2682 static enum sym_type toktype; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2683 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2684 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2685 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
|
2686 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2687 /* |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2688 * Advance the definedef state machine. |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2689 */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2690 switch (definedef) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2691 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2692 case dnone: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2693 /* We're not on a preprocessor line. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2694 if (toktype == st_C_gnumacro) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2695 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2696 fvdef = fdefunkey; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2697 return FALSE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2698 } |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2699 break; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2700 case dsharpseen: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2701 if (toktype == st_C_define) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2702 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2703 definedef = ddefineseen; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2704 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2705 else |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2706 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2707 definedef = dignorerest; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2708 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2709 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2710 case ddefineseen: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2711 /* |
9193
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
2712 * Make a tag for any macro, unless it is a constant |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
2713 * and constantypedefs is FALSE. |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2714 */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2715 definedef = dignorerest; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2716 *is_func_or_var = (c == '('); |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2717 if (!*is_func_or_var && !constantypedefs) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2718 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2719 else |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2720 return TRUE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2721 case dignorerest: |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2722 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2723 default: |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
2724 error ("internal error: definedef value.", (char *)NULL); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2725 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2726 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2727 /* |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2728 * Now typedefs |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2729 */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2730 switch (typdef) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2731 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2732 case tnone: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2733 if (toktype == st_C_typedef) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2734 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2735 if (typedefs) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2736 typdef = tkeyseen; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2737 fvextern = FALSE; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2738 fvdef = fvnone; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2739 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2740 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2741 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
|
2742 case tkeyseen: |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2743 switch (toktype) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2744 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2745 case st_none: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2746 case st_C_typespec: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2747 case st_C_class: |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2748 case st_C_struct: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2749 case st_C_enum: |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2750 typdef = ttypeseen; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2751 break; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2752 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2753 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2754 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2755 if (structdef == snone && fvdef == fvnone) |
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 fvdef = fvnameseen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2758 return TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2759 } |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2760 break; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2761 case tend: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2762 switch (toktype) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2763 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2764 case st_C_typespec: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2765 case st_C_class: |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2766 case st_C_struct: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2767 case st_C_enum: |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2768 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2769 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2770 return TRUE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2771 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2772 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2773 /* |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2774 * This structdef business is NOT invoked when we are ctags and the |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2775 * file is plain C. This is because a struct tag may have the same |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2776 * name as another tag, and this loses with ctags. |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2777 */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2778 switch (toktype) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2779 { |
17785
5b92f8ba5c6d
Added support for the Java language.
Francesco Potortì <pot@gnu.org>
parents:
17778
diff
changeset
|
2780 case st_C_javastruct: |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
2781 if (structdef == stagseen) |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
2782 structdef = scolonseen; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
2783 return FALSE; |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2784 case st_C_template: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2785 case st_C_class: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2786 if (cblev == 0 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2787 && (*c_extp & C_AUTO) /* automatic detection of C++ language */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2788 && definedef == dnone && structdef == snone |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2789 && typdef == tnone && fvdef == fvnone) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2790 *c_extp = (*c_extp | C_PLPL) & ~C_AUTO; |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2791 if (toktype == st_C_template) |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2792 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2793 /* FALLTHRU */ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2794 case st_C_struct: |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2795 case st_C_enum: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2796 if (parlev == 0 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2797 && fvdef != vignore |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2798 && (typdef == tkeyseen |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2799 || (typedefs_or_cplusplus && structdef == snone))) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2800 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2801 structdef = skeyseen; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2802 structtype = toktype; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2803 structcblev = cblev; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2804 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2805 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2806 } |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
2807 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2808 if (structdef == skeyseen) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2809 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2810 structdef = stagseen; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2811 return TRUE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2812 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2813 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2814 if (typdef != tnone) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2815 definedef = dnone; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2816 |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
2817 /* Detect Objective C constructs. */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2818 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2819 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2820 case onone: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2821 switch (toktype) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2822 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2823 case st_C_objprot: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2824 objdef = oprotocol; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2825 return FALSE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2826 case st_C_objimpl: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2827 objdef = oimplementation; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2828 return FALSE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2829 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2830 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2831 case oimplementation: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2832 /* Save the class tag for functions or variables defined inside. */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2833 objtag = savenstr (str, len); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2834 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2835 return FALSE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2836 case oprotocol: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2837 /* Save the class tag for categories. */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2838 objtag = savenstr (str, len); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2839 objdef = otagseen; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2840 *is_func_or_var = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2841 return TRUE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2842 case oparenseen: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2843 objdef = ocatseen; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2844 *is_func_or_var = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2845 return TRUE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2846 case oinbody: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2847 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2848 case omethodsign: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2849 if (parlev == 0) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2850 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2851 objdef = omethodtag; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2852 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
|
2853 strncpy (token_name.buffer, str, len); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2854 token_name.buffer[len] = '\0'; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2855 return TRUE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2856 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2857 return FALSE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2858 case omethodcolon: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2859 if (parlev == 0) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2860 objdef = omethodparm; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2861 return FALSE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2862 case omethodparm: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2863 if (parlev == 0) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2864 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2865 objdef = omethodtag; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2866 linebuffer_setlen (&token_name, token_name.len + len); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2867 strncat (token_name.buffer, str, len); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2868 return TRUE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2869 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2870 return FALSE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2871 case oignore: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2872 if (toktype == st_C_objend) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2873 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2874 /* Memory leakage here: the string pointed by objtag is |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2875 never released, because many tests would be needed to |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2876 avoid breaking on incorrect input code. The amount of |
14021
19bab04cf346
(substitute): Fix spelling in message.
Karl Heuer <kwzh@gnu.org>
parents:
13696
diff
changeset
|
2877 memory leaked here is the sum of the lengths of the |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2878 class tags. |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2879 free (objtag); */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2880 objdef = onone; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2881 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2882 return FALSE; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2883 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2884 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2885 /* A function, variable or enum constant? */ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2886 switch (toktype) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2887 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2888 case st_C_extern: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2889 fvextern = 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
|
2890 /* FALLTHRU */ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2891 case st_C_typespec: |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2892 if (fvdef != finlist && fvdef != fignore && fvdef != 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
|
2893 fvdef = fvnone; /* should be useless */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2894 return FALSE; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2895 case st_C_ignore: |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2896 fvextern = FALSE; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2897 fvdef = vignore; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2898 return 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
|
2899 case st_C_operator: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2900 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
|
2901 *is_func_or_var = 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
|
2902 return TRUE; |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
2903 case st_none: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2904 if (constantypedefs |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2905 && structdef == snone |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2906 && structtype == st_C_enum && cblev > structcblev) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2907 return TRUE; /* enum constant */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2908 switch (fvdef) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2909 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2910 case fdefunkey: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2911 if (cblev > 0) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2912 break; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2913 fvdef = fdefunname; /* GNU macro */ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2914 *is_func_or_var = TRUE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2915 return TRUE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2916 case fvnone: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2917 if ((strneq (str, "asm", 3) && endtoken (str[3])) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2918 || (strneq (str, "__asm__", 7) && endtoken (str[7]))) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2919 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2920 fvdef = vignore; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2921 return FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2922 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2923 if ((*c_extp & C_PLPL) && strneq (str+len-10, "::operator", 10)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2924 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2925 fvdef = foperator; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2926 *is_func_or_var = TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2927 return TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2928 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2929 if (cblev > 0 && !instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2930 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2931 fvdef = fvnameseen; /* function or variable */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2932 *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
|
2933 return TRUE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2934 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2935 break; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2936 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2937 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
2938 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2939 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2940 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2941 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2942 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2943 * 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
|
2944 * 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
|
2945 * them at end of line, it is possible to use those pointers. |
240 | 2946 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2947 static struct |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2948 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2949 long linepos; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2950 linebuffer lb; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2951 } lbs[2]; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2952 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2953 #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
|
2954 #define switch_line_buffers() (curndx = 1 - curndx) |
240 | 2955 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2956 #define curlb (lbs[curndx].lb) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2957 #define newlb (lbs[newndx].lb) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2958 #define curlinepos (lbs[curndx].linepos) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2959 #define newlinepos (lbs[newndx].linepos) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2960 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2961 #define CNL_SAVE_DEFINEDEF() \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2962 do { \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2963 curlinepos = charno; \ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
2964 readline (&curlb, inf); \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2965 lp = curlb.buffer; \ |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
2966 quotednl = FALSE; \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2967 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
|
2968 } while (0) |
240 | 2969 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2970 #define CNL() \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2971 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
|
2972 CNL_SAVE_DEFINEDEF(); \ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2973 if (savetoken.valid) \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2974 { \ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2975 token = savetoken; \ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2976 savetoken.valid = FALSE; \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2977 } \ |
240 | 2978 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
|
2979 } while (0) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2980 |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
2981 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2982 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2983 make_C_tag (isfun) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2984 bool isfun; |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
2985 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2986 /* 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
|
2987 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
|
2988 if (!DEBUG && !token.valid) |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
2989 return; |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
2990 |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
2991 if (!token.valid) /* this case is optimised away if !DEBUG */ |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
2992 make_tag (concat (token_name.buffer, "##invalid token##", ""), |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
2993 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
|
2994 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
|
2995 else |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
2996 make_tag (token_name.buffer, token_name.len, isfun, token.line, |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
2997 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
|
2998 |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
2999 token.valid = FALSE; |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3000 } |
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3001 |
240 | 3002 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3003 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3004 * C_entries () |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3005 * This routine finds functions, variables, typedefs, |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3006 * #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
|
3007 * 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
|
3008 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
3009 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3010 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
|
3011 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
|
3012 FILE *inf; /* input file */ |
240 | 3013 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3014 register char c; /* latest char read; '\0' for end of line */ |
240 | 3015 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
|
3016 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
|
3017 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
|
3018 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
|
3019 char *qualifier; /* string used to qualify names */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3020 int qlen; /* length of qualifier */ |
4051
73aa16fc728d
(consider_token): was `==', now is `='.
Richard M. Stallman <rms@gnu.org>
parents:
3921
diff
changeset
|
3021 int cblev; /* current curly brace 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
|
3022 int parlev; /* current parenthesis level */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3023 int typdefcblev; /* cblev where a typedef struct body begun */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3024 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
|
3025 bool cplpl, cjava; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3026 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
|
3027 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
|
3028 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3029 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3030 initbuffer (&token_name); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3031 initbuffer (&lbs[0].lb); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3032 initbuffer (&lbs[1].lb); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3033 if (cstack.size == 0) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3034 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3035 cstack.size = (DEBUG) ? 1 : 4; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3036 cstack.nl = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3037 cstack.cname = xnew (cstack.size, char *); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3038 cstack.cblev = xnew (cstack.size, int); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3039 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3040 |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3041 tokoff = toklen = typdefcblev = 0; /* keep compiler quiet */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3042 curndx = newndx = 0; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3043 lp = curlb.buffer; |
240 | 3044 *lp = 0; |
3045 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3046 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
|
3047 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
|
3048 yacc_rules = FALSE; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3049 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
|
3050 token.valid = savetoken.valid = FALSE; |
4051
73aa16fc728d
(consider_token): was `==', now is `='.
Richard M. Stallman <rms@gnu.org>
parents:
3921
diff
changeset
|
3051 cblev = 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
|
3052 parlev = 0; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3053 cplpl = (c_ext & C_PLPL) == C_PLPL; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3054 cjava = (c_ext & C_JAVA) == C_JAVA; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3055 if (cjava) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3056 { qualifier = "."; qlen = 1; } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3057 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3058 { qualifier = "::"; qlen = 2; } |
240 | 3059 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3060 |
240 | 3061 while (!feof (inf)) |
3062 { | |
3063 c = *lp++; | |
3064 if (c == '\\') | |
3065 { | |
621 | 3066 /* If we're at the end of the line, the next character is a |
3067 '\0'; don't skip it, because it's the thing that tells us | |
3068 to read the next line. */ | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3069 if (*lp == '\0') |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3070 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3071 quotednl = TRUE; |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3072 continue; |
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3073 } |
401 | 3074 lp++; |
240 | 3075 c = ' '; |
3076 } | |
3077 else if (incomm) | |
3078 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3079 switch (c) |
240 | 3080 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3081 case '*': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3082 if (*lp == '/') |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3083 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3084 c = *lp++; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3085 incomm = FALSE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3086 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3087 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3088 case '\0': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3089 /* 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
|
3090 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
|
3091 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3092 break; |
240 | 3093 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3094 continue; |
240 | 3095 } |
3096 else if (inquote) | |
3097 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3098 switch (c) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3099 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3100 case '"': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3101 inquote = FALSE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3102 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3103 case '\0': |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3104 /* 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
|
3105 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
|
3106 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
|
3107 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3108 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3109 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3110 continue; |
240 | 3111 } |
3112 else if (inchar) | |
3113 { | |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3114 switch (c) |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3115 { |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3116 case '\0': |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3117 /* 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
|
3118 CNL (); |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3119 /* FALLTHRU */ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3120 case '\'': |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3121 inchar = FALSE; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3122 break; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3123 } |
240 | 3124 continue; |
3125 } | |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
3126 else |
240 | 3127 switch (c) |
3128 { | |
3129 case '"': | |
3130 inquote = TRUE; | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3131 switch (fvdef) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3132 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3133 case fdefunkey: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3134 case fstartlist: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3135 case finlist: |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3136 case fignore: |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3137 case vignore: |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3138 break; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3139 default: |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3140 fvextern = 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
|
3141 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
|
3142 } |
240 | 3143 continue; |
3144 case '\'': | |
3145 inchar = TRUE; | |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3146 if (fvdef != finlist && fvdef != fignore && fvdef !=vignore) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3147 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3148 fvextern = 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
|
3149 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
|
3150 } |
240 | 3151 continue; |
3152 case '/': | |
3153 if (*lp == '*') | |
3154 { | |
3155 lp++; | |
3156 incomm = TRUE; | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3157 continue; |
240 | 3158 } |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3159 else if (/* cplpl && */ *lp == '/') |
240 | 3160 { |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3161 c = '\0'; |
727 | 3162 break; |
240 | 3163 } |
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
|
3164 else |
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
|
3165 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3166 case '%': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3167 if ((c_ext & YACC) && *lp == '%') |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3168 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3169 /* Entering or exiting rules section in yacc file. */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3170 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
|
3171 definedef = dnone; fvdef = fvnone; fvextern = FALSE; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3172 typdef = tnone; structdef = snone; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3173 midtoken = inquote = inchar = incomm = quotednl = FALSE; |
4051
73aa16fc728d
(consider_token): was `==', now is `='.
Richard M. Stallman <rms@gnu.org>
parents:
3921
diff
changeset
|
3174 cblev = 0; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3175 yacc_rules = !yacc_rules; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3176 continue; |
4051
73aa16fc728d
(consider_token): was `==', now is `='.
Richard M. Stallman <rms@gnu.org>
parents:
3921
diff
changeset
|
3177 } |
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
|
3178 else |
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
|
3179 break; |
240 | 3180 case '#': |
9193
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3181 if (definedef == dnone) |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3182 { |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3183 char *cp; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3184 bool cpptoken = TRUE; |
9193
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3185 |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3186 /* Look back on this line. If all blanks, or nonblanks |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3187 followed by an end of comment, this is a preprocessor |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3188 token. */ |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3189 for (cp = newlb.buffer; cp < lp-1; cp++) |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3190 if (!iswhite (*cp)) |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3191 { |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3192 if (*cp == '*' && *(cp+1) == '/') |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3193 { |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3194 cp++; |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3195 cpptoken = TRUE; |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3196 } |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3197 else |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3198 cpptoken = FALSE; |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3199 } |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3200 if (cpptoken) |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3201 definedef = dsharpseen; |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3202 } /* if (definedef == dnone) */ |
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3203 |
240 | 3204 continue; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3205 } /* switch (c) */ |
240 | 3206 |
3207 | |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3208 /* 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
|
3209 if (typdef != tignore |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3210 && definedef != dignorerest |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3211 && fvdef != finlist |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3212 && structdef != sintemplate |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3213 && (definedef != dnone |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3214 || structdef != scolonseen)) |
240 | 3215 { |
3216 if (midtoken) | |
3217 { | |
3218 if (endtoken (c)) | |
3219 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3220 if (c == ':' && cplpl && *lp == ':' && begtoken (lp[1])) |
240 | 3221 { |
3222 /* | |
9193
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3223 * This handles :: in the middle, but not at the |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3224 * beginning of an identifier. Also, space-separated |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3225 * :: is not recognised. |
240 | 3226 */ |
3227 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
|
3228 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
|
3229 c = lp[-1]; |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
3230 goto still_in_token; |
240 | 3231 } |
3232 else | |
3233 { | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3234 bool funorvar = FALSE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3235 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3236 if (yacc_rules |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3237 || consider_token (newlb.buffer + tokoff, toklen, c, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3238 &c_ext, cblev, parlev, &funorvar)) |
240 | 3239 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3240 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
|
3241 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3242 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
|
3243 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
|
3244 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
|
3245 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
|
3246 while (*lp != '\0' |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
3247 && !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
|
3248 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
|
3249 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
|
3250 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
|
3251 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3252 token.named = FALSE; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3253 if ((c_ext & C_EXT) /* not pure C */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3254 && nestlev > 0 && definedef == dnone) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3255 /* 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
|
3256 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3257 write_classname (&token_name, qualifier); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3258 linebuffer_setlen (&token_name, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3259 token_name.len+qlen+toklen); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3260 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
|
3261 strncat (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3262 newlb.buffer + tokoff, toklen); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3263 token.named = TRUE; |
240 | 3264 } |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3265 else if (objdef == ocatseen) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3266 /* Objective C category */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3267 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3268 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
|
3269 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
|
3270 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
|
3271 strcat (token_name.buffer, "("); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3272 strncat (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3273 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
|
3274 strcat (token_name.buffer, ")"); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3275 token.named = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3276 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3277 else if (objdef == omethodtag |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3278 || objdef == omethodparm) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3279 /* Objective C method */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3280 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3281 token.named = TRUE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3282 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3283 else if (fvdef == fdefunname) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3284 /* GNU DEFUN and similar macros */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3285 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3286 bool defun = (newlb.buffer[tokoff] == 'F'); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3287 int off = tokoff; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3288 int len = toklen; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3289 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3290 /* 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
|
3291 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
|
3292 if (defun) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3293 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3294 off += 1; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3295 len -= 1; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3296 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3297 len = toklen; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3298 linebuffer_setlen (&token_name, len); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3299 strncpy (token_name.buffer, |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3300 newlb.buffer + off, len); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3301 token_name.buffer[len] = '\0'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3302 if (defun) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3303 while (--len >= 0) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3304 if (token_name.buffer[len] == '_') |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3305 token_name.buffer[len] = '-'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3306 token.named = defun; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3307 } |
240 | 3308 else |
3309 { | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3310 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
|
3311 strncpy (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3312 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
|
3313 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
|
3314 /* Name macros and members. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3315 token.named = (structdef == stagseen |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3316 || typdef == ttypeseen |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3317 || typdef == tend |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3318 || (funorvar |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3319 && definedef == dignorerest) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3320 || (funorvar |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3321 && definedef == dnone |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3322 && structdef == snone |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3323 && cblev > 0)); |
240 | 3324 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3325 token.lineno = lineno; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3326 token.offset = tokoff; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3327 token.length = toklen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3328 token.line = newlb.buffer; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3329 token.linepos = newlinepos; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3330 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
|
3331 |
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
|
3332 if (definedef == dnone |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3333 && (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
|
3334 || 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
|
3335 || structdef == stagseen |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3336 || typdef == tend |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3337 || typdef == ttypeseen |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3338 || objdef != onone)) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3339 { |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3340 if (current_lb_is_new) |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3341 switch_line_buffers (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3342 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3343 else if (definedef != dnone |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3344 || fvdef == fdefunname |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3345 || instruct) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3346 make_C_tag (funorvar); |
240 | 3347 } |
3348 midtoken = FALSE; | |
3349 } | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3350 } /* if (endtoken (c)) */ |
240 | 3351 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
|
3352 still_in_token: |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3353 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3354 toklen++; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3355 continue; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3356 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3357 } /* if (midtoken) */ |
240 | 3358 else if (begtoken (c)) |
3359 { | |
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
|
3360 switch (definedef) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3361 { |
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
|
3362 case dnone: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3363 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
|
3364 { |
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
|
3365 case fstartlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3366 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
|
3367 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
|
3368 case flistseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3369 make_C_tag (TRUE); /* a function */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3370 fvdef = fignore; |
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
|
3371 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3372 case fvnameseen: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3373 fvdef = fvnone; |
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
|
3374 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
|
3375 } |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
3376 if (structdef == stagseen && !cjava) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3377 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3378 popclass_above (cblev); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3379 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3380 } |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3381 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
|
3382 case dsharpseen: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3383 savetoken = token; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
3384 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3385 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3386 if (!yacc_rules || lp == newlb.buffer + 1) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3387 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3388 tokoff = lp - 1 - newlb.buffer; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3389 toklen = 1; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3390 midtoken = TRUE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3391 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3392 continue; |
10623
8a73e71a55e3
* etags.c (pfnote): Initialise been_warned in the node.
Francesco Potortì <pot@gnu.org>
parents:
10449
diff
changeset
|
3393 } /* if (begtoken) */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3394 } /* if must look at token */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3395 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3396 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3397 /* 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
|
3398 after having handled a token.*/ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3399 switch (c) |
401 | 3400 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3401 case ':': |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3402 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
|
3403 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3404 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
|
3405 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3406 } |
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
|
3407 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
|
3408 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3409 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3410 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3411 case otagseen: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3412 objdef = oignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3413 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
|
3414 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3415 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3416 case omethodparm: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3417 objdef = omethodcolon; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3418 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
|
3419 strcat (token_name.buffer, ":"); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3420 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3421 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3422 if (structdef == stagseen) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3423 structdef = scolonseen; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3424 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3425 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
|
3426 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
|
3427 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3428 switch (typdef) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
3429 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3430 case tend: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3431 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3432 make_C_tag (FALSE); /* a typedef */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3433 typdef = tnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3434 fvdef = fvnone; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3435 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3436 case tnone: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3437 case tinbody: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3438 case tignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3439 switch (fvdef) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3440 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3441 case fignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3442 if (typdef == tignore) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3443 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3444 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3445 case fvnameseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3446 if ((globals && cblev == 0 && (!fvextern || declarations)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3447 || (members && instruct)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3448 make_C_tag (FALSE); /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3449 fvextern = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3450 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3451 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3452 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3453 case flistseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3454 if ((declarations && typdef == tnone && !instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3455 || (members && typdef != tignore && instruct)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3456 make_C_tag (TRUE); /* a function declaration */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3457 /* FALLTHRU */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3458 default: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3459 fvextern = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3460 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3461 if (declarations |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3462 && structdef == stagseen && (c_ext & C_PLPL)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3463 make_C_tag (FALSE); /* forward declaration */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3464 else |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3465 /* The following instruction invalidates the token. |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3466 Probably the token should be invalidated in all other |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3467 cases where some state machine is reset prematurely. */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3468 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3469 } /* switch (fvdef) */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3470 /* FALLTHRU */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3471 default: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3472 if (!instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3473 typdef = tnone; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
3474 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3475 if (structdef == stagseen) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3476 structdef = snone; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3477 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3478 case ',': |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3479 if (definedef != dnone) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3480 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3481 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3482 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3483 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3484 case omethodparm: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3485 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
|
3486 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3487 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3488 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3489 switch (fvdef) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3490 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3491 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
|
3492 case foperator: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3493 case fstartlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3494 case finlist: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3495 case fignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3496 case vignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3497 break; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3498 case fdefunname: |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3499 fvdef = fignore; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3500 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3501 case fvnameseen: /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3502 if ((globals && cblev == 0 && (!fvextern || declarations)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3503 || (members && instruct)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3504 make_C_tag (FALSE); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3505 break; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3506 case flistseen: /* a function */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3507 if ((declarations && typdef == tnone && !instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3508 || (members && typdef != tignore && instruct)) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3509 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3510 make_C_tag (TRUE); /* a function declaration */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3511 fvdef = fvnameseen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3512 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3513 else if (!declarations) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3514 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3515 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3516 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3517 default: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3518 fvdef = fvnone; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3519 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3520 if (structdef == stagseen) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3521 structdef = snone; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3522 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3523 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
|
3524 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
|
3525 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3526 if (structdef == stagseen) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3527 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3528 switch (typdef) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3529 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3530 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3531 case tend: |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3532 typdef = tignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3533 make_C_tag (FALSE); /* a typedef */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3534 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3535 case tnone: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3536 case tinbody: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3537 switch (fvdef) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3538 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3539 case foperator: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3540 case finlist: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3541 case fignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3542 case vignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3543 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3544 case fvnameseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3545 if ((members && cblev == 1) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3546 || (globals && cblev == 0 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3547 && (!fvextern || declarations))) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3548 make_C_tag (FALSE); /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3549 /* FALLTHRU */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3550 default: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3551 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3552 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3553 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3554 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3555 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3556 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
|
3557 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
|
3558 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3559 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
|
3560 objdef = oparenseen; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3561 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
|
3562 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3563 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
|
3564 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
|
3565 && *lp != '*' |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3566 && !instruct) |
9193
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3567 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3568 /* 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
|
3569 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
|
3570 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
|
3571 typdef = tignore; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3572 fvdef = fignore; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3573 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
|
3574 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3575 /* 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
|
3576 case foperator: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3577 fvdef = fstartlist; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3578 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3579 case flistseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3580 fvdef = finlist; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3581 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
|
3582 } |
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
|
3583 parlev++; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3584 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3585 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
|
3586 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
|
3587 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3588 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
|
3589 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3590 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
|
3591 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3592 } |
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
|
3593 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
|
3594 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3595 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
|
3596 { |
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
|
3597 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
|
3598 case finlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3599 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
|
3600 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
|
3601 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3602 if (!instruct |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3603 && (typdef == tend |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3604 || typdef == ttypeseen)) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3605 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3606 typdef = tignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3607 make_C_tag (FALSE); /* a typedef */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3608 } |
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
|
3609 } |
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 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
|
3611 parlev = 0; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3612 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3613 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
|
3614 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
|
3615 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
|
3616 if (typdef == ttypeseen) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3617 { |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3618 /* Whenever typdef is set to tinbody (currently only |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3619 here), typdefcblev should be set to cblev. */ |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3620 typdef = tinbody; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3621 typdefcblev = cblev; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3622 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3623 switch (fvdef) |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3624 { |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3625 case flistseen: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3626 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
|
3627 /* FALLTHRU */ |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3628 case fignore: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3629 fvdef = fvnone; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3630 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3631 case fvnone: |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3632 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3633 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3634 case otagseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3635 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
|
3636 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3637 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3638 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3639 case omethodparm: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3640 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
|
3641 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3642 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3643 default: |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
3644 /* Neutralize `extern "C" {' grot. */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3645 if (cblev == 0 && structdef == snone && nestlev == 0 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3646 && typdef == tnone) |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3647 cblev = -1; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3648 } |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
3649 break; |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3650 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3651 switch (structdef) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3652 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3653 case skeyseen: /* unnamed struct */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3654 pushclass_above (cblev, NULL, 0); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3655 structdef = snone; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3656 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3657 case stagseen: /* named struct or enum */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3658 case scolonseen: /* a class */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3659 pushclass_above (cblev, token.line+token.offset, token.length); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3660 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3661 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
|
3662 break; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3663 } |
4051
73aa16fc728d
(consider_token): was `==', now is `='.
Richard M. Stallman <rms@gnu.org>
parents:
3921
diff
changeset
|
3664 cblev++; |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3665 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3666 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
|
3667 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
|
3668 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3669 if (fvdef == fstartlist) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3670 fvdef = fvnone; /* avoid tagging `foo' in `foo (*bar()) ()' */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3671 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3672 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
|
3673 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
|
3674 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3675 if (!noindentypedefs && 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
|
3676 { |
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
|
3677 cblev = 0; /* reset curly brace level if first column */ |
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
|
3678 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
|
3679 } |
4051
73aa16fc728d
(consider_token): was `==', now is `='.
Richard M. Stallman <rms@gnu.org>
parents:
3921
diff
changeset
|
3680 else if (cblev > 0) |
73aa16fc728d
(consider_token): was `==', now is `='.
Richard M. Stallman <rms@gnu.org>
parents:
3921
diff
changeset
|
3681 cblev--; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3682 popclass_above (cblev); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3683 structdef = snone; |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3684 /* Only if typdef == tinbody is typdefcblev significant. */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3685 if (typdef == tinbody && cblev <= typdefcblev) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3686 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3687 assert (cblev == typdefcblev); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3688 typdef = tend; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3689 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3690 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3691 case '=': |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3692 if (definedef != dnone) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3693 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3694 switch (fvdef) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3695 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3696 case foperator: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3697 case finlist: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3698 case fignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3699 case vignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3700 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3701 case 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
|
3702 if ((members && cblev == 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
|
3703 || (globals && cblev == 0 && (!fvextern || declarations))) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3704 make_C_tag (FALSE); /* a variable */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3705 /* FALLTHRU */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3706 default: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3707 fvdef = vignore; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3708 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3709 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3710 case '<': |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3711 if (cplpl && structdef == stagseen) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3712 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3713 structdef = sintemplate; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3714 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3715 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3716 goto resetfvdef; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3717 case '>': |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3718 if (structdef == sintemplate) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3719 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3720 structdef = stagseen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3721 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3722 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3723 goto resetfvdef; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3724 case '+': |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3725 case '-': |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3726 if (objdef == oinbody && cblev == 0) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3727 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3728 objdef = omethodsign; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3729 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3730 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3731 /* FALLTHRU */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3732 resetfvdef: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3733 case '#': case '~': case '&': case '%': case '/': case '|': |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3734 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
|
3735 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
|
3736 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
|
3737 /* 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
|
3738 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
|
3739 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3740 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
|
3741 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
|
3742 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
|
3743 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
|
3744 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
|
3745 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
|
3746 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
|
3747 } |
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
|
3748 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3749 case '\0': |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3750 if (objdef == otagseen) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3751 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3752 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
|
3753 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3754 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3755 /* 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
|
3756 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
|
3757 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3758 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
|
3759 CNL (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3760 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3761 } /* switch (c) */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3762 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3763 } /* while not eof */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3764 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3765 free (token_name.buffer); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3766 free (lbs[0].lb.buffer); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3767 free (lbs[1].lb.buffer); |
240 | 3768 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3769 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3770 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3771 * 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
|
3772 * 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
|
3773 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3774 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
|
3775 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
|
3776 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3777 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3778 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
|
3779 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3780 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3781 /* 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
|
3782 static void |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3783 plain_C_entries (inf) |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3784 FILE *inf; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3785 { |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3786 C_entries (0, inf); |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3787 } |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3788 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3789 /* Always do C++. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3790 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
|
3791 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
|
3792 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3793 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3794 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
|
3795 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3796 |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
3797 /* Always do Java. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3798 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3799 Cjava_entries (inf) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3800 FILE *inf; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
3801 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
3802 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
|
3803 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
3804 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3805 /* Always do C*. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3806 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
|
3807 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
|
3808 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3809 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3810 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
|
3811 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3812 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3813 /* Always do Yacc. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3814 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
|
3815 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
|
3816 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3817 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3818 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
|
3819 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3820 |
240 | 3821 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
3822 /* 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
|
3823 #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
|
3824 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
|
3825 !feof (file_pointer) /* loop test */ \ |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
3826 && /* instructions at start of loop */ \ |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
3827 (readline (&line_buffer, file_pointer), \ |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
3828 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
|
3829 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
|
3830 ) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
3831 #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
|
3832 (strneq ((cp), keyword, sizeof(keyword)-1) /* cp points at keyword */ \ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3833 && notinname ((cp)[sizeof(keyword)-1]) /* end of keyword */ \ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3834 && ((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
|
3835 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3836 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3837 * 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
|
3838 * 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
|
3839 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3840 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
|
3841 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
|
3842 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
|
3843 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3844 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
|
3845 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3846 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
|
3847 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
|
3848 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3849 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3850 |
240 | 3851 /* Fortran parsing */ |
3852 | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3853 static void F_takeprec __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3854 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
|
3855 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3856 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3857 F_takeprec () |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3858 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3859 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3860 if (*dbp != '*') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3861 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3862 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
|
3863 dbp = skip_spaces (dbp); |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3864 if (strneq (dbp, "(*)", 3)) |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3865 { |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3866 dbp += 3; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3867 return; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3868 } |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
3869 if (!ISDIGIT (*dbp)) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3870 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3871 --dbp; /* force failure */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3872 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3873 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3874 do |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3875 dbp++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
3876 while (ISDIGIT (*dbp)); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3877 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3878 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3879 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3880 F_getit (inf) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3881 FILE *inf; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3882 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3883 register char *cp; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3884 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3885 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3886 if (*dbp == '\0') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3887 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
3888 readline (&lb, inf); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3889 dbp = lb.buffer; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3890 if (dbp[5] != '&') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3891 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3892 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
|
3893 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3894 } |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
3895 if (!ISALPHA (*dbp) && *dbp != '_' && *dbp != '$') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3896 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
|
3897 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
|
3898 continue; |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
3899 pfnote (savenstr (dbp, cp-dbp), TRUE, |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3900 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
|
3901 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3902 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3903 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3904 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3905 Fortran_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3906 FILE *inf; |
240 | 3907 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3908 LOOP_ON_INPUT_LINES (inf, lb, dbp) |
240 | 3909 { |
3910 if (*dbp == '%') | |
3911 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
|
3912 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
3913 if (*dbp == '\0') |
240 | 3914 continue; |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3915 switch (lowcase (*dbp)) |
240 | 3916 { |
3917 case 'i': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3918 if (nocase_tail ("integer")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3919 F_takeprec (); |
240 | 3920 break; |
3921 case 'r': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3922 if (nocase_tail ("real")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3923 F_takeprec (); |
240 | 3924 break; |
3925 case 'l': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3926 if (nocase_tail ("logical")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3927 F_takeprec (); |
240 | 3928 break; |
3929 case 'c': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3930 if (nocase_tail ("complex") || nocase_tail ("character")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3931 F_takeprec (); |
240 | 3932 break; |
3933 case 'd': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3934 if (nocase_tail ("double")) |
240 | 3935 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3936 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
3937 if (*dbp == '\0') |
240 | 3938 continue; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3939 if (nocase_tail ("precision")) |
240 | 3940 break; |
3941 continue; | |
3942 } | |
3943 break; | |
3944 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3945 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
3946 if (*dbp == '\0') |
240 | 3947 continue; |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
3948 switch (lowcase (*dbp)) |
240 | 3949 { |
3950 case 'f': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3951 if (nocase_tail ("function")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3952 F_getit (inf); |
240 | 3953 continue; |
3954 case 's': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3955 if (nocase_tail ("subroutine")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3956 F_getit (inf); |
240 | 3957 continue; |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
3958 case 'e': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3959 if (nocase_tail ("entry")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3960 F_getit (inf); |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
3961 continue; |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
3962 case 'b': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3963 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
|
3964 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3965 dbp = skip_spaces (dbp); |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
3966 if (*dbp == '\0') /* assume un-named */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3967 pfnote (savestr ("blockdata"), 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
|
3968 lb.buffer, dbp - lb.buffer, lineno, linecharno); |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
3969 else |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3970 F_getit (inf); /* look for name */ |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
3971 } |
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
3972 continue; |
240 | 3973 } |
3974 } | |
3975 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3976 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3977 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3978 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3979 * Ada parsing |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3980 * Original code by |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3981 * Philippe Waroquiers <philippe.waroquiers@eurocontrol.be> (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
|
3982 */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
3983 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3984 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
|
3985 |
26262
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 /* 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
|
3987 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
|
3988 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
3989 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
|
3990 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
|
3991 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
|
3992 { |
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 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
|
3994 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
|
3995 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
|
3996 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3997 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
|
3998 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3999 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
|
4000 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
|
4001 || (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
|
4002 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4003 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
|
4004 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
|
4005 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4006 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
|
4007 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4008 case 'b': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4009 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
|
4010 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4011 /* 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
|
4012 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
|
4013 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
|
4014 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
|
4015 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4016 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
|
4017 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
|
4018 /* Skipping type of task type or protected type ... */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4019 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
|
4020 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
|
4021 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
|
4022 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4023 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
|
4024 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4025 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
|
4026 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
|
4027 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
|
4028 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4029 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
|
4030 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4031 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
|
4032 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
|
4033 (*cp != '\0' |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4034 && (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
|
4035 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
|
4036 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
|
4037 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
|
4038 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
|
4039 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4040 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
|
4041 *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
|
4042 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
|
4043 *cp = 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
|
4044 pfnote (name, TRUE, lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4045 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
|
4046 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
|
4047 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
|
4048 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4049 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4050 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4051 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
|
4052 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
|
4053 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
|
4054 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4055 bool 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
|
4056 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4057 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
|
4058 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4059 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
|
4060 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4061 /* 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
|
4062 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
|
4063 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4064 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
|
4065 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
|
4066 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4067 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
|
4068 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
|
4069 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
|
4070 } |
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 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
|
4072 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4073 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
|
4074 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
|
4075 } |
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 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4077 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4078 /* 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
|
4079 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
|
4080 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
|
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 /* 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
|
4083 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
|
4084 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
|
4085 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4086 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
|
4087 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
|
4088 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
|
4089 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
|
4090 } |
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 /* 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
|
4093 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
|
4094 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4095 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
|
4096 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
|
4097 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4098 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4099 /* We are at the beginning of a token. */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4100 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
|
4101 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4102 case 'f': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4103 if (!packages_only && nocase_tail ("function")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4104 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
|
4105 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
|
4106 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
|
4107 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
|
4108 case 'p': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4109 if (!packages_only && nocase_tail ("procedure")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4110 Ada_getit (inf, "/p"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4111 else if (nocase_tail ("package")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4112 Ada_getit (inf, "/s"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4113 else if (nocase_tail ("protected")) /* protected type */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4114 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
|
4115 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
|
4116 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
|
4117 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
|
4118 case 't': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4119 if (!packages_only && nocase_tail ("task")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4120 Ada_getit (inf, "/k"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4121 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
|
4122 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4123 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
|
4124 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
|
4125 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
|
4126 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4127 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
|
4128 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
|
4129 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
|
4130 } |
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 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4132 /* 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
|
4133 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
|
4134 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
|
4135 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4136 } /* 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
|
4137 } /* 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
|
4138 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4139 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4140 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4141 /* |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4142 * Unix and microcontroller assembly tag handling |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4143 * Labels: /^[a-zA-Z_.$][a-zA_Z0-9_.$]*[: ^I^J]/ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4144 * 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
|
4145 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4146 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4147 Asm_labels (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4148 FILE *inf; |
240 | 4149 { |
4150 register char *cp; | |
4151 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4152 LOOP_ON_INPUT_LINES (inf, lb, cp) |
240 | 4153 { |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4154 /* 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
|
4155 following identifier. */ |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4156 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
|
4157 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4158 /* Read past label. */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4159 cp++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4160 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
|
4161 cp++; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4162 if (*cp == ':' || iswhite (*cp)) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4163 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4164 /* Found end of label, so copy it and add it to the table. */ |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4165 pfnote (savenstr(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
|
4166 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
|
4167 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4168 } |
240 | 4169 } |
4170 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4171 |
240 | 4172 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4173 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4174 * Perl support |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4175 * 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
|
4176 * Perl variable names: /^(my|local).../ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4177 * Original code by Bart Robinson <lomew@cs.utah.edu> (1995) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4178 * Additions by Michael Ernst <mernst@alum.mit.edu> (1997) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4179 * 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
|
4180 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4181 static void |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4182 Perl_functions (inf) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4183 FILE *inf; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4184 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4185 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
|
4186 register char *cp; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4187 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4188 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
|
4189 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4190 skip_spaces(cp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4191 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4192 if (LOOKING_AT (cp, "package")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4193 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4194 free (package); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4195 package = get_tag (cp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4196 if (package == NULL) /* can't parse package name */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4197 package = savestr (""); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4198 else |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4199 package = savestr(package); /* make a copy */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4200 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4201 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
|
4202 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4203 char *name, *fullname, *pos; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4204 char *sp = cp; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4205 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4206 while (!notinname (*cp)) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4207 cp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4208 if (cp == sp) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4209 continue; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4210 name = savenstr (sp, cp-sp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4211 if ((pos = etags_strchr (name, ':')) != NULL && pos[1] == ':') |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4212 fullname = name; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4213 else |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4214 fullname = concat (package, "::", name); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4215 pfnote (fullname, TRUE, |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4216 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4217 if (name != fullname) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4218 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
|
4219 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4220 else if (globals /* only if tagging global vars is enabled */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4221 && (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
|
4222 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4223 /* After "my" or "local", but before any following paren or space. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4224 char *varname = 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
|
4225 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4226 if (*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
|
4227 { |
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 char* varstart = ++cp; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4229 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
|
4230 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
|
4231 varname = savenstr (varstart, cp-varstart); |
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 } |
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 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
|
4234 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4235 /* 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
|
4236 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
|
4237 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
|
4238 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
|
4239 } |
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 |
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 /* Perhaps I should back cp up one character, so the TAGS table |
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 doesn't mention (and so depend upon) the following char. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
4243 pfnote (varname, FALSE, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
4244 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
|
4245 } |
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 } |
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 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4248 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4249 |
26262
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 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4251 * Python support |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4252 * 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
|
4253 * 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
|
4254 * 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
|
4255 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4256 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
|
4257 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
|
4258 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
|
4259 { |
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 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
|
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 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
|
4263 { |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4264 cp = skip_spaces (cp); |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4265 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
|
4266 { |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4267 char *name = cp; |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4268 while (!notinname (*cp) && *cp != ':') |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4269 cp++; |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4270 pfnote (savenstr (name, cp-name), TRUE, |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4271 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4272 } |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4273 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4274 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4275 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4276 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4277 /* |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4278 * PHP support |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4279 * Look for: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4280 * - /^[ \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
|
4281 * - /^[ \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
|
4282 * - /^[ \t]*define\(\"[^\"]+/ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4283 * Only with --members: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4284 * - /^[ \t]*var[ \t\n]+\$[^ \t\n=;]/ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4285 * 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
|
4286 */ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4287 static void |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4288 PHP_functions (inf) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4289 FILE *inf; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4290 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4291 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
|
4292 bool search_identifier = FALSE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4293 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4294 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
|
4295 { |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4296 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
|
4297 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4298 if (search_identifier |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4299 && *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
|
4300 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4301 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
|
4302 cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4303 pfnote (savenstr (name, cp-name), TRUE, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4304 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
|
4305 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
|
4306 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4307 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
|
4308 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4309 if(*cp == '&') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4310 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
|
4311 if(*cp != '\0') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4312 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4313 name = cp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4314 while (!notinname (*cp)) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4315 cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4316 pfnote (savenstr (name, cp-name), TRUE, |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4317 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4318 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4319 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4320 search_identifier = TRUE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4321 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4322 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
|
4323 { |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4324 if (*cp != '\0') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4325 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4326 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4327 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
|
4328 cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4329 pfnote (savenstr (name, cp-name), FALSE, |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4330 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4331 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4332 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4333 search_identifier = TRUE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4334 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4335 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
|
4336 && (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
|
4337 && *cp++ == '(' |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4338 && (*cp == '"' || *cp == '\'')) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4339 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4340 char quote = *cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4341 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4342 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
|
4343 cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4344 pfnote (savenstr (name, cp-name), FALSE, |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4345 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4346 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4347 else if (members |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4348 && LOOKING_AT (cp, "var") |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4349 && *cp == '$') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4350 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4351 name = cp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4352 while (!notinname(*cp)) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4353 cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4354 pfnote (savenstr (name, cp-name), FALSE, |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4355 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4356 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4357 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4358 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4359 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4360 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4361 /* |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4362 * Cobol tag functions |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4363 * 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
|
4364 * 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
|
4365 * Idea by Corny de Souza (1993) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4366 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4367 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4368 Cobol_paragraphs (inf) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4369 FILE *inf; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4370 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4371 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
|
4372 |
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 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
|
4374 { |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4375 if (lb.len < 9) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4376 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
|
4377 bp += 8; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4378 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4379 /* 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
|
4380 if (bp[-1] != ' ' || !ISALNUM (bp[0])) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4381 continue; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4382 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4383 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
|
4384 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
|
4385 if (*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
|
4386 pfnote (savenstr (bp, ep-bp), 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
|
4387 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
|
4388 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4389 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4390 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4391 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4392 /* |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4393 * Makefile support |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4394 * 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
|
4395 */ |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4396 static void |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4397 Makefile_targets (inf) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4398 FILE *inf; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4399 { |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4400 register char *bp; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4401 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4402 LOOP_ON_INPUT_LINES (inf, lb, bp) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4403 { |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4404 if (*bp == '\t' || *bp == '#') |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4405 continue; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4406 while (*bp != '\0' && *bp != '=' && *bp != ':') |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4407 bp++; |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4408 if (*bp == ':' || (globals && *bp == '=')) |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4409 pfnote (savenstr (lb.buffer, bp - lb.buffer), TRUE, |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4410 lb.buffer, bp - lb.buffer + 1, lineno, linecharno); |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4411 } |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4412 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4413 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4414 |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4415 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4416 * Pascal parsing |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4417 * Original code by Mosur K. Mohan (1989) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4418 * |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4419 * 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
|
4420 * 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
|
4421 * "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
|
4422 * the tag is skipped. |
240 | 4423 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4424 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4425 Pascal_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4426 FILE *inf; |
240 | 4427 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4428 linebuffer tline; /* mostly copied from C_entries */ |
240 | 4429 long save_lcno; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4430 int save_lineno, save_len; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4431 char c, *cp, *namebuf; |
240 | 4432 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4433 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
|
4434 incomment, /* point is inside a comment */ |
240 | 4435 inquote, /* point is inside '..' string */ |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4436 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
|
4437 keyword, so next item = potential tag */ |
240 | 4438 found_tag, /* point is after a potential tag */ |
4439 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
|
4440 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
|
4441 next token will determine whether this |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4442 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
|
4443 whether it is a real tag */ |
240 | 4444 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4445 save_lcno = save_lineno = save_len = 0; /* keep compiler quiet */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4446 namebuf = NULL; /* keep compiler quiet */ |
240 | 4447 dbp = lb.buffer; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4448 *dbp = '\0'; |
240 | 4449 initbuffer (&tline); |
4450 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4451 incomment = inquote = FALSE; |
240 | 4452 found_tag = FALSE; /* have a proc name; check if extern */ |
4453 get_tagname = FALSE; /* have found "procedure" keyword */ | |
4454 inparms = FALSE; /* found '(' after "proc" */ | |
4455 verify_tag = FALSE; /* check if "extern" is ahead */ | |
4456 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4457 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4458 while (!feof (inf)) /* long main loop to get next char */ |
240 | 4459 { |
4460 c = *dbp++; | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4461 if (c == '\0') /* if end of line */ |
240 | 4462 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4463 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
|
4464 dbp = lb.buffer; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4465 if (*dbp == '\0') |
240 | 4466 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
|
4467 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
|
4468 || get_tagname)) |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4469 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
|
4470 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
|
4471 the procedure or function */ |
240 | 4472 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4473 if (incomment) |
240 | 4474 { |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4475 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
|
4476 incomment = FALSE; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4477 else if (c == '*' && *dbp == ')') /* within (* *) comments */ |
240 | 4478 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4479 dbp++; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4480 incomment = FALSE; |
240 | 4481 } |
4482 continue; | |
4483 } | |
4484 else if (inquote) | |
4485 { | |
4486 if (c == '\'') | |
4487 inquote = FALSE; | |
4488 continue; | |
4489 } | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4490 else |
240 | 4491 switch (c) |
4492 { | |
4493 case '\'': | |
4494 inquote = TRUE; /* found first quote */ | |
4495 continue; | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4496 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
|
4497 incomment = TRUE; |
240 | 4498 continue; |
4499 case '(': | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4500 if (*dbp == '*') /* found open (* comment */ |
240 | 4501 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4502 incomment = TRUE; |
240 | 4503 dbp++; |
4504 } | |
4505 else if (found_tag) /* found '(' after tag, i.e., parm-list */ | |
4506 inparms = TRUE; | |
4507 continue; | |
4508 case ')': /* end of parms list */ | |
4509 if (inparms) | |
4510 inparms = FALSE; | |
4511 continue; | |
4512 case ';': | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4513 if (found_tag && !inparms) /* end of proc or fn stmt */ |
240 | 4514 { |
4515 verify_tag = TRUE; | |
4516 break; | |
4517 } | |
4518 continue; | |
4519 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4520 if (found_tag && verify_tag && (*dbp != ' ')) |
240 | 4521 { |
4522 /* 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
|
4523 if (*dbp == '\0') |
240 | 4524 continue; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4525 if (lowcase (*dbp == 'e')) |
240 | 4526 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4527 if (nocase_tail ("extern")) /* superfluous, really! */ |
240 | 4528 { |
4529 found_tag = FALSE; | |
4530 verify_tag = FALSE; | |
4531 } | |
4532 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4533 else if (lowcase (*dbp) == 'f') |
240 | 4534 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4535 if (nocase_tail ("forward")) /* check for forward reference */ |
240 | 4536 { |
4537 found_tag = FALSE; | |
4538 verify_tag = FALSE; | |
4539 } | |
4540 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4541 if (found_tag && verify_tag) /* not external proc, so make tag */ |
240 | 4542 { |
4543 found_tag = FALSE; | |
4544 verify_tag = FALSE; | |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4545 pfnote (namebuf, TRUE, |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4546 tline.buffer, save_len, save_lineno, save_lcno); |
240 | 4547 continue; |
4548 } | |
4549 } | |
4550 if (get_tagname) /* grab name of proc or fn */ | |
4551 { | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4552 if (*dbp == '\0') |
240 | 4553 continue; |
4554 | |
4555 /* 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
|
4556 linebuffer_setlen (&tline, lb.len); |
240 | 4557 strcpy (tline.buffer, lb.buffer); |
4558 save_lineno = lineno; | |
4559 save_lcno = linecharno; | |
4560 | |
4561 /* grab block name */ | |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4562 for (cp = dbp + 1; *cp != '\0' && !endtoken (*cp); cp++) |
240 | 4563 continue; |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4564 namebuf = savenstr (dbp, cp-dbp); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4565 dbp = cp; /* set dbp to e-o-token */ |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4566 save_len = dbp - lb.buffer + 1; |
240 | 4567 get_tagname = FALSE; |
4568 found_tag = TRUE; | |
4569 continue; | |
4570 | |
4571 /* and proceed to check for "extern" */ | |
4572 } | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4573 else if (!incomment && !inquote && !found_tag) |
240 | 4574 { |
4575 /* check for proc/fn keywords */ | |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4576 switch (lowcase (c)) |
240 | 4577 { |
4578 case 'p': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4579 if (nocase_tail ("rocedure")) /* c = 'p', dbp has advanced */ |
240 | 4580 get_tagname = TRUE; |
4581 continue; | |
4582 case 'f': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4583 if (nocase_tail ("unction")) |
240 | 4584 get_tagname = TRUE; |
4585 continue; | |
4586 } | |
4587 } | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4588 } /* while not eof */ |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
4589 |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4590 free (tline.buffer); |
240 | 4591 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4592 |
240 | 4593 |
4594 /* | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4595 * Lisp tag functions |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4596 * look for (def or (DEF, quote or QUOTE |
240 | 4597 */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4598 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4599 static void L_getit __P((void)); |
240 | 4600 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4601 static void |
240 | 4602 L_getit () |
4603 { | |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4604 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
|
4605 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
|
4606 else if (*dbp == '(') |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4607 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4608 dbp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4609 /* Try to skip "(quote " */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4610 if (!LOOKING_AT (dbp, "quote") && !LOOKING_AT (dbp, "QUOTE")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4611 /* Ok, then skip "(" before name in (defstruct (foo)) */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4612 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
|
4613 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4614 get_tag (dbp); |
240 | 4615 } |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4616 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4617 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4618 Lisp_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4619 FILE *inf; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4620 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4621 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
|
4622 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4623 if (dbp[0] != '(') |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4624 continue; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4625 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4626 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
|
4627 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4628 dbp = skip_non_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4629 dbp = skip_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4630 L_getit (); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4631 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4632 else |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4633 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4634 /* Check for (foo::defmumble name-defined ... */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4635 do |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4636 dbp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4637 while (!notinname (*dbp) && *dbp != ':'); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4638 if (*dbp == ':') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4639 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4640 do |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4641 dbp++; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4642 while (*dbp == ':'); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4643 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4644 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
|
4645 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4646 dbp = skip_non_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4647 dbp = skip_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4648 L_getit (); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4649 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4650 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4651 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4652 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4653 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4654 |
240 | 4655 |
4656 /* | |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4657 * Postscript tag functions |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4658 * 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
|
4659 * Also look at "defineps" for PSWrap |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4660 * Ideas by: |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4661 * Richard Mlynarik <mly@adoc.xerox.com> (1997) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4662 * 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
|
4663 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4664 static void |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4665 Postscript_functions (inf) |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4666 FILE *inf; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4667 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4668 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
|
4669 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4670 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
|
4671 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4672 if (bp[0] == '/') |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4673 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4674 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
|
4675 *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
|
4676 ep++) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4677 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
|
4678 pfnote (savenstr (bp, ep-bp), 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
|
4679 lb.buffer, ep - lb.buffer + 1, lineno, linecharno); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4680 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4681 else if (LOOKING_AT (bp, "defineps")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4682 get_tag (bp); |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4683 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4684 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4685 |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4686 |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4687 /* |
240 | 4688 * Scheme tag functions |
4689 * look for (def... xyzzy | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4690 * (def... (xyzzy |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4691 * (def ... ((...(xyzzy .... |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4692 * (set! xyzzy |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4693 * Original code by Ken Haase (1985?) |
240 | 4694 */ |
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 Scheme_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 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
|
4701 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4702 LOOP_ON_INPUT_LINES (inf, lb, bp) |
240 | 4703 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4704 if (strneq (bp, "(def", 4) || strneq (bp, "(DEF", 4)) |
240 | 4705 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4706 bp = skip_non_spaces (bp+4); |
240 | 4707 /* Skip over open parens and white space */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4708 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
|
4709 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
|
4710 get_tag (bp); |
240 | 4711 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4712 if (LOOKING_AT (bp, "(SET!") || LOOKING_AT (bp, "(set!")) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4713 get_tag (bp); |
240 | 4714 } |
4715 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4716 |
240 | 4717 |
4718 /* Find tags in TeX and LaTeX input files. */ | |
4719 | |
4720 /* 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
|
4721 * Each entry records one such control sequence. |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4722 * |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4723 * Original code from who knows whom. |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4724 * Ideas by: |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4725 * Stefan Monnier (2002) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4726 */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4727 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4728 static linebuffer *TEX_toktab = NULL; /* Table with tag tokens */ |
240 | 4729 |
4730 /* Default set of control sequences to put into TEX_toktab. | |
4731 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
|
4732 static char *TEX_defenv = "\ |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
4733 :chapter:section:subsection:subsubsection:eqno:label:ref:cite:bibitem\ |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4734 :part:appendix:entry:index:def\ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4735 :newcommand:renewcommand:newenvironment:renewenvironment"; |
240 | 4736 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4737 static void TEX_mode __P((FILE *)); |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4738 static void TEX_decode_env __P((char *, char *)); |
240 | 4739 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
4740 static char TEX_esc = '\\'; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
4741 static char TEX_opgrp = '{'; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
4742 static char TEX_clgrp = '}'; |
240 | 4743 |
4744 /* | |
4745 * TeX/LaTeX scanning loop. | |
4746 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4747 static void |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4748 TeX_commands (inf) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4749 FILE *inf; |
240 | 4750 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4751 char *cp; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4752 linebuffer *key; |
240 | 4753 |
4754 /* 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
|
4755 TEX_mode (inf); |
240 | 4756 |
4757 /* Initialize token table once from environment. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4758 if (TEX_toktab == NULL) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4759 TEX_decode_env ("TEXTAGS", TEX_defenv); |
240 | 4760 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4761 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
|
4762 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4763 /* Look at each TEX keyword in line. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4764 for (;;) |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
4765 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4766 /* Look for a TEX escape. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4767 while (*cp++ != TEX_esc) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4768 if (cp[-1] == '\0' || cp[-1] == '%') |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4769 goto tex_next_line; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4770 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4771 for (key = TEX_toktab; key->buffer != NULL; key++) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4772 if (strneq (cp, key->buffer, key->len)) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4773 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4774 register char *p; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4775 char *name; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4776 int linelen; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4777 bool opgrp = FALSE; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4778 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4779 cp = skip_spaces (cp + key->len); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4780 if (*cp == TEX_opgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4781 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4782 opgrp = TRUE; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4783 cp++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4784 } |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4785 for (p = cp; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4786 (!iswhite (*p) && *p != '#' && |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4787 *p != TEX_opgrp && *p != TEX_clgrp); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4788 p++) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4789 continue; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4790 name = savenstr (cp, p-cp); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4791 linelen = lb.len; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4792 if (!opgrp || *p == TEX_clgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4793 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4794 while (*p != '\0' && *p != TEX_opgrp && *p != TEX_clgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4795 *p++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4796 linelen = p - lb.buffer + 1; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4797 } |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4798 pfnote (name, TRUE, lb.buffer, linelen, lineno, linecharno); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4799 goto tex_next_line; /* We only tag a line once */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4800 } |
240 | 4801 } |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4802 tex_next_line: |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4803 ; |
240 | 4804 } |
4805 } | |
4806 | |
4807 #define TEX_LESC '\\' | |
4808 #define TEX_SESC '!' | |
4809 | |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4810 /* 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
|
4811 chars accordingly. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4812 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4813 TEX_mode (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4814 FILE *inf; |
240 | 4815 { |
4816 int c; | |
4817 | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4818 while ((c = getc (inf)) != EOF) |
240 | 4819 { |
4820 /* 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
|
4821 if (c == '%') |
240 | 4822 while (c != '\n') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4823 c = getc (inf); |
240 | 4824 else if (c == TEX_LESC || c == TEX_SESC ) |
4825 break; | |
4826 } | |
4827 | |
4828 if (c == TEX_LESC) | |
4829 { | |
4830 TEX_esc = TEX_LESC; | |
4831 TEX_opgrp = '{'; | |
4832 TEX_clgrp = '}'; | |
4833 } | |
4834 else | |
4835 { | |
4836 TEX_esc = TEX_SESC; | |
4837 TEX_opgrp = '<'; | |
4838 TEX_clgrp = '>'; | |
4839 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4840 /* 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
|
4841 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
|
4842 rewind (inf); |
240 | 4843 } |
4844 | |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4845 /* 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
|
4846 Build token table. */ |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4847 static void |
240 | 4848 TEX_decode_env (evarname, defenv) |
4849 char *evarname; | |
4850 char *defenv; | |
4851 { | |
4852 register char *env, *p; | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4853 int i, len; |
240 | 4854 |
4855 /* Append default string to environment. */ | |
4856 env = getenv (evarname); | |
4857 if (!env) | |
4858 env = defenv; | |
4859 else | |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4860 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4861 char *oldenv = env; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4862 env = concat (oldenv, defenv, ""); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4863 } |
240 | 4864 |
4865 /* Allocate a token table */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4866 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
|
4867 if ((p = etags_strchr (p, ':')) && *++p != '\0') |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4868 len++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4869 TEX_toktab = xnew (len, linebuffer); |
240 | 4870 |
4871 /* Unpack environment string into token table. Be careful about */ | |
4872 /* zero-length strings (leading ':', "::" and trailing ':') */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4873 for (i = 0; *env != '\0';) |
240 | 4874 { |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
4875 p = etags_strchr (env, ':'); |
240 | 4876 if (!p) /* End of environment string. */ |
4877 p = env + strlen (env); | |
4878 if (p - env > 0) | |
4879 { /* Only non-zero strings. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4880 TEX_toktab[i].buffer = savenstr (env, p - env); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4881 TEX_toktab[i].len = p - env; |
240 | 4882 i++; |
4883 } | |
4884 if (*p) | |
4885 env = p + 1; | |
4886 else | |
4887 { | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4888 TEX_toktab[i].buffer = NULL; /* Mark end of table. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
4889 TEX_toktab[i].len = 0; |
240 | 4890 break; |
4891 } | |
4892 } | |
4893 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4894 |
240 | 4895 |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
4896 /* Texinfo support. Dave Love, Mar. 2000. */ |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
4897 static void |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4898 Texinfo_nodes (inf) |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
4899 FILE * inf; |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
4900 { |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
4901 char *cp, *start; |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
4902 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
|
4903 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
|
4904 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4905 start = cp; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4906 while (*cp != '\0' && *cp != ',') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4907 cp++; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4908 pfnote (savenstr (start, cp - start), TRUE, |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4909 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4910 } |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
4911 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4912 |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
4913 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4914 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4915 * Prolog support |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4916 * |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4917 * Assumes that the predicate or rule starts at column 0. |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4918 * 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
|
4919 * Original code by Sunichirou Sugou (1989) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4920 * 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
|
4921 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4922 static int prolog_pr __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4923 static void prolog_skip_comment __P((linebuffer *, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4924 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
|
4925 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4926 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4927 Prolog_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4928 FILE *inf; |
240 | 4929 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4930 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
|
4931 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4932 int allocated; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4933 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4934 allocated = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4935 len = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4936 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4937 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4938 LOOP_ON_INPUT_LINES (inf, lb, cp) |
240 | 4939 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4940 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
|
4941 continue; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4942 else if (iswhite (cp[0])) /* Not a predicate */ |
240 | 4943 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
|
4944 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
|
4945 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
|
4946 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
|
4947 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4948 /* Predicate or rule. Store the function name so that we |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4949 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
|
4950 if (last == NULL) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4951 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
|
4952 else if (len + 1 > allocated) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4953 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
|
4954 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
|
4955 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
|
4956 last[len] = '\0'; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4957 } |
240 | 4958 } |
4959 } | |
4960 | |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4961 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4962 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4963 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
|
4964 linebuffer *plb; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4965 FILE *inf; |
240 | 4966 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4967 char *cp; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4968 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4969 do |
240 | 4970 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4971 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
|
4972 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
|
4973 return; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4974 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
|
4975 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4976 while (!feof(inf)); |
240 | 4977 } |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4978 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4979 /* |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4980 * 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
|
4981 * <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
|
4982 * 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
|
4983 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4984 * 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
|
4985 * 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
|
4986 * |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4987 * 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
|
4988 * 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
|
4989 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
4990 static int |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4991 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
|
4992 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4993 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
|
4994 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4995 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4996 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
4997 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4998 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
|
4999 if (pos < 1) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5000 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5001 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5002 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
|
5003 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
|
5004 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5005 if ((s[pos] == '.' |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5006 || (s[pos] == '(' && (pos += 1)) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5007 || (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
|
5008 && (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
|
5009 || len != strlen (last) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5010 || !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
|
5011 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5012 pfnote (savenstr (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
|
5013 return len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5014 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5015 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5016 return 0; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5017 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5018 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5019 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5020 * 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
|
5021 * 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
|
5022 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5023 * 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
|
5024 * - 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
|
5025 * - 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
|
5026 * Backslash quotes everything. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5027 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5028 static int |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5029 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
|
5030 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5031 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5032 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5033 int origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5034 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5035 origpos = pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5036 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5037 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
|
5038 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5039 /* 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
|
5040 pos++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5041 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
|
5042 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5043 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5044 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5045 return pos - origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5046 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5047 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
|
5048 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5049 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5050 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
5051 for (;;) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5052 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5053 if (s[pos] == '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5054 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5055 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5056 if (s[pos] != '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5057 break; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5058 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
|
5059 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5060 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
|
5061 /* 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
|
5062 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5063 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
|
5064 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5065 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
|
5066 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5067 pos += 2; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5068 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5069 else |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5070 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5071 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5072 return pos - origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5073 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5074 else |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5075 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5076 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5077 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5078 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5079 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5080 * 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
|
5081 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5082 * 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
|
5083 * Assumes that Erlang functions start at column 0. |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5084 * 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
|
5085 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5086 static int erlang_func __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5087 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
|
5088 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
|
5089 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5090 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5091 Erlang_functions (inf) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5092 FILE *inf; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5093 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5094 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
|
5095 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5096 int allocated; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5097 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5098 allocated = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5099 len = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5100 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5101 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5102 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
|
5103 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5104 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
|
5105 continue; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
5106 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
|
5107 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
|
5108 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
|
5109 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
|
5110 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
|
5111 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
|
5112 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
|
5113 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5114 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
|
5115 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5116 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5117 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
|
5118 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5119 /* |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5120 * 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
|
5121 * 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
|
5122 */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5123 if (last == NULL) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5124 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
|
5125 else if (len + 1 > allocated) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5126 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
|
5127 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
|
5128 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
|
5129 last[len] = '\0'; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5130 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5131 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5132 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5133 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5134 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5135 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5136 * 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
|
5137 * <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
|
5138 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5139 * 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
|
5140 * 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
|
5141 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5142 * 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
|
5143 * was found. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5144 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
5145 static int |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5146 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
|
5147 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5148 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
|
5149 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5150 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5151 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5152 |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5153 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
|
5154 if (pos < 1) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5155 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5156 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5157 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
|
5158 pos = skip_spaces (s + pos) - s; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5159 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5160 /* Save only the first clause. */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5161 if (s[pos++] == '(' |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5162 && (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
|
5163 || len != (int)strlen (last) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5164 || !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
|
5165 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5166 pfnote (savenstr (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
|
5167 return len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5168 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5169 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5170 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5171 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5172 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5173 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5174 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5175 * 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
|
5176 * and records. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5177 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5178 * 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
|
5179 * -define(foo, bar). |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5180 * -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
|
5181 * -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
|
5182 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5183 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5184 erlang_attribute (s) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5185 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5186 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5187 char *cp = s; |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5188 |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5189 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
|
5190 && *cp++ == '(') |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5191 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5192 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
|
5193 if (len > 0) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5194 pfnote (savenstr (cp, len), TRUE, |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5195 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
|
5196 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5197 return; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5198 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5199 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5200 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5201 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5202 * 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
|
5203 * 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
|
5204 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5205 static int |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5206 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
|
5207 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5208 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5209 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
|
5210 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5211 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
|
5212 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5213 /* The atom is unquoted. */ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5214 do |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5215 pos++; |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5216 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
|
5217 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5218 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
|
5219 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5220 for (pos++; s[pos] != '\''; pos++) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5221 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
|
5222 || (s[pos] == '\\' && s[++pos] == '\0')) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5223 return 0; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5224 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5225 } |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5226 |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5227 return pos; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5228 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5229 |
240 | 5230 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5231 #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
|
5232 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5233 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
|
5234 static void add_regex __P((char *, language *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5235 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
|
5236 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5237 /* |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5238 * 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
|
5239 * 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
|
5240 * 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
|
5241 * 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
|
5242 * 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
|
5243 * 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
|
5244 * unterminated regexps. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5245 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5246 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
|
5247 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
|
5248 char *name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5249 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5250 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
|
5251 char *copyto = name; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5252 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
|
5253 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5254 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
|
5255 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5256 if (quoted) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5257 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5258 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
|
5259 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5260 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
|
5261 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
|
5262 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
|
5263 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
|
5264 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
|
5265 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
|
5266 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
|
5267 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
|
5268 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
|
5269 default: |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5270 if (*name == sep) |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5271 *copyto++ = sep; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5272 else |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5273 { |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5274 /* Something else is quoted, so preserve the quote. */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5275 *copyto++ = '\\'; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5276 *copyto++ = *name; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5277 } |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5278 break; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5279 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5280 quoted = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5281 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5282 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
|
5283 quoted = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5284 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
|
5285 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5286 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5287 *copyto++ = *name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5288 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5289 if (*name != sep) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5290 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
|
5291 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5292 /* 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
|
5293 *copyto = '\0'; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5294 return name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5295 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5296 |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5297 /* 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
|
5298 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
|
5299 static void |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5300 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
|
5301 char *regex_arg; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5302 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5303 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
|
5304 { |
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5305 free_patterns (); /* --no-regex: remove existing regexps */ |
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5306 return; |
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5307 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5308 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5309 /* 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
|
5310 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
|
5311 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5312 /* 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
|
5313 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
|
5314 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
|
5315 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
|
5316 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
|
5317 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5318 /* 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
|
5319 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
|
5320 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
|
5321 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5322 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
|
5323 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
|
5324 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
|
5325 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5326 /* 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
|
5327 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
|
5328 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
|
5329 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5330 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
|
5331 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
|
5332 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5333 initbuffer (®exbuf); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5334 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
|
5335 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
|
5336 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
|
5337 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
|
5338 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5339 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
|
5340 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5341 /* 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
|
5342 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
|
5343 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5344 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
|
5345 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
|
5346 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
|
5347 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5348 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
|
5349 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
|
5350 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5351 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
|
5352 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
|
5353 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5354 *cp++ = '\0'; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5355 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
|
5356 if (lang == NULL) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5357 return; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5358 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
|
5359 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5360 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
|
5361 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5362 /* 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
|
5363 default: |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5364 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
|
5365 break; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5366 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5367 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5368 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5369 /* Turn a name, which is an ed-style (but Emacs syntax) regular |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5370 expression, into a real regular expression by compiling it. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5371 static void |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5372 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
|
5373 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
|
5374 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
|
5375 { |
37719
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
5376 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
|
5377 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
|
5378 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
|
5379 struct re_pattern_buffer *patbuf; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5380 pattern *pp; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5381 bool ignore_case, multi_line, single_line; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5382 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5383 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5384 if (strlen(regexp_pattern) < 3) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5385 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5386 error ("null regexp", (char *)NULL); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5387 return; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5388 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5389 sep = regexp_pattern[0]; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5390 name = scan_separators (regexp_pattern); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5391 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
|
5392 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5393 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
|
5394 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5395 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5396 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
|
5397 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5398 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
|
5399 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5400 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5401 modifiers = scan_separators (name); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5402 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
|
5403 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5404 modifiers = name; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5405 name = ""; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5406 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5407 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5408 modifiers += 1; /* skip separator */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5409 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5410 /* Parse regex modifiers. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5411 ignore_case = FALSE; /* case is significant */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5412 multi_line = FALSE; /* matches are done one line at a time */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5413 single_line = FALSE; /* dot does not match newline */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5414 for (; modifiers[0] != '\0'; modifiers++) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5415 switch (modifiers[0]) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5416 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5417 case 'i': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5418 ignore_case = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5419 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5420 case 's': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5421 single_line = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5422 /* FALLTHRU */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5423 case 'm': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5424 multi_line = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5425 need_filebuf = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5426 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5427 default: |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5428 { |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5429 char wrongmod [2]; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5430 wrongmod[0] = modifiers[0]; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5431 wrongmod[1] = '\0'; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5432 error ("invalid regexp modifier `%s', ignoring", wrongmod); |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5433 } |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5434 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5435 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5436 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5437 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
|
5438 *patbuf = zeropattern; |
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
5439 if (ignore_case) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5440 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5441 static char lc_trans[CHARS]; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5442 int i; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5443 for (i = 0; i < CHARS; i++) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5444 lc_trans[i] = lowcase (i); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5445 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
|
5446 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5447 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5448 if (multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5449 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
|
5450 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5451 pat = regexp_pattern; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5452 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5453 if (single_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5454 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
|
5455 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5456 re_set_syntax (RE_SYNTAX_EMACS); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5457 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5458 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
|
5459 if (multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5460 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
|
5461 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
|
5462 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5463 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
|
5464 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5465 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5466 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5467 pp = p_head; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5468 p_head = xnew (1, pattern); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5469 p_head->regex = savestr (regexp_pattern); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5470 p_head->p_next = pp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5471 p_head->lang = lang; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5472 p_head->pat = patbuf; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5473 p_head->name_pattern = savestr (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
|
5474 p_head->error_signaled = 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
|
5475 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
|
5476 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
|
5477 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5478 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5479 /* |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
5480 * 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
|
5481 * arguments. |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5482 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5483 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
|
5484 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
|
5485 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
|
5486 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
|
5487 { |
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
|
5488 char *result, *t; |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5489 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
|
5490 |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
5491 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
|
5492 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
|
5493 |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5494 /* 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
|
5495 if (out[size - 1] == '\\') |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5496 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
|
5497 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
|
5498 t != NULL; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5499 t = etags_strchr (t + 2, '\\')) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5500 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
|
5501 { |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5502 dig = t[1] - '0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5503 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
|
5504 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
|
5505 } |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5506 else |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5507 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
|
5508 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5509 /* Allocate space and do the substitutions. */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5510 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
|
5511 |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5512 for (t = result; *out != '\0'; out++) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5513 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
|
5514 { |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5515 dig = *out - '0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5516 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
|
5517 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
|
5518 t += diglen; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5519 } |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5520 else |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5521 *t++ = *out; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5522 *t = '\0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5523 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5524 assert (t <= result + size && 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
|
5525 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5526 return result; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5527 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5528 |
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 /* Deallocate all patterns. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5530 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
|
5531 free_patterns () |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5532 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5533 pattern *pp; |
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 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
|
5535 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5536 pp = p_head->p_next; |
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 free (p_head->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
|
5538 free (p_head->name_pattern); |
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 free (p_head); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5540 p_head = pp; |
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 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5542 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
|
5543 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5544 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5545 /* |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5546 * 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
|
5547 * 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
|
5548 * readline already dealt with normal regexps. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5549 * |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5550 * 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
|
5551 */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5552 static void |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5553 regex_tag_multiline () |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5554 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5555 char *buffer = filebuf.buffer; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5556 pattern *pp; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5557 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5558 for (pp = p_head; pp != NULL; pp = pp->p_next) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5559 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5560 int match = 0; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5561 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5562 if (!pp->multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5563 continue; /* skip normal regexps */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5564 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5565 /* 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
|
5566 lineno = 1; /* reset global line number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5567 charno = 0; /* reset global char number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5568 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
|
5569 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5570 /* 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
|
5571 if (pp->lang != NULL && pp->lang != curfdp->lang) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5572 continue; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5573 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5574 while (match >= 0 && match < filebuf.len) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5575 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5576 match = re_search (pp->pat, buffer, filebuf.len, charno, |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5577 filebuf.len - match, &pp->regs); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5578 switch (match) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5579 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5580 case -2: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5581 /* Some error. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5582 if (!pp->error_signaled) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5583 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5584 error ("regexp stack overflow while matching \"%s\"", |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5585 pp->regex); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5586 pp->error_signaled = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5587 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5588 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5589 case -1: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5590 /* No match. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5591 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5592 default: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5593 if (match == pp->regs.end[0]) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5594 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5595 if (!pp->error_signaled) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5596 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5597 error ("regexp matches the empty string: \"%s\"", |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5598 pp->regex); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5599 pp->error_signaled = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5600 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5601 match = -3; /* exit from while loop */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5602 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5603 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5604 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5605 /* Match occurred. Construct a tag. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5606 while (charno < pp->regs.end[0]) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5607 if (buffer[charno++] == '\n') |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5608 lineno++, linecharno = charno; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5609 if (pp->name_pattern[0] != '\0') |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5610 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5611 /* Make a named tag. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5612 char *name = substitute (buffer, |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5613 pp->name_pattern, &pp->regs); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5614 if (name != NULL) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5615 pfnote (name, TRUE, buffer + linecharno, |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5616 charno - linecharno + 1, lineno, linecharno); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5617 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5618 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5619 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5620 /* Make an unnamed tag. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5621 pfnote ((char *)NULL, TRUE, buffer + linecharno, |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5622 charno - linecharno + 1, lineno, linecharno); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5623 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5624 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5625 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5626 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5627 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5628 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5629 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
5630 #endif /* ETAGS_REGEXPS */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5631 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5632 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5633 static bool |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5634 nocase_tail (cp) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5635 char *cp; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5636 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5637 register int len = 0; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5638 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5639 while (*cp != '\0' && lowcase (*cp) == lowcase (dbp[len])) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5640 cp++, len++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5641 if (*cp == '\0' && !intoken (dbp[len])) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5642 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5643 dbp += len; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5644 return TRUE; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5645 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5646 return FALSE; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5647 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5648 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5649 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
|
5650 get_tag (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
|
5651 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
|
5652 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5653 register char *cp, *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
|
5654 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5655 if (*bp == '\0') |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5656 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
|
5657 /* Go till you get to white space or a syntactic break */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5658 for (cp = bp + 1; !notinname (*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
|
5659 continue; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5660 name = savenstr (bp, cp-bp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5661 pfnote (name, TRUE, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5662 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5663 return 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
|
5664 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5665 |
240 | 5666 /* Initialize a linebuffer for use */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5667 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
|
5668 initbuffer (lbp) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5669 linebuffer *lbp; |
240 | 5670 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5671 lbp->size = (DEBUG) ? 3 : 200; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5672 lbp->buffer = xnew (lbp->size, char); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5673 lbp->buffer[0] = '\0'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5674 lbp->len = 0; |
240 | 5675 } |
5676 | |
5677 /* | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5678 * 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
|
5679 * 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
|
5680 * `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
|
5681 * |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5682 * 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
|
5683 * 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
|
5684 * 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
|
5685 * file). |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5686 * |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5687 * 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
|
5688 * appended to `filebuf'. |
240 | 5689 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5690 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
|
5691 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
|
5692 linebuffer *lbp; |
240 | 5693 register FILE *stream; |
5694 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5695 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
|
5696 register char *p = lbp->buffer; |
240 | 5697 register char *pend; |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5698 int chars_deleted; |
240 | 5699 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5700 pend = p + lbp->size; /* Separate to avoid 386/IX compiler bug. */ |
240 | 5701 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
5702 for (;;) |
240 | 5703 { |
5704 register int c = getc (stream); | |
5705 if (p == pend) | |
5706 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5707 /* 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
|
5708 lbp->size *= 2; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5709 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
|
5710 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
|
5711 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
|
5712 lbp->buffer = buffer; |
240 | 5713 } |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5714 if (c == EOF) |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5715 { |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5716 *p = '\0'; |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5717 chars_deleted = 0; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5718 break; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5719 } |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5720 if (c == '\n') |
240 | 5721 { |
10990
c0ceaa45ded7
* etags.c (process_file): free (filename) after using it.
Francesco Potortì <pot@gnu.org>
parents:
10801
diff
changeset
|
5722 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
|
5723 { |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5724 p -= 1; |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
5725 #ifdef DOS_NT |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
5726 /* 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
|
5727 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
|
5728 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
|
5729 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
|
5730 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
|
5731 chars_deleted = 1; |
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
5732 #else |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5733 chars_deleted = 2; |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
5734 #endif |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5735 } |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5736 else |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5737 { |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5738 chars_deleted = 1; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5739 } |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5740 *p = '\0'; |
240 | 5741 break; |
5742 } | |
5743 *p++ = c; | |
5744 } | |
26262
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 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
|
5746 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5747 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
|
5748 && chars_deleted > 0) /* not at EOF */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5749 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5750 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
|
5751 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5752 /* Expand filebuf. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5753 filebuf.size *= 2; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5754 xrnew (filebuf.buffer, filebuf.size, char); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5755 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5756 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
|
5757 filebuf.len += lbp->len; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5758 filebuf.buffer[filebuf.len++] = '\n'; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5759 filebuf.buffer[filebuf.len] = '\0'; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5760 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5761 |
26262
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 return lbp->len + chars_deleted; |
240 | 5763 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5764 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5765 /* |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5766 * 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
|
5767 * 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
|
5768 * directives. |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5769 */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5770 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
|
5771 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
|
5772 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
|
5773 FILE *stream; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5774 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5775 long result; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5776 |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5777 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
|
5778 result = readline_internal (lbp, stream); /* read line */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5779 lineno += 1; /* increment global line number */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5780 charno += result; /* increment global char number */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5781 |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
5782 /* 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
|
5783 if (!no_line_directive) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5784 { |
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
|
5785 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
|
5786 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5787 /* 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
|
5788 if (result > 12 && strneq (lbp->buffer, "#line ", 6)) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5789 { |
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
|
5790 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
|
5791 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5792 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
|
5793 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
|
5794 { |
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
|
5795 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
|
5796 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5797 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
|
5798 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
|
5799 && 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
|
5800 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
|
5801 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
|
5802 /* 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
|
5803 { |
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
|
5804 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
|
5805 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
|
5806 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
|
5807 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5808 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
|
5809 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
|
5810 *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
|
5811 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
|
5812 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
|
5813 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
|
5814 || 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
|
5815 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
|
5816 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
|
5817 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
|
5818 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5819 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
|
5820 /* 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
|
5821 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
|
5822 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
|
5823 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
|
5824 /* 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
|
5825 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
|
5826 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
|
5827 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5828 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
|
5829 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5830 /* 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
|
5831 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
|
5832 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
|
5833 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
|
5834 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
|
5835 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
|
5836 && 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
|
5837 /* 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
|
5838 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
|
5839 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
|
5840 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
|
5841 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
|
5842 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
|
5843 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
|
5844 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
|
5845 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5846 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
|
5847 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
|
5848 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
|
5849 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5850 /* 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
|
5851 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
|
5852 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
|
5853 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
|
5854 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
|
5855 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5856 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
|
5857 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
|
5858 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
|
5859 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5860 /* 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
|
5861 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
|
5862 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
|
5863 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5864 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
|
5865 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
|
5866 *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
|
5867 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
|
5868 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
|
5869 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
|
5870 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
|
5871 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
|
5872 fdhead->usecharno = 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
|
5873 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
|
5874 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5875 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5876 free (taggedabsname); |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5877 lineno = lno - 1; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5878 readline (lbp, stream); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5879 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
|
5880 } /* 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
|
5881 } /* 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
|
5882 } /* 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
|
5883 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5884 /* 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
|
5885 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
|
5886 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5887 if (result > 0) |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5888 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5889 /* 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
|
5890 of the line buffer. */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5891 readline (lbp, stream); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5892 return; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5893 } |
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
|
5894 /* 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
|
5895 discard_until_line_directive = FALSE; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5896 return; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5897 } |
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
|
5898 } /* 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
|
5899 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
5900 #ifdef ETAGS_REGEXPS |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5901 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5902 int match; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5903 pattern *pp; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5904 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5905 /* Match against relevant patterns. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5906 if (lbp->len > 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5907 for (pp = p_head; pp != NULL; pp = pp->p_next) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5908 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5909 /* 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
|
5910 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
|
5911 regex_tag_multiline. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5912 if ((pp->lang != NULL && pp->lang != fdhead->lang) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5913 || pp->multi_line) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5914 continue; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5915 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5916 match = re_match (pp->pat, lbp->buffer, lbp->len, 0, &pp->regs); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5917 switch (match) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5918 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5919 case -2: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5920 /* Some error. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5921 if (!pp->error_signaled) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5922 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5923 error ("regexp stack overflow while matching \"%s\"", |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5924 pp->regex); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5925 pp->error_signaled = TRUE; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5926 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5927 break; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5928 case -1: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5929 /* No match. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5930 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5931 case 0: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5932 /* Empty string matched. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5933 if (!pp->error_signaled) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5934 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5935 error ("regexp matches the empty string: \"%s\"", |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5936 pp->regex); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5937 pp->error_signaled = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5938 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5939 break; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5940 default: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5941 /* Match occurred. Construct a tag. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5942 if (pp->name_pattern[0] != '\0') |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5943 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5944 /* Make a named tag. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5945 char *name = substitute (lbp->buffer, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5946 pp->name_pattern, &pp->regs); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5947 if (name != NULL) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5948 pfnote (name, TRUE, lbp->buffer, match, lineno, linecharno); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5949 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5950 else |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5951 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5952 /* Make an unnamed tag. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5953 pfnote ((char *)NULL, TRUE, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5954 lbp->buffer, match, lineno, linecharno); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5955 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5956 break; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5957 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5958 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5959 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5960 #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
|
5961 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5962 |
240 | 5963 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
5964 /* |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
5965 * 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
|
5966 * 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
|
5967 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5968 static char * |
240 | 5969 savestr (cp) |
5970 char *cp; | |
5971 { | |
5972 return savenstr (cp, strlen (cp)); | |
5973 } | |
5974 | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
5975 /* |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
5976 * 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
|
5977 * 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
|
5978 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5979 static char * |
240 | 5980 savenstr (cp, len) |
5981 char *cp; | |
5982 int len; | |
5983 { | |
5984 register char *dp; | |
5985 | |
5986 dp = xnew (len + 1, char); | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
5987 strncpy (dp, cp, len); |
240 | 5988 dp[len] = '\0'; |
5989 return dp; | |
5990 } | |
5991 | |
5992 /* | |
5993 * Return the ptr in sp at which the character c last | |
5994 * appears; NULL if not found | |
5995 * | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5996 * Identical to POSIX strrchr, included for portability. |
240 | 5997 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5998 static char * |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
5999 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
|
6000 register const char *sp; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6001 register int c; |
240 | 6002 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6003 register const char *r; |
240 | 6004 |
6005 r = NULL; | |
6006 do | |
6007 { | |
6008 if (*sp == c) | |
6009 r = sp; | |
6010 } while (*sp++); | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6011 return (char *)r; |
240 | 6012 } |
6013 | |
6014 /* | |
6015 * Return the ptr in sp at which the character c first | |
6016 * appears; NULL if not found | |
6017 * | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6018 * Identical to POSIX strchr, included for portability. |
240 | 6019 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6020 static char * |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6021 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
|
6022 register const char *sp; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6023 register int c; |
240 | 6024 { |
6025 do | |
6026 { | |
6027 if (*sp == c) | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6028 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
|
6029 } while (*sp++); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6030 return NULL; |
240 | 6031 } |
6032 | |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6033 /* |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6034 * Return TRUE if the two strings are equal, ignoring case for alphabetic |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6035 * characters. |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6036 * |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6037 * Analogous to BSD's strcasecmp, included for portability. |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6038 */ |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6039 static bool |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6040 strcaseeq (s1, s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6041 register const char *s1; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6042 register const char *s2; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6043 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6044 while (*s1 != '\0' |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6045 && (ISALPHA (*s1) && ISALPHA (*s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6046 ? lowcase (*s1) == lowcase (*s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6047 : *s1 == *s2)) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6048 s1++, s2++; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6049 |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6050 return (*s1 == *s2); |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6051 } |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6052 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6053 /* 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
|
6054 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
|
6055 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
|
6056 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
|
6057 { |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
6058 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
|
6059 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
|
6060 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
|
6061 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6062 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6063 /* 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
|
6064 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
|
6065 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
|
6066 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
|
6067 { |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
6068 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
|
6069 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
|
6070 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
|
6071 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6072 |
240 | 6073 /* Print error message and exit. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6074 void |
240 | 6075 fatal (s1, s2) |
6076 char *s1, *s2; | |
6077 { | |
6078 error (s1, s2); | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6079 exit (BAD); |
240 | 6080 } |
6081 | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6082 static void |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6083 pfatal (s1) |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6084 char *s1; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6085 { |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6086 perror (s1); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6087 exit (BAD); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6088 } |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6089 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6090 static void |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6091 suggest_asking_for_help () |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6092 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6093 fprintf (stderr, "\tTry `%s %s' for a complete list of options.\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
|
6094 progname, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6095 #ifdef LONG_OPTIONS |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6096 "--help" |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6097 #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
|
6098 "-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
|
6099 #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
|
6100 ); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6101 exit (BAD); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6102 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6103 |
240 | 6104 /* 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
|
6105 static void |
240 | 6106 error (s1, s2) |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6107 const char *s1, *s2; |
240 | 6108 { |
6109 fprintf (stderr, "%s: ", progname); | |
6110 fprintf (stderr, s1, s2); | |
6111 fprintf (stderr, "\n"); | |
6112 } | |
6113 | |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6114 /* Return a newly-allocated string whose contents |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6115 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
|
6116 static char * |
240 | 6117 concat (s1, s2, s3) |
6118 char *s1, *s2, *s3; | |
6119 { | |
6120 int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3); | |
6121 char *result = xnew (len1 + len2 + len3 + 1, char); | |
6122 | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6123 strcpy (result, s1); |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6124 strcpy (result + len1, s2); |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6125 strcpy (result + len1 + len2, s3); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6126 result[len1 + len2 + len3] = '\0'; |
240 | 6127 |
6128 return result; | |
6129 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6130 |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6131 |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6132 /* 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
|
6133 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
|
6134 static char * |
7227
6fa038c33a0f
[MSDOS]: #include <sys/param.h> for the following.
Richard M. Stallman <rms@gnu.org>
parents:
7049
diff
changeset
|
6135 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
|
6136 { |
26262
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 #ifdef HAVE_GETCWD |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6138 int bufsize = 200; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6139 char *path = xnew (bufsize, char); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6140 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6141 while (getcwd (path, bufsize) == NULL) |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6142 { |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
6143 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
|
6144 pfatal ("getcwd"); |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
6145 bufsize *= 2; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
6146 free (path); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6147 path = xnew (bufsize, char); |
8789
81a2817b99b2
(etags_getcwd): Use getcwd if available.
Karl Heuer <kwzh@gnu.org>
parents:
8180
diff
changeset
|
6148 } |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6149 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6150 canonicalize_filename (path); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6151 return path; |
16394
675944d1abc9
(etags_getcwd) [WINDOWSNT]: Convert backslashes to slashes.
Richard M. Stallman <rms@gnu.org>
parents:
16373
diff
changeset
|
6152 |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6153 #else /* not HAVE_GETCWD */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
6154 #if MSDOS |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6155 |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6156 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
|
6157 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6158 getwd (path); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6159 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6160 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
|
6161 if (*p == '\\') |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6162 *p = '/'; |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6163 else |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6164 *p = lowcase (*p); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6165 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6166 return strdup (path); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6167 #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
|
6168 linebuffer path; |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6169 FILE *pipe; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6170 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6171 initbuffer (&path); |
11990
1e5d25c997ca
* etags.c (etags_getcwd): Undo the /bin/pwd change. It may raise
Francesco Potortì <pot@gnu.org>
parents:
11957
diff
changeset
|
6172 pipe = (FILE *) popen ("pwd 2>/dev/null", "r"); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6173 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
|
6174 pfatal ("pwd"); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6175 pclose (pipe); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6176 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6177 return path.buffer; |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6178 #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
|
6179 #endif /* not HAVE_GETCWD */ |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6180 } |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6181 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6182 /* 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
|
6183 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
|
6184 static char * |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6185 relative_filename (file, dir) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6186 char *file, *dir; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6187 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6188 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
|
6189 int i; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6190 |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
6191 /* 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
|
6192 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
|
6193 fp = afn; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6194 dp = dir; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6195 while (*fp++ == *dp++) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6196 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
|
6197 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
|
6198 #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
|
6199 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
|
6200 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
|
6201 #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
|
6202 do /* look at the equal chars until '/' */ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
6203 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
|
6204 while (*fp != '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6205 |
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
|
6206 /* 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
|
6207 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
|
6208 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
|
6209 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
|
6210 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
|
6211 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
|
6212 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
|
6213 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
|
6214 |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6215 /* 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
|
6216 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
|
6217 free (afn); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
6218 |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
6219 return res; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6220 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6221 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6222 /* 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
|
6223 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
|
6224 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
|
6225 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
|
6226 char *file, *dir; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6227 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6228 char *slashp, *cp, *res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6229 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6230 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
|
6231 res = savestr (file); |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6232 #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
|
6233 /* 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
|
6234 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
|
6235 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
|
6236 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
|
6237 #endif |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6238 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
|
6239 res = concat (dir, file, ""); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6240 |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6241 /* Delete the "/dirname/.." and "/." substrings. */ |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6242 slashp = etags_strchr (res, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6243 while (slashp != NULL && slashp[0] != '\0') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6244 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6245 if (slashp[1] == '.') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6246 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6247 if (slashp[2] == '.' |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6248 && (slashp[3] == '/' || slashp[3] == '\0')) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6249 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6250 cp = slashp; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6251 do |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6252 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
|
6253 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
|
6254 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
|
6255 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
|
6256 #ifdef DOS_NT |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6257 /* 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
|
6258 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
|
6259 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
|
6260 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
|
6261 cp = slashp; |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6262 #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
|
6263 strcpy (cp, slashp + 3); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6264 slashp = cp; |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6265 continue; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6266 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6267 else if (slashp[2] == '/' || slashp[2] == '\0') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6268 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6269 strcpy (slashp, slashp + 2); |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6270 continue; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6271 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6272 } |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6273 |
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6274 slashp = etags_strchr (slashp + 1, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6275 } |
24140
9e4d1d3eab09
(etags_getcwd, absolute_filename) [DOS_NT]: Canonicalize
Geoff Voelker <voelker@cs.washington.edu>
parents:
24059
diff
changeset
|
6276 |
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
|
6277 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
|
6278 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
|
6279 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
|
6280 return res; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6281 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6282 |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6283 /* 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
|
6284 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
|
6285 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
|
6286 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
|
6287 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
|
6288 char *file, *dir; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6289 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6290 char *slashp, *res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6291 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
|
6292 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6293 canonicalize_filename (file); |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6294 slashp = etags_strrchr (file, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6295 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
|
6296 return savestr (dir); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6297 save = slashp[1]; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6298 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
|
6299 res = absolute_filename (file, dir); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6300 slashp[1] = save; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6301 |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6302 return res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6303 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6304 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6305 /* 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
|
6306 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
|
6307 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
|
6308 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
|
6309 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
|
6310 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6311 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
|
6312 #ifdef DOS_NT |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
6313 || (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
|
6314 #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
|
6315 ); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6316 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6317 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6318 /* 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
|
6319 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
|
6320 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
|
6321 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
|
6322 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6323 #ifdef DOS_NT |
26507
aabdfbf65c68
1999-11-19 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26340
diff
changeset
|
6324 /* Canonicalize drive letter case. */ |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
6325 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
|
6326 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
|
6327 /* 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
|
6328 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
|
6329 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
|
6330 *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
|
6331 #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
|
6332 /* 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
|
6333 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
|
6334 #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
|
6335 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6336 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6337 /* 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
|
6338 static void |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6339 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
|
6340 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
|
6341 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
|
6342 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6343 while (lbp->size <= toksize) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6344 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6345 lbp->size *= 2; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6346 xrnew (lbp->buffer, lbp->size, char); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6347 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6348 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
|
6349 } |
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
6350 |
240 | 6351 /* 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
|
6352 static PTR |
240 | 6353 xmalloc (size) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
6354 unsigned int size; |
240 | 6355 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6356 PTR result = (PTR) malloc (size); |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6357 if (result == NULL) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
6358 fatal ("virtual memory exhausted", (char *)NULL); |
240 | 6359 return result; |
6360 } | |
6361 | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6362 static PTR |
240 | 6363 xrealloc (ptr, size) |
6364 char *ptr; | |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
6365 unsigned int size; |
240 | 6366 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6367 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
|
6368 if (result == NULL) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
6369 fatal ("virtual memory exhausted", (char *)NULL); |
240 | 6370 return result; |
6371 } | |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6372 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6373 /* |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6374 * Local Variables: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6375 * c-indentation-style: gnu |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6376 * indent-tabs-mode: t |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6377 * 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
|
6378 * fill-column: 79 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6379 * c-font-lock-extra-types: ("FILE" "bool" "language" "linebuffer" "fdesc" "node" "pattern") |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6380 * End: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6381 */ |