Mercurial > emacs
annotate lib-src/etags.c @ 97058:b6ac850e9d2b
Fix bug #272, and update Ada mode to version 4.0.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Mon, 28 Jul 2008 11:03:42 +0000 |
parents | 93f1eb58d905 |
children | c3512b2085a0 |
rev | line source |
---|---|
35653 | 1 /* Tags file maker to go with GNU Emacs -*- coding: latin-1 -*- |
76181
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
2 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
3 Copyright (C) 1984 The Regents of the University of California |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
4 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
5 Redistribution and use in source and binary forms, with or without |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
6 modification, are permitted provided that the following conditions are |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
7 met: |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
8 1. Redistributions of source code must retain the above copyright |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
9 notice, this list of conditions and the following disclaimer. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
10 2. Redistributions in binary form must reproduce the above copyright |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
11 notice, this list of conditions and the following disclaimer in the |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
12 documentation and/or other materials provided with the |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
13 distribution. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
14 3. Neither the name of the University nor the names of its |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
15 contributors may be used to endorse or promote products derived |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
16 from this software without specific prior written permission. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
17 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
18 THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
19 AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
20 THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
21 PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
22 BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
23 CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
24 SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
25 BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
26 WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
27 OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
28 IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
29 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
30 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
31 Copyright (C) 1984, 1987, 1988, 1989, 1993, 1994, 1995, 1998, 1999, |
79748 | 32 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
76181
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
33 Free Software Foundation, Inc. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
34 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
35 This file is not considered part of GNU Emacs. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
36 |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92360
diff
changeset
|
37 This program is free software: you can redistribute it and/or modify |
76181
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
38 it under the terms of the GNU General Public License as published by |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92360
diff
changeset
|
39 the Free Software Foundation, either version 3 of the License, or |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92360
diff
changeset
|
40 (at your option) any later version. |
76181
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
41 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
42 This program is distributed in the hope that it will be useful, |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
43 but WITHOUT ANY WARRANTY; without even the implied warranty of |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
44 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
45 GNU General Public License for more details. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
46 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
47 You should have received a copy of the GNU General Public License |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92360
diff
changeset
|
48 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
76181
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
49 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
50 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
51 /* NB To comply with the above BSD license, copyright information is |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
52 reproduced in etc/ETAGS.README. That file should be updated when the |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
53 above notices are. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
54 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
55 To the best of our knowledge, this code was originally based on the |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
56 ctags.c distributed with BSD4.2, which was copyrighted by the |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
57 University of California, as described above. */ |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
58 |
240 | 59 |
60 /* | |
61 * Authors: | |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
62 * 1983 Ctags originally by Ken Arnold. |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
63 * 1984 Fortran added by Jim Kleckner. |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
64 * 1984 Ed Pelegri-Llopart added C typedefs. |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
65 * 1985 Emacs TAGS format by Richard Stallman. |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
66 * 1989 Sam Kendall added C++. |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
67 * 1992 Joseph B. Wells improved C and C++ parsing. |
96373
93f1eb58d905
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
95479
diff
changeset
|
68 * 1993 Francesco Potort́ reorganized C and C++. |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
69 * 1994 Line-by-line regexp tags by Tom Tromey. |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
70 * 2001 Nested classes by Francesco Potort́ (concept by Mykola Dzyuba). |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
71 * 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
|
72 * |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
73 * Francesco Potort́ <pot@gnu.org> has maintained and improved it since 1993. |
240 | 74 */ |
10761
7aa80669e697
* etags.c (C_entries): Bug corrected in xrealloc of token_str.
Francesco Potortì <pot@gnu.org>
parents:
10754
diff
changeset
|
75 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
76 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
77 * If you want to add support for a new language, start by looking at the LUA |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
78 * language, which is the simplest. Alternatively, consider shipping a |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
79 * configuration file containing regexp definitions for etags. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
80 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
81 |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
82 char pot_etags_version[] = "@(#) pot revision number is 17.38"; |
10801
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
83 |
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
84 #define TRUE 1 |
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
85 #define FALSE 0 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
86 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
87 #ifdef DEBUG |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
88 # undef DEBUG |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
89 # define DEBUG TRUE |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
90 #else |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
91 # define DEBUG FALSE |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
92 # 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
|
93 #endif |
10754
cd1c0b5e8634
* etags.c (C_entries): Initialise the new members of TOKEN.
Francesco Potortì <pot@gnu.org>
parents:
10623
diff
changeset
|
94 |
26083
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
95 #ifdef HAVE_CONFIG_H |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
96 # include <config.h> |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
97 /* 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
|
98 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
|
99 # undef static |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
100 # ifndef PTR /* for XEmacs */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
101 # define PTR void * |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
102 # endif |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
103 # ifndef __P /* for XEmacs */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
104 # define __P(args) args |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
105 # endif |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
106 #else /* no config.h */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
107 # if defined(__STDC__) && (__STDC__ || defined(__SUNPRO_C)) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
108 # define __P(args) args /* use prototypes */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
109 # define PTR void * /* for generic pointers */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
110 # else /* not standard C */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
111 # define __P(args) () /* no prototypes */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
112 # define const /* remove const for old compilers' sake */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
113 # 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
|
114 # endif |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
115 #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
|
116 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
117 #ifndef _GNU_SOURCE |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
118 # 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
|
119 #endif |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
120 |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
121 /* WIN32_NATIVE is for XEmacs. |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
122 MSDOS, WINDOWSNT, DOS_NT are for Emacs. */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
123 #ifdef WIN32_NATIVE |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
124 # undef MSDOS |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
125 # undef WINDOWSNT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
126 # define WINDOWSNT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
127 #endif /* WIN32_NATIVE */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
128 |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
129 #ifdef MSDOS |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
130 # undef MSDOS |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
131 # 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
|
132 # include <fcntl.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
133 # 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
|
134 # 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
|
135 # 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
|
136 # 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
|
137 # 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
|
138 # endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
139 #else |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
140 # define MSDOS FALSE |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
141 #endif /* MSDOS */ |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
142 |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
143 #ifdef WINDOWSNT |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
144 # include <stdlib.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
145 # include <fcntl.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
146 # include <string.h> |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
147 # include <direct.h> |
14982
b470e33ce4a9
[WINDOWSNT]: Include io.h.
Richard M. Stallman <rms@gnu.org>
parents:
14924
diff
changeset
|
148 # 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
|
149 # define MAXPATHLEN _MAX_PATH |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
150 # undef HAVE_NTGUI |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
151 # undef DOS_NT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
152 # 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
|
153 # 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
|
154 # 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
|
155 # endif /* undef HAVE_GETCWD */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
156 #else /* not WINDOWSNT */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
157 # ifdef STDC_HEADERS |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
158 # include <stdlib.h> |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
159 # include <string.h> |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
160 # else /* no standard C headers */ |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
161 extern char *getenv __P((const char *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
162 extern char *strcpy __P((char *, const char *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
163 extern char *strncpy __P((char *, const char *, unsigned long)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
164 extern char *strcat __P((char *, const char *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
165 extern char *strncat __P((char *, const char *, unsigned long)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
166 extern int strcmp __P((const char *, const char *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
167 extern int strncmp __P((const char *, const char *, unsigned long)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
168 extern int system __P((const char *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
169 extern unsigned long strlen __P((const char *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
170 extern void *malloc __P((unsigned long)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
171 extern void *realloc __P((void *, unsigned long)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
172 extern void exit __P((int)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
173 extern void free __P((void *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
174 extern void *memmove __P((void *, const void *, unsigned long)); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
175 # ifdef VMS |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
176 # define EXIT_SUCCESS 1 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
177 # define EXIT_FAILURE 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
178 # else /* no VMS */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
179 # define EXIT_SUCCESS 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
180 # define EXIT_FAILURE 1 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
181 # endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
182 # endif |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
183 #endif /* !WINDOWSNT */ |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
184 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
185 #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
|
186 # 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
|
187 #else |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
188 # 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
|
189 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
|
190 # 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
|
191 #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
|
192 |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
193 #include <stdio.h> |
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
194 #include <ctype.h> |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
195 #include <errno.h> |
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
196 #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
|
197 extern int errno; |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
198 #endif |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
199 #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
|
200 #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
|
201 |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
202 #include <assert.h> |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
203 #ifdef NDEBUG |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
204 # 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
|
205 # define assert(x) ((void) 0) |
35741
e0acf4b43873
(assert) [__MINGW32__]: Redefine assert to work around a
Andrew Innes <andrewi@gnu.org>
parents:
35740
diff
changeset
|
206 #endif |
e0acf4b43873
(assert) [__MINGW32__]: Redefine assert to work around a
Andrew Innes <andrewi@gnu.org>
parents:
35740
diff
changeset
|
207 |
4804
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
208 #if !defined (S_ISREG) && defined (S_IFREG) |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
209 # 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
|
210 #endif |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
211 |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
212 #ifdef NO_LONG_OPTIONS /* define this if you don't have GNU getopt */ |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
213 # define NO_LONG_OPTIONS TRUE |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
214 # 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
|
215 extern char *optarg; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
216 extern int optind, opterr; |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
217 #else |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
218 # define NO_LONG_OPTIONS FALSE |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
219 # include <getopt.h> |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
220 #endif /* NO_LONG_OPTIONS */ |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
221 |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
222 #ifndef HAVE_CONFIG_H /* this is a standalone compilation */ |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
223 # ifdef __CYGWIN__ /* compiling on Cygwin */ |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
224 !!! NOTICE !!! |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
225 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
|
226 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
|
227 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
|
228 # endif |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
229 #endif |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
230 #include <regex.h> |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
231 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
232 /* 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
|
233 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
|
234 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
|
235 #ifdef CTAGS |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
236 # undef CTAGS |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
237 # define CTAGS TRUE |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
238 #else |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
239 # define CTAGS FALSE |
240 | 240 #endif |
241 | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
242 #define streq(s,t) (assert((s)!=NULL || (t)!=NULL), !strcmp (s, t)) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
243 #define strcaseeq(s,t) (assert((s)!=NULL && (t)!=NULL), !etags_strcasecmp (s, t)) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
244 #define strneq(s,t,n) (assert((s)!=NULL || (t)!=NULL), !strncmp (s, t, n)) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
245 #define strncaseeq(s,t,n) (assert((s)!=NULL && (t)!=NULL), !etags_strncasecmp (s, t, n)) |
240 | 246 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
247 #define CHARS 256 /* 2^sizeof(char) */ |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
248 #define CHAR(x) ((unsigned int)(x) & (CHARS - 1)) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
249 #define iswhite(c) (_wht[CHAR(c)]) /* c is white (see white) */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
250 #define notinname(c) (_nin[CHAR(c)]) /* c is not in a name (see nonam) */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
251 #define begtoken(c) (_btk[CHAR(c)]) /* c can start token (see begtk) */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
252 #define intoken(c) (_itk[CHAR(c)]) /* c can be in token (see midtk) */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
253 #define endtoken(c) (_etk[CHAR(c)]) /* c ends tokens (see endtk) */ |
240 | 254 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
255 #define ISALNUM(c) isalnum (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
256 #define ISALPHA(c) isalpha (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
257 #define ISDIGIT(c) isdigit (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
258 #define ISLOWER(c) islower (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
259 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
260 #define lowcase(c) tolower (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
261 #define upcase(c) toupper (CHAR(c)) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
262 |
12344
7e7941d8cceb
* etags.c (find_entries): rewind before rereading the input file.
Francesco Potortì <pot@gnu.org>
parents:
12242
diff
changeset
|
263 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
264 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
265 * 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
|
266 * |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
267 * 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
|
268 * 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
|
269 */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
270 #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
|
271 # 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
|
272 # 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
|
273 (n) * sizeof (Type))) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
274 # 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
|
275 (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
|
276 #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
|
277 # 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
|
278 # 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
|
279 (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
|
280 #endif |
240 | 281 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
282 #define bool int |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
283 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
284 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
|
285 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
286 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
|
287 { |
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
|
288 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
|
289 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
|
290 } 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
|
291 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
292 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
|
293 { |
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 char *name; /* language name */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
295 char *help; /* detailed help for the language */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
296 Lang_function *function; /* parse function */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
297 char **suffixes; /* name suffixes of this language's files */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
298 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
|
299 char **interpreters; /* interpreters for this language */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
300 bool metasource; /* source used to generate other sources */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
301 } language; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
302 |
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
|
303 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
|
304 { |
4702b23921b4
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 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
|
306 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
|
307 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
|
308 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
|
309 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
|
310 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
|
311 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
|
312 bool usecharno; /* etags tags shall contain char number */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
313 bool written; /* entry written in the tags file */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
314 } 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
|
315 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
316 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
|
317 { /* 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
|
318 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
|
319 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
|
320 char *name; /* tag name */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
321 char *regex; /* search regexp */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
322 bool valid; /* write this tag on the tag file */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
323 bool is_func; /* function tag: use regexp in CTAGS mode */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
324 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
|
325 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
|
326 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
|
327 } node; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
328 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
329 /* |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
330 * 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
|
331 * `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
|
332 * 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
|
333 * 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
|
334 * 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
|
335 */ |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
336 typedef struct |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
337 { |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
338 long size; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
339 int len; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
340 char *buffer; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
341 } linebuffer; |
240 | 342 |
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
|
343 /* 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
|
344 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
|
345 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
346 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
|
347 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
|
348 at_regexp, /* a regular expression */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
349 at_filename, /* a file name */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
350 at_stdin, /* read from stdin here */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
351 at_end /* stop parsing the list */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
352 } 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
|
353 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
|
354 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
|
355 } 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
|
356 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
357 /* Structure defining a regular expression. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
358 typedef struct regexp |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
359 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
360 struct regexp *p_next; /* pointer to next in list */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
361 language *lang; /* if set, use only for this language */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
362 char *pattern; /* the regexp pattern */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
363 char *name; /* tag name */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
364 struct re_pattern_buffer *pat; /* the compiled pattern */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
365 struct re_registers regs; /* re registers */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
366 bool error_signaled; /* already signaled for this regexp */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
367 bool force_explicit_name; /* do not allow implict tag name */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
368 bool ignore_case; /* ignore case when matching */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
369 bool multi_line; /* do a multi-line match on the whole file */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
370 } regexp; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
371 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
372 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
373 /* 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
|
374 Lang_function Ada_funcs; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
375 so let's write it this way */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
376 static void Ada_funcs __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
377 static void Asm_labels __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
378 static void C_entries __P((int c_ext, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
379 static void default_C_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
380 static void plain_C_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
381 static void Cjava_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
382 static void Cobol_paragraphs __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
383 static void Cplusplus_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
384 static void Cstar_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
385 static void Erlang_functions __P((FILE *)); |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
386 static void Forth_words __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
387 static void Fortran_functions __P((FILE *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
388 static void HTML_labels __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
389 static void Lisp_functions __P((FILE *)); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
390 static void Lua_functions __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
391 static void Makefile_targets __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
392 static void Pascal_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
393 static void Perl_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
394 static void PHP_functions __P((FILE *)); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
395 static void PS_functions __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
396 static void Prolog_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
397 static void Python_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
398 static void Scheme_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
399 static void TeX_commands __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
400 static void Texinfo_nodes __P((FILE *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
401 static void Yacc_entries __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
402 static void just_read_file __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
403 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
404 static void print_language_names __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
405 static void print_version __P((void)); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
406 static void print_help __P((argument *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
407 int main __P((int, char **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
408 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
409 static compressor *get_compressor_from_suffix __P((char *, char **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
410 static language *get_language_from_langname __P((const char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
411 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
|
412 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
|
413 static void readline __P((linebuffer *, FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
414 static long readline_internal __P((linebuffer *, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
415 static bool nocase_tail __P((char *)); |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
416 static void get_tag __P((char *, char **)); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
417 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
418 static void analyse_regex __P((char *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
419 static void free_regexps __P((void)); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
420 static void regex_tag_multiline __P((void)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
421 static void error __P((const char *, const char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
422 static void suggest_asking_for_help __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
423 void fatal __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
424 static void pfatal __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
425 static void add_node __P((node *, node **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
426 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
427 static void init __P((void)); |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
428 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
|
429 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
|
430 static void find_entries __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
431 static void free_tree __P((node *)); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
432 static void free_fdesc __P((fdesc *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
433 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
|
434 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
|
435 static void invalidate_nodes __P((fdesc *, node **)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
436 static void put_entries __P((node *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
437 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
438 static char *concat __P((char *, char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
439 static char *skip_spaces __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
440 static char *skip_non_spaces __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
441 static char *savenstr __P((char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
442 static char *savestr __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
443 static char *etags_strchr __P((const char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
444 static char *etags_strrchr __P((const char *, int)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
445 static int etags_strcasecmp __P((const char *, const char *)); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
446 static int etags_strncasecmp __P((const char *, const char *, int)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
447 static char *etags_getcwd __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
448 static char *relative_filename __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
449 static char *absolute_filename __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
450 static char *absolute_dirname __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
451 static bool filename_is_absolute __P((char *f)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
452 static void canonicalize_filename __P((char *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
453 static void linebuffer_init __P((linebuffer *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
454 static void linebuffer_setlen __P((linebuffer *, int)); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
455 static PTR xmalloc __P((unsigned int)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
456 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
|
457 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
458 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
459 static char searchar = '/'; /* use /.../ searches */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
460 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
461 static char *tagfile; /* output file */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
462 static char *progname; /* name this program was invoked with */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
463 static char *cwd; /* current working directory */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
464 static char *tagfiledir; /* directory of tagfile */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
465 static FILE *tagf; /* ioptr for tags file */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
466 |
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
|
467 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
|
468 static fdesc *curfdp; /* current file description */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
469 static int lineno; /* line number of current line */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
470 static long charno; /* current character number */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
471 static long linecharno; /* charno of start of current line */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
472 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
|
473 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
474 static const int invalidcharno = -1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
475 |
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
|
476 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
|
477 static node *last_node; /* the last node created */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
478 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
479 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
|
480 static linebuffer filebuf; /* a buffer containing the whole file */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
481 static linebuffer token_name; /* a buffer containing a tag name */ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
482 |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
483 /* boolean "functions" (see init) */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
484 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
|
485 static char |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
486 /* white chars */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
487 *white = " \f\t\n\r\v", |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
488 /* 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
|
489 *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
|
490 /* 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
|
491 *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
|
492 /* token starting chars */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
493 *begtk = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz$~@", |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
494 /* valid in-token chars */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
495 *midtk = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz$0123456789"; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
496 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
497 static bool append_to_tagfile; /* -a: append to tags */ |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
498 /* The next five default to TRUE in C and derived languages. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
499 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
|
500 static bool typedefs_or_cplusplus; /* -T: create tags for C typedefs, level */ |
240 | 501 /* 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
|
502 /* member functions. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
503 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
|
504 /* constants and variables. */ |
240 | 505 /* -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
|
506 static bool globals; /* create tags for global variables */ |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
507 static bool members; /* create tags for C member variables */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
508 static bool declarations; /* --declarations: tag them and extern in C&Co*/ |
45643
5cee84ffef53
(main): Avoid a buffer overrun with sprintf.
Francesco Potortì <pot@gnu.org>
parents:
45535
diff
changeset
|
509 static bool no_line_directive; /* ignore #line directives (undocumented) */ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
510 static bool no_duplicates; /* no duplicate tags for ctags (undocumented) */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
511 static bool update; /* -u: update tags */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
512 static bool vgrind_style; /* -v: create vgrind style index output */ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
513 static bool no_warnings; /* -w: suppress warnings (undocumented) */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
514 static bool cxref_style; /* -x: create cxref style output */ |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
515 static bool cplusplus; /* .[hc] means C++, not C (undocumented) */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
516 static bool ignoreindent; /* -I: ignore indentation in C */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
517 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
|
518 |
66219
90109c37ac78
Undef STDIN if defined. (LynxOS defines it in system header files.)
Eli Zaretskii <eliz@gnu.org>
parents:
65714
diff
changeset
|
519 /* STDIN is defined in LynxOS system headers */ |
90109c37ac78
Undef STDIN if defined. (LynxOS defines it in system header files.)
Eli Zaretskii <eliz@gnu.org>
parents:
65714
diff
changeset
|
520 #ifdef STDIN |
66985
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
521 # undef STDIN |
66219
90109c37ac78
Undef STDIN if defined. (LynxOS defines it in system header files.)
Eli Zaretskii <eliz@gnu.org>
parents:
65714
diff
changeset
|
522 #endif |
90109c37ac78
Undef STDIN if defined. (LynxOS defines it in system header files.)
Eli Zaretskii <eliz@gnu.org>
parents:
65714
diff
changeset
|
523 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
524 #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
|
525 static bool parsing_stdin; /* --parse-stdin used */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
526 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
527 static regexp *p_head; /* list of all regexps */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
528 static bool need_filebuf; /* some regexes are multi-line */ |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
529 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
530 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
|
531 { |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
532 { "append", no_argument, NULL, 'a' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
533 { "packages-only", no_argument, &packages_only, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
534 { "c++", no_argument, NULL, 'C' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
535 { "declarations", no_argument, &declarations, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
536 { "no-line-directive", no_argument, &no_line_directive, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
537 { "no-duplicates", no_argument, &no_duplicates, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
538 { "help", no_argument, NULL, 'h' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
539 { "help", no_argument, NULL, 'H' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
540 { "ignore-indentation", no_argument, NULL, 'I' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
541 { "language", required_argument, NULL, 'l' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
542 { "members", no_argument, &members, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
543 { "no-members", no_argument, &members, FALSE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
544 { "output", required_argument, NULL, 'o' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
545 { "regex", required_argument, NULL, 'r' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
546 { "no-regex", no_argument, NULL, 'R' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
547 { "ignore-case-regex", required_argument, NULL, 'c' }, |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
548 { "parse-stdin", required_argument, NULL, STDIN }, |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
549 { "version", 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
|
550 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
551 #if CTAGS /* Ctags options */ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
552 { "backward-search", no_argument, NULL, 'B' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
553 { "cxref", no_argument, NULL, 'x' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
554 { "defines", no_argument, NULL, 'd' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
555 { "globals", no_argument, &globals, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
556 { "typedefs", no_argument, NULL, 't' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
557 { "typedefs-and-c++", no_argument, NULL, 'T' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
558 { "update", no_argument, NULL, 'u' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
559 { "vgrind", no_argument, NULL, 'v' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
560 { "no-warn", no_argument, NULL, 'w' }, |
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
|
561 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
562 #else /* Etags options */ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
563 { "no-defines", no_argument, NULL, 'D' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
564 { "no-globals", no_argument, &globals, FALSE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
565 { "include", required_argument, NULL, 'i' }, |
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
|
566 #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
|
567 { NULL } |
621 | 568 }; |
569 | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
570 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
|
571 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
572 { "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
|
573 { "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
|
574 { "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
|
575 { "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
|
576 { "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
|
577 { NULL } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
578 }; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
579 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
580 /* |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
581 * Language stuff. |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
582 */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
583 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
584 /* Ada code */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
585 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
|
586 { "ads", "adb", "ada", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
587 static char Ada_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
588 "In Ada code, functions, procedures, packages, tasks and types are\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
589 tags. Use the `--packages-only' option to create tags for\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
590 packages only.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
591 Ada tag names have suffixes indicating the type of entity:\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
592 Entity type: Qualifier:\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
593 ------------ ----------\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
594 function /f\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
595 procedure /p\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
596 package spec /s\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
597 package body /b\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
598 type /t\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
599 task /k\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
600 Thus, `M-x find-tag <RET> bidule/b <RET>' will go directly to the\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
601 body of the package `bidule', while `M-x find-tag <RET> bidule <RET>'\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
602 will just search for any tag `bidule'."; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
603 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
604 /* Assembly code */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
605 static char *Asm_suffixes [] = |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
606 { "a", /* Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
607 "asm", /* Microcontroller assembly */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
608 "def", /* BSO/Tasking definition includes */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
609 "inc", /* Microcontroller include files */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
610 "ins", /* Microcontroller include files */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
611 "s", "sa", /* Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
612 "S", /* cpp-processed Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
613 "src", /* BSO/Tasking C compiler output */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
614 NULL |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
615 }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
616 static char Asm_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
617 "In assembler code, labels appearing at the beginning of a line,\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
618 followed by a colon, are tags."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
619 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
620 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
621 /* Note that .c and .h can be considered C++, if the --c++ flag was |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
622 given, or if the `class' or `template' keywords are met inside the file. |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
623 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
|
624 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
|
625 { "c", "h", NULL }; |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
626 #if CTAGS /* C help for Ctags */ |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
627 static char default_C_help [] = |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
628 "In C code, any C function is a tag. Use -t to tag typedefs.\n\ |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
629 Use -T to tag definitions of `struct', `union' and `enum'.\n\ |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
630 Use -d to tag `#define' macro definitions and `enum' constants.\n\ |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
631 Use --globals to tag global variables.\n\ |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
632 You can tag function declarations and external variables by\n\ |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
633 using `--declarations', and struct members by using `--members'."; |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
634 #else /* C help for Etags */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
635 static char default_C_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
636 "In C code, any C function or typedef is a tag, and so are\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
637 definitions of `struct', `union' and `enum'. `#define' macro\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
638 definitions and `enum' constants are tags unless you specify\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
639 `--no-defines'. Global variables are tags unless you specify\n\ |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
640 `--no-globals' and so are struct members unless you specify\n\ |
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
641 `--no-members'. Use of `--no-globals', `--no-defines' and\n\ |
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
642 `--no-members' can make the tags table file much smaller.\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
643 You can tag function declarations and external variables by\n\ |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
644 using `--declarations'."; |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
645 #endif /* C help for Ctags and Etags */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
646 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
647 static char *Cplusplus_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
648 { "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
|
649 "M", /* Objective C++ */ |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
650 "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
|
651 NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
652 static char Cplusplus_help [] = |
49360
d257d0cb93b4
(Cplusplus_help, Cjava_help): Re-phrase and avoid
Dave Love <fx@gnu.org>
parents:
49125
diff
changeset
|
653 "In C++ code, all the tag constructs of C code are tagged. (Use\n\ |
d257d0cb93b4
(Cplusplus_help, Cjava_help): Re-phrase and avoid
Dave Love <fx@gnu.org>
parents:
49125
diff
changeset
|
654 --help --lang=c --lang=c++ for full help.)\n\ |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
655 In addition to C tags, member functions are also recognized. Member\n\ |
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
656 variables are recognized unless you use the `--no-members' option.\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
657 Tags for variables and functions in classes are named `CLASS::VARIABLE'\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
658 and `CLASS::FUNCTION'. `operator' definitions have tag names like\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
659 `operator+'."; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
660 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
661 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
|
662 { "java", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
663 static char Cjava_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
664 "In Java code, all the tags constructs of C and C++ code are\n\ |
49360
d257d0cb93b4
(Cplusplus_help, Cjava_help): Re-phrase and avoid
Dave Love <fx@gnu.org>
parents:
49125
diff
changeset
|
665 tagged. (Use --help --lang=c --lang=c++ --lang=java for full help.)"; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
666 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
667 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
668 static char *Cobol_suffixes [] = |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
669 { "COB", "cob", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
670 static char Cobol_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
671 "In Cobol code, tags are paragraph names; that is, any word\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
672 starting in column 8 and followed by a period."; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
673 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
674 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
|
675 { "cs", "hs", NULL }; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
676 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
677 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
|
678 { "erl", "hrl", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
679 static char Erlang_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
680 "In Erlang code, the tags are the functions, records and macros\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
681 defined in the file."; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
682 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
683 char *Forth_suffixes [] = |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
684 { "fth", "tok", NULL }; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
685 static char Forth_help [] = |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
686 "In Forth code, tags are words defined by `:',\n\ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
687 constant, code, create, defer, value, variable, buffer:, field."; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
688 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
689 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
|
690 { "F", "f", "f90", "for", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
691 static char Fortran_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
692 "In Fortran code, functions, subroutines and block data are tags."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
693 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
694 static char *HTML_suffixes [] = |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
695 { "htm", "html", "shtml", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
696 static char HTML_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
697 "In HTML input files, the tags are the `title' and the `h1', `h2',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
698 `h3' headers. Also, tags are `name=' in anchors and all\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
699 occurrences of `id='."; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
700 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
701 static char *Lisp_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
702 { "cl", "clisp", "el", "l", "lisp", "LSP", "lsp", "ml", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
703 static char Lisp_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
704 "In Lisp code, any function defined with `defun', any variable\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
705 defined with `defvar' or `defconst', and in general the first\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
706 argument of any expression that starts with `(def' in column zero\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
707 is a tag."; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
708 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
709 static char *Lua_suffixes [] = |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
710 { "lua", "LUA", NULL }; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
711 static char Lua_help [] = |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
712 "In Lua scripts, all functions are tags."; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
713 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
714 static char *Makefile_filenames [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
715 { "Makefile", "makefile", "GNUMakefile", "Makefile.in", "Makefile.am", NULL}; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
716 static char Makefile_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
717 "In makefiles, targets are tags; additionally, variables are tags\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
718 unless you specify `--no-globals'."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
719 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
720 static char *Objc_suffixes [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
721 { "lm", /* Objective lex file */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
722 "m", /* Objective C file */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
723 NULL }; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
724 static char Objc_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
725 "In Objective C code, tags include Objective C definitions for classes,\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
726 class categories, methods and protocols. Tags for variables and\n\ |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
727 functions in classes are named `CLASS::VARIABLE' and `CLASS::FUNCTION'.\n\ |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
728 (Use --help --lang=c --lang=objc --lang=java for full help.)"; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
729 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
730 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
|
731 { "p", "pas", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
732 static char Pascal_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
733 "In Pascal code, the tags are the functions and procedures defined\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
734 in the file."; |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
735 /* " // this is for working around an Emacs highlighting bug... */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
736 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
737 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
|
738 { "pl", "pm", NULL }; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
739 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
|
740 { "perl", "@PERL@", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
741 static char Perl_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
742 "In Perl code, the tags are the packages, subroutines and variables\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
743 defined by the `package', `sub', `my' and `local' keywords. Use\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
744 `--globals' if you want to tag global variables. Tags for\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
745 subroutines are named `PACKAGE::SUB'. The name for subroutines\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
746 defined in the default package is `main::SUB'."; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
747 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
748 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
|
749 { "php", "php3", "php4", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
750 static char PHP_help [] = |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
751 "In PHP code, tags are functions, classes and defines. Unless you use\n\ |
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
752 the `--no-members' option, vars are tags too."; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
753 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
754 static char *plain_C_suffixes [] = |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
755 { "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
|
756 NULL }; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
757 |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
758 static char *PS_suffixes [] = |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
759 { "ps", "psw", NULL }; /* .psw is for PSWrap */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
760 static char PS_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
761 "In PostScript code, the tags are the functions."; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
762 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
763 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
|
764 { "prolog", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
765 static char Prolog_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
766 "In Prolog code, tags are predicates and rules at the beginning of\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
767 line."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
768 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
769 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
|
770 { "py", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
771 static char Python_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
772 "In Python code, `def' or `class' at the beginning of a line\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
773 generate a tag."; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
774 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
775 /* 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
|
776 static char *Scheme_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
777 { "oak", "sch", "scheme", "SCM", "scm", "SM", "sm", "ss", "t", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
778 static char Scheme_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
779 "In Scheme code, tags include anything defined with `def' or with a\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
780 construct whose name starts with `def'. They also include\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
781 variables set with `set!' at top level in the file."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
782 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
783 static char *TeX_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
784 { "bib", "clo", "cls", "ltx", "sty", "TeX", "tex", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
785 static char TeX_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
786 "In LaTeX text, the argument of any of the commands `\\chapter',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
787 `\\section', `\\subsection', `\\subsubsection', `\\eqno', `\\label',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
788 `\\ref', `\\cite', `\\bibitem', `\\part', `\\appendix', `\\entry',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
789 `\\index', `\\def', `\\newcommand', `\\renewcommand',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
790 `\\newenvironment' or `\\renewenvironment' is a tag.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
791 \n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
792 Other commands can be specified by setting the environment variable\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
793 `TEXTAGS' to a colon-separated list like, for example,\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
794 TEXTAGS=\"mycommand:myothercommand\"."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
795 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
796 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
797 static char *Texinfo_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
798 { "texi", "texinfo", "txi", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
799 static char Texinfo_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
800 "for texinfo files, lines starting with @node are tagged."; |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
801 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
802 static char *Yacc_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
803 { "y", "y++", "ym", "yxx", "yy", NULL }; /* .ym is Objective yacc file */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
804 static char Yacc_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
805 "In Bison or Yacc input files, each rule defines as a tag the\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
806 nonterminal it constructs. The portions of the file that contain\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
807 C code are parsed as C code (use --help --lang=c --lang=yacc\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
808 for full help)."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
809 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
810 static char auto_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
811 "`auto' is not a real language, it indicates to use\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
812 a default language for files base on file name suffix and file contents."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
813 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
814 static char none_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
815 "`none' is not a real language, it indicates to only do\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
816 regexp processing on files."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
817 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
818 static char no_lang_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
819 "No detailed help available for this language."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
820 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
821 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
822 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
823 * 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
|
824 * |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
825 * 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
|
826 * 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
|
827 */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
828 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
829 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
|
830 { |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
831 { "ada", Ada_help, Ada_funcs, Ada_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
832 { "asm", Asm_help, Asm_labels, Asm_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
833 { "c", default_C_help, default_C_entries, default_C_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
834 { "c++", Cplusplus_help, Cplusplus_entries, Cplusplus_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
835 { "c*", no_lang_help, Cstar_entries, Cstar_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
836 { "cobol", Cobol_help, Cobol_paragraphs, Cobol_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
837 { "erlang", Erlang_help, Erlang_functions, Erlang_suffixes }, |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
838 { "forth", Forth_help, Forth_words, Forth_suffixes }, |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
839 { "fortran", Fortran_help, Fortran_functions, Fortran_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
840 { "html", HTML_help, HTML_labels, HTML_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
841 { "java", Cjava_help, Cjava_entries, Cjava_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
842 { "lisp", Lisp_help, Lisp_functions, Lisp_suffixes }, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
843 { "lua", Lua_help, Lua_functions, Lua_suffixes }, |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
844 { "makefile", Makefile_help,Makefile_targets,NULL,Makefile_filenames}, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
845 { "objc", Objc_help, plain_C_entries, Objc_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
846 { "pascal", Pascal_help, Pascal_functions, Pascal_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
847 { "perl",Perl_help,Perl_functions,Perl_suffixes,NULL,Perl_interpreters}, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
848 { "php", PHP_help, PHP_functions, PHP_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
849 { "postscript",PS_help, PS_functions, PS_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
850 { "proc", no_lang_help, plain_C_entries, plain_C_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
851 { "prolog", Prolog_help, Prolog_functions, Prolog_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
852 { "python", Python_help, Python_functions, Python_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
853 { "scheme", Scheme_help, Scheme_functions, Scheme_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
854 { "tex", TeX_help, TeX_commands, TeX_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
855 { "texinfo", Texinfo_help, Texinfo_nodes, Texinfo_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
856 { "yacc", Yacc_help,Yacc_entries,Yacc_suffixes,NULL,NULL,TRUE}, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
857 { "auto", auto_help }, /* default guessing scheme */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
858 { "none", none_help, just_read_file }, /* regexp matching only */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
859 { 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
|
860 }; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
861 |
240 | 862 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
863 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
|
864 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
|
865 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
866 language *lang; |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
867 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
|
868 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
869 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
|
870 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
|
871 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
|
872 { |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
873 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
|
874 if (lang->filenames != NULL) |
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
875 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
|
876 printf (" %s", *name); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
877 if (lang->suffixes != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
878 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
|
879 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
|
880 puts (""); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
881 } |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
882 puts ("where `auto' means use default language for files based on file\n\ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
883 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
|
884 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
|
885 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
|
886 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
|
887 Fortran is tried first; if no tags are found, C is tried next.\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
888 When parsing any C file, a \"class\" or \"template\" keyword\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
889 switches to C++."); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
890 puts ("Compressed files are supported using gzip and bzip2.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
891 \n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
892 For detailed help on a given language use, for example,\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
893 etags --help --lang=ada."); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
894 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
895 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
896 #ifndef EMACS_NAME |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
897 # 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
|
898 #endif |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
899 #ifndef VERSION |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
900 # define VERSION "17.38" |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
901 #endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
902 static void |
621 | 903 print_version () |
904 { | |
81223
58d377c5c5bb
(print_version): Add `emacs_copyright' string, for easier automatic
Glenn Morris <rgm@gnu.org>
parents:
80957
diff
changeset
|
905 /* Makes it easier to update automatically. */ |
87549
f39c927f11aa
(print_version): Update copyright to 2008.
Glenn Morris <rgm@gnu.org>
parents:
87098
diff
changeset
|
906 char emacs_copyright[] = "Copyright (C) 2008 Free Software Foundation, Inc."; |
81223
58d377c5c5bb
(print_version): Add `emacs_copyright' string, for easier automatic
Glenn Morris <rgm@gnu.org>
parents:
80957
diff
changeset
|
907 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
908 printf ("%s (%s %s)\n", (CTAGS) ? "ctags" : "etags", EMACS_NAME, VERSION); |
81223
58d377c5c5bb
(print_version): Add `emacs_copyright' string, for easier automatic
Glenn Morris <rgm@gnu.org>
parents:
80957
diff
changeset
|
909 puts (emacs_copyright); |
76181
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
910 puts ("This program is distributed under the terms in ETAGS.README"); |
621 | 911 |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
912 exit (EXIT_SUCCESS); |
621 | 913 } |
914 | |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
915 #ifndef PRINT_UNDOCUMENTED_OPTIONS_HELP |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
916 # define PRINT_UNDOCUMENTED_OPTIONS_HELP FALSE |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
917 #endif |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
918 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
919 static void |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
920 print_help (argbuffer) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
921 argument *argbuffer; |
621 | 922 { |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
923 bool help_for_lang = FALSE; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
924 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
925 for (; argbuffer->arg_type != at_end; argbuffer++) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
926 if (argbuffer->arg_type == at_language) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
927 { |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
928 if (help_for_lang) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
929 puts (""); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
930 puts (argbuffer->lang->help); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
931 help_for_lang = TRUE; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
932 } |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
933 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
934 if (help_for_lang) |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
935 exit (EXIT_SUCCESS); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
936 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
937 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
|
938 \n\ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
939 These are the options accepted by %s.\n", progname, progname); |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
940 if (NO_LONG_OPTIONS) |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
941 puts ("WARNING: long option names do not work with this executable,\n\ |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
942 as it is not linked with GNU getopt."); |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
943 else |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
944 puts ("You may use unambiguous abbreviations for the long option names."); |
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
|
945 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
|
946 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
|
947 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
|
948 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
949 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
|
950 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
|
951 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
952 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
|
953 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
|
954 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
955 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
956 puts ("-B, --backward-search\n\ |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
957 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
|
958 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
|
959 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
960 /* 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
|
961 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
|
962 experimentation. In principle, we could want to tag as C++ even |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
963 before any "class" or "template" keyword. |
4126
9a906e5f9b28
* etags.c (print_help): Break up the very long strings containing
Jim Blandy <jimb@redhat.com>
parents:
4052
diff
changeset
|
964 puts ("-C, --c++\n\ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
965 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
|
966 */ |
621 | 967 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
968 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
|
969 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
|
970 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
|
971 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
|
972 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
|
973 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
|
974 ("\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
|
975 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
976 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
977 puts ("-d, --defines\n\ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
978 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
|
979 else |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
980 puts ("-D, --no-defines\n\ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
981 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
|
982 This makes the tags file smaller."); |
621 | 983 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
984 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
|
985 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
|
986 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
|
987 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
|
988 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
|
989 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
990 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
|
991 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
|
992 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
|
993 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
994 if (CTAGS) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
995 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
|
996 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
|
997 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
998 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
|
999 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
|
1000 languages. This makes the tags file smaller."); |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1001 |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1002 if (PRINT_UNDOCUMENTED_OPTIONS_HELP) |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1003 puts ("--no-line-directive\n\ |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1004 Ignore #line preprocessor directives in C and derived languages."); |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1005 |
80957
3de8e8f14f0d
Extern definitions of some more pointer functions for
Francesco Potortì <pot@gnu.org>
parents:
76181
diff
changeset
|
1006 if (CTAGS) |
3de8e8f14f0d
Extern definitions of some more pointer functions for
Francesco Potortì <pot@gnu.org>
parents:
76181
diff
changeset
|
1007 puts ("--members\n\ |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
1008 Create tag entries for members of structures in some languages."); |
80957
3de8e8f14f0d
Extern definitions of some more pointer functions for
Francesco Potortì <pot@gnu.org>
parents:
76181
diff
changeset
|
1009 else |
3de8e8f14f0d
Extern definitions of some more pointer functions for
Francesco Potortì <pot@gnu.org>
parents:
76181
diff
changeset
|
1010 puts ("--no-members\n\ |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
1011 Do not create tag entries for members of structures\n\ |
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
1012 in some languages."); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1013 |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1014 puts ("-r REGEXP, --regex=REGEXP or --regex=@regexfile\n\ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
1015 Make a tag for each line matching a regular expression pattern\n\ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1016 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
|
1017 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
|
1018 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
|
1019 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
|
1020 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
|
1021 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
|
1022 --regex=\"/proc[ \\t]+\\([^ \\t]+\\)/\\1/.\".\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1023 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
|
1024 `m' means to allow multi-line matches, `s' implies `m' and\n\ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
1025 causes dot to match any character, including newline."); |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1026 |
10047
9b284d98b102
* etags.c (print_help): print --regex usage for ctags also.
Francesco Potortì <pot@gnu.org>
parents:
9976
diff
changeset
|
1027 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
|
1028 Don't create tags from regexps for the following files."); |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1029 |
10449
2266157d9bcc
* etags.c (longopts, print_help, main): Use -I as abbreviation
Francesco Potortì <pot@gnu.org>
parents:
10404
diff
changeset
|
1030 puts ("-I, --ignore-indentation\n\ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
1031 In C and C++ do not assume that a closing brace in the first\n\ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
1032 column is the final brace of a function or structure definition."); |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1033 |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1034 puts ("-o FILE, --output=FILE\n\ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1035 Write the tags to FILE."); |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1036 |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1037 puts ("--parse-stdin=NAME\n\ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1038 Read from standard input and record tags as belonging to file NAME."); |
621 | 1039 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1040 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1041 { |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1042 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
|
1043 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
|
1044 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
|
1045 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
|
1046 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
|
1047 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1048 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1049 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
|
1050 puts ("-u, --update\n\ |
621 | 1051 Update the tag entries for the given files, leaving tag\n\ |
1052 entries for other files in place. Currently, this is\n\ | |
1053 implemented by deleting the existing entries for the given\n\ | |
1054 files and then rewriting the new entries at the end of the\n\ | |
1055 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
|
1056 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
|
1057 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1058 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
|
1059 { |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1060 puts ("-v, --vgrind\n\ |
66985
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1061 Print on the standard output an index of items intended for\n\ |
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1062 human consumption, similar to the output of vgrind. The index\n\ |
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1063 is sorted, and gives the page number of each item."); |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1064 |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1065 if (PRINT_UNDOCUMENTED_OPTIONS_HELP) |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1066 puts ("-w, --no-duplicates\n\ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
1067 Do not create duplicate tag entries, for compatibility with\n\ |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
1068 traditional ctags."); |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1069 |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1070 if (PRINT_UNDOCUMENTED_OPTIONS_HELP) |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1071 puts ("-w, --no-warn\n\ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
1072 Suppress warning messages about duplicate tag entries."); |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1073 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1074 puts ("-x, --cxref\n\ |
621 | 1075 Like --vgrind, but in the style of cxref, rather than vgrind.\n\ |
1076 The output uses line numbers instead of page numbers, but\n\ | |
1077 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
|
1078 which you like."); |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1079 } |
621 | 1080 |
1081 puts ("-V, --version\n\ | |
1082 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
|
1083 -h, --help\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1084 Print this help message.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1085 Followed by one or more `--language' options prints detailed\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1086 help about tag generation for the specified languages."); |
621 | 1087 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1088 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
|
1089 |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
1090 puts (""); |
26323
98d99afb5ffb
* etags.c (print_help): Change email address to send bugs to.
Gerd Moellmann <gerd@gnu.org>
parents:
26262
diff
changeset
|
1091 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
|
1092 |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1093 exit (EXIT_SUCCESS); |
621 | 1094 } |
1095 | |
1096 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1097 #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
|
1098 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1099 #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
|
1100 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1101 /* 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
|
1102 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
|
1103 #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
|
1104 typedef struct { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1105 short curlen; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1106 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
|
1107 } vspec; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1108 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1109 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1110 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
|
1111 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
|
1112 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
|
1113 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
|
1114 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
|
1115 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
|
1116 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
|
1117 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
|
1118 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
|
1119 |
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
|
1120 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
|
1121 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
|
1122 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
|
1123 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
|
1124 */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1125 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1126 #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
|
1127 #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
|
1128 #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
|
1129 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
|
1130 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
|
1131 vspec *out; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1132 char *in; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1133 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1134 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
|
1135 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
|
1136 static struct dsc$descriptor_s i; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1137 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
|
1138 long status; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1139 short retval; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1140 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1141 if (pass1) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1142 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1143 pass1 = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1144 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
|
1145 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
|
1146 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
|
1147 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
|
1148 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
|
1149 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
|
1150 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
|
1151 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
|
1152 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1153 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
|
1154 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1155 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
|
1156 return 1; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1157 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1158 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
|
1159 retval = 0; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1160 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1161 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1162 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
|
1163 retval = -1; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1164 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1165 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
|
1166 pass1 = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1167 return retval; |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1168 } |
9976
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 /* |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1171 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
|
1172 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
|
1173 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1174 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
|
1175 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
|
1176 char *arg; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1177 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
|
1178 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1179 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
|
1180 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1181 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
|
1182 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1183 case 1: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1184 *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
|
1185 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
|
1186 case 0: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1187 *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
|
1188 return NULL; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1189 default: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1190 *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
|
1191 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
|
1192 } |
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 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1195 #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
|
1196 system (cmd) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1197 char *cmd; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1198 { |
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
|
1199 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
|
1200 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1201 #endif |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1202 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1203 #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
|
1204 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
|
1205 char *s; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1206 { |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1207 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
|
1208 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1209 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
|
1210 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
|
1211 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1212 *s = EOS; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1213 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1214 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1215 else |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1216 *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
|
1217 return start; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1218 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1219 #endif /* VMS */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1220 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1221 |
15683 | 1222 int |
240 | 1223 main (argc, argv) |
1224 int argc; | |
1225 char *argv[]; | |
1226 { | |
1227 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
|
1228 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
|
1229 char **included_files; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1230 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
|
1231 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
|
1232 linebuffer filename_lb; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1233 bool help_asked = FALSE; |
240 | 1234 #ifdef VMS |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1235 bool got_err; |
240 | 1236 #endif |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1237 char *optstring; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1238 int opt; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1239 |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1240 |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
1241 #ifdef DOS_NT |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1242 _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
|
1243 #endif /* DOS_NT */ |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
1244 |
240 | 1245 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
|
1246 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
|
1247 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
|
1248 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
|
1249 file_count = 0; |
240 | 1250 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1251 /* 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
|
1252 is small. */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1253 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
|
1254 |
240 | 1255 /* |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
1256 * Always find typedefs and structure tags. |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
1257 * Also default to find macro constants, enum constants, struct |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
1258 * members and global variables. Do it for both etags and ctags. |
240 | 1259 */ |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
1260 typedefs = typedefs_or_cplusplus = constantypedefs = TRUE; |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
1261 globals = members = TRUE; |
240 | 1262 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1263 /* When the optstring begins with a '-' getopt_long does not rearrange the |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1264 non-options arguments to be at the end, but leaves them alone. */ |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
1265 optstring = concat (NO_LONG_OPTIONS ? "" : "-", |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
1266 "ac:Cf:Il:o:r:RSVhH", |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1267 (CTAGS) ? "BxdtTuvw" : "Di:"); |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1268 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1269 while ((opt = getopt_long (argc, argv, optstring, longopts, NULL)) != EOF) |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1270 switch (opt) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1271 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1272 case 0: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1273 /* 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
|
1274 long-named option. We should do nothing. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1275 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1276 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1277 case 1: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1278 /* 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
|
1279 argbuffer[current_arg].arg_type = at_filename; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1280 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1281 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1282 ++file_count; |
621 | 1283 break; |
1284 | |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1285 case STDIN: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1286 /* 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
|
1287 argbuffer[current_arg].arg_type = at_stdin; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1288 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1289 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1290 ++file_count; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1291 if (parsing_stdin) |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1292 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
|
1293 parsing_stdin = TRUE; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1294 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1295 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1296 /* Common options. */ |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1297 case 'a': append_to_tagfile = TRUE; break; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1298 case 'C': cplusplus = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1299 case 'f': /* for compatibility with old makefiles */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1300 case 'o': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1301 if (tagfile) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1302 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1303 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
|
1304 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1305 /* NOTREACHED */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1306 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1307 tagfile = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1308 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1309 case 'I': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1310 case 'S': /* for backward compatibility */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
1311 ignoreindent = TRUE; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1312 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1313 case 'l': |
240 | 1314 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1315 language *lang = get_language_from_langname (optarg); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1316 if (lang != NULL) |
621 | 1317 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1318 argbuffer[current_arg].lang = lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1319 argbuffer[current_arg].arg_type = at_language; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1320 ++current_arg; |
240 | 1321 } |
1322 } | |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1323 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1324 case 'c': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1325 /* 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
|
1326 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
|
1327 /* FALLTHRU */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1328 case 'r': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1329 argbuffer[current_arg].arg_type = at_regexp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1330 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1331 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1332 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1333 case 'R': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1334 argbuffer[current_arg].arg_type = at_regexp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1335 argbuffer[current_arg].what = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1336 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1337 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1338 case 'V': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1339 print_version (); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1340 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1341 case 'h': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1342 case 'H': |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1343 help_asked = TRUE; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1344 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1345 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1346 /* Etags options */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1347 case 'D': constantypedefs = FALSE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1348 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
|
1349 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1350 /* Ctags options. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1351 case 'B': searchar = '?'; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1352 case 'd': constantypedefs = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1353 case 't': typedefs = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1354 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
|
1355 case 'u': update = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1356 case 'v': vgrind_style = TRUE; /*FALLTHRU*/ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1357 case 'x': cxref_style = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1358 case 'w': no_warnings = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1359 default: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1360 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1361 /* NOTREACHED */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1362 } |
240 | 1363 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1364 /* No more options. Store the rest of arguments. */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1365 for (; optind < argc; optind++) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1366 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1367 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
|
1368 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
|
1369 ++current_arg; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1370 ++file_count; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1371 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1372 |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1373 argbuffer[current_arg].arg_type = at_end; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1374 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1375 if (help_asked) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1376 print_help (argbuffer); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1377 /* NOTREACHED */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1378 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1379 if (nincluded_files == 0 && file_count == 0) |
240 | 1380 { |
26507
aabdfbf65c68
1999-11-19 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26340
diff
changeset
|
1381 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
|
1382 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1383 /* NOTREACHED */ |
240 | 1384 } |
1385 | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1386 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
|
1387 tagfile = CTAGS ? "tags" : "TAGS"; |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
1388 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
|
1389 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
|
1390 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1391 char *oldcwd = cwd; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1392 cwd = concat (oldcwd, "/", ""); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1393 free (oldcwd); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1394 } |
57091
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
1395 /* Relative file names are made relative to the current directory. */ |
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
1396 if (streq (tagfile, "-") |
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
1397 || strneq (tagfile, "/dev/", 5)) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
1398 tagfiledir = cwd; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
1399 else |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
1400 tagfiledir = absolute_dirname (tagfile, cwd); |
240 | 1401 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1402 init (); /* set up boolean "functions" */ |
240 | 1403 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1404 linebuffer_init (&lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1405 linebuffer_init (&filename_lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1406 linebuffer_init (&filebuf); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1407 linebuffer_init (&token_name); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1408 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1409 if (!CTAGS) |
240 | 1410 { |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1411 if (streq (tagfile, "-")) |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1412 { |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1413 tagf = stdout; |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1414 #ifdef DOS_NT |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1415 /* 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
|
1416 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
|
1417 if (!isatty (fileno (stdout))) |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1418 setmode (fileno (stdout), O_BINARY); |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1419 #endif /* DOS_NT */ |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1420 } |
240 | 1421 else |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1422 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
|
1423 if (tagf == NULL) |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
1424 pfatal (tagfile); |
240 | 1425 } |
1426 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1427 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1428 * 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
|
1429 */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1430 for (i = 0; i < current_arg; i++) |
240 | 1431 { |
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
|
1432 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
|
1433 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
|
1434 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1435 switch (argbuffer[i].arg_type) |
240 | 1436 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1437 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
|
1438 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
|
1439 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1440 case at_regexp: |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1441 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
|
1442 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1443 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
|
1444 #ifdef VMS |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1445 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
|
1446 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1447 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
|
1448 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1449 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
|
1450 argc--, argv++; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1451 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1452 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1453 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1454 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
|
1455 } |
240 | 1456 #else |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1457 this_file = argbuffer[i].what; |
240 | 1458 #endif |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1459 /* 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
|
1460 (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
|
1461 if (streq (this_file, "-")) |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1462 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1463 if (parsing_stdin) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1464 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
|
1465 (char *)NULL); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1466 while (readline_internal (&filename_lb, stdin) > 0) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1467 process_file_name (filename_lb.buffer, lang); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1468 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1469 else |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1470 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
|
1471 #ifdef VMS |
240 | 1472 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1473 #endif |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1474 break; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1475 case at_stdin: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1476 this_file = argbuffer[i].what; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1477 process_file (stdin, this_file, lang); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1478 break; |
240 | 1479 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
1480 } |
10761
7aa80669e697
* etags.c (C_entries): Bug corrected in xrealloc of token_str.
Francesco Potortì <pot@gnu.org>
parents:
10754
diff
changeset
|
1481 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1482 free_regexps (); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1483 free (lb.buffer); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1484 free (filebuf.buffer); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1485 free (token_name.buffer); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1486 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1487 if (!CTAGS || cxref_style) |
240 | 1488 { |
66985
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1489 /* Write the remaining tags to tagf (ETAGS) or stdout (CXREF). */ |
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1490 put_entries (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
|
1491 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
|
1492 nodehead = NULL; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1493 if (!CTAGS) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1494 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1495 fdesc *fdp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1496 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1497 /* Output file entries that have no tags. */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1498 for (fdp = fdhead; fdp != NULL; fdp = fdp->next) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1499 if (!fdp->written) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1500 fprintf (tagf, "\f\n%s,0\n", fdp->taggedfname); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1501 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1502 while (nincluded_files-- > 0) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1503 fprintf (tagf, "\f\n%s,include\n", *included_files++); |
66985
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1504 |
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1505 if (fclose (tagf) == EOF) |
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1506 pfatal (tagfile); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1507 } |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1508 |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1509 exit (EXIT_SUCCESS); |
240 | 1510 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1511 |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
1512 /* From here on, we are in (CTAGS && !cxref_style) */ |
621 | 1513 if (update) |
240 | 1514 { |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1515 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
|
1516 for (i = 0; i < current_arg; ++i) |
240 | 1517 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1518 switch (argbuffer[i].arg_type) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1519 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1520 case at_filename: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1521 case at_stdin: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1522 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1523 default: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1524 continue; /* the for loop */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1525 } |
240 | 1526 sprintf (cmd, |
1527 "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
|
1528 tagfile, argbuffer[i].what, tagfile); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1529 if (system (cmd) != EXIT_SUCCESS) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
1530 fatal ("failed to execute shell command", (char *)NULL); |
240 | 1531 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1532 append_to_tagfile = TRUE; |
240 | 1533 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1534 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1535 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
|
1536 if (tagf == NULL) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1537 pfatal (tagfile); |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1538 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
|
1539 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
|
1540 nodehead = NULL; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1541 if (fclose (tagf) == EOF) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1542 pfatal (tagfile); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1543 |
65714
fbae8bd411de
(main): In append mode, sort the tags file after writing it.
Francesco Potortì <pot@gnu.org>
parents:
65708
diff
changeset
|
1544 if (CTAGS) |
fbae8bd411de
(main): In append mode, sort the tags file after writing it.
Francesco Potortì <pot@gnu.org>
parents:
65708
diff
changeset
|
1545 if (append_to_tagfile || update) |
fbae8bd411de
(main): In append mode, sort the tags file after writing it.
Francesco Potortì <pot@gnu.org>
parents:
65708
diff
changeset
|
1546 { |
75037
baea8fa9d2eb
(main): Pass the -u option to sort in ctags mode.
Francesco Potortì <pot@gnu.org>
parents:
75034
diff
changeset
|
1547 char cmd[2*BUFSIZ+20]; |
baea8fa9d2eb
(main): Pass the -u option to sort in ctags mode.
Francesco Potortì <pot@gnu.org>
parents:
75034
diff
changeset
|
1548 /* Maybe these should be used: |
baea8fa9d2eb
(main): Pass the -u option to sort in ctags mode.
Francesco Potortì <pot@gnu.org>
parents:
75034
diff
changeset
|
1549 setenv ("LC_COLLATE", "C", 1); |
baea8fa9d2eb
(main): Pass the -u option to sort in ctags mode.
Francesco Potortì <pot@gnu.org>
parents:
75034
diff
changeset
|
1550 setenv ("LC_ALL", "C", 1); */ |
baea8fa9d2eb
(main): Pass the -u option to sort in ctags mode.
Francesco Potortì <pot@gnu.org>
parents:
75034
diff
changeset
|
1551 sprintf (cmd, "sort -u -o %.*s %.*s", BUFSIZ, tagfile, BUFSIZ, tagfile); |
65714
fbae8bd411de
(main): In append mode, sort the tags file after writing it.
Francesco Potortì <pot@gnu.org>
parents:
65708
diff
changeset
|
1552 exit (system (cmd)); |
fbae8bd411de
(main): In append mode, sort the tags file after writing it.
Francesco Potortì <pot@gnu.org>
parents:
65708
diff
changeset
|
1553 } |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1554 return EXIT_SUCCESS; |
240 | 1555 } |
1556 | |
1557 | |
1558 /* | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1559 * 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
|
1560 * 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
|
1561 * 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
|
1562 * and EXTPTR is not significant. |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1563 * 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
|
1564 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1565 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
|
1566 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
|
1567 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
|
1568 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
|
1569 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1570 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
|
1571 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
|
1572 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1573 /* 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
|
1574 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
|
1575 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
|
1576 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
|
1577 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
|
1578 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
|
1579 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
|
1580 *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
|
1581 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
|
1582 /* 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
|
1583 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
|
1584 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
|
1585 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
|
1586 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1587 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
|
1588 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
|
1589 return compr; |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1590 if (!MSDOS) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1591 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
|
1592 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
|
1593 *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
|
1594 } 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
|
1595 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
|
1596 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1597 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1598 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1599 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1600 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1601 * 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
|
1602 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1603 static language * |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1604 get_language_from_langname (name) |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
1605 const char *name; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1606 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1607 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
|
1608 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1609 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
|
1610 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
|
1611 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
|
1612 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1613 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
|
1614 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
|
1615 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
|
1616 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
|
1617 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1618 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1619 return NULL; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1620 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1621 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1622 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1623 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1624 * 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
|
1625 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1626 static language * |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1627 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
|
1628 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
|
1629 { |
26262
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 language *lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1631 char **iname; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1632 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1633 if (interpreter == NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1634 return NULL; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1635 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
|
1636 if (lang->interpreters != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1637 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
|
1638 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
|
1639 return lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1640 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1641 return NULL; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1642 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1643 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1644 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1645 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1646 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1647 * 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
|
1648 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1649 static language * |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1650 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
|
1651 char *file; |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1652 bool case_sensitive; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1653 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1654 language *lang; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1655 char **name, **ext, *suffix; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1656 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1657 /* Try whole file name first. */ |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1658 for (lang = lang_names; lang->name != NULL; lang++) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1659 if (lang->filenames != NULL) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1660 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
|
1661 if ((case_sensitive) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1662 ? streq (*name, file) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1663 : strcaseeq (*name, file)) |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1664 return lang; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1665 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1666 /* 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
|
1667 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
|
1668 if (suffix == NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1669 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
|
1670 suffix += 1; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1671 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
|
1672 if (lang->suffixes != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1673 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
|
1674 if ((case_sensitive) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1675 ? streq (*ext, suffix) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1676 : 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
|
1677 return lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1678 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
|
1679 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1680 |
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
|
1681 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1682 /* |
240 | 1683 * This routine is called on each file argument. |
1684 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1685 static void |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1686 process_file_name (file, lang) |
240 | 1687 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
|
1688 language *lang; |
240 | 1689 { |
1690 struct stat stat_buf; | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1691 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
|
1692 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
|
1693 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
|
1694 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
|
1695 char *ext, *real_name; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1696 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
|
1697 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1698 canonicalize_filename (file); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1699 if (streq (file, tagfile) && !streq (tagfile, "-")) |
240 | 1700 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1701 error ("skipping inclusion of %s in self.", file); |
240 | 1702 return; |
1703 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1704 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
|
1705 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1706 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
|
1707 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
|
1708 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1709 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
|
1710 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1711 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
|
1712 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
|
1713 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1714 |
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
|
1715 /* 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
|
1716 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
|
1717 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
|
1718 { |
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
|
1719 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
|
1720 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
|
1721 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
|
1722 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1723 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1724 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
|
1725 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1726 /* 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
|
1727 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
|
1728 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
|
1729 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1730 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
|
1731 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
|
1732 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1733 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
|
1734 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1735 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
|
1736 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1737 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
|
1738 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
|
1739 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1740 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
|
1741 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1742 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
|
1743 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
|
1744 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
|
1745 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1746 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
|
1747 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
|
1748 { |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1749 real_name = compressed_name; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1750 break; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1751 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1752 } |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1753 if (real_name != NULL) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1754 break; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1755 } /* 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
|
1756 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
|
1757 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
|
1758 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1759 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
|
1760 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1761 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
|
1762 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
|
1763 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1764 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1765 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1766 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
|
1767 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1768 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
|
1769 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
|
1770 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1771 } /* 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
|
1772 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1773 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
|
1774 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1775 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
|
1776 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
|
1777 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1778 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
|
1779 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1780 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
|
1781 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
|
1782 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
|
1783 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1784 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
|
1785 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
|
1786 if (inf == NULL) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1787 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1788 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
|
1789 goto cleanup; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1790 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1791 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1792 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
|
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 if (real_name == compressed_name) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1795 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
|
1796 else |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1797 retval = fclose (inf); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1798 if (retval < 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1799 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
|
1800 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1801 cleanup: |
95479
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
1802 free (compressed_name); |
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
1803 free (uncompressed_name); |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1804 last_node = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1805 curfdp = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1806 return; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1807 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1808 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1809 static void |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1810 process_file (fh, fn, lang) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1811 FILE *fh; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1812 char *fn; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1813 language *lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1814 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1815 static const fdesc emptyfdesc; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1816 fdesc *fdp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1817 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1818 /* Create a new input file description entry. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1819 fdp = xnew (1, fdesc); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1820 *fdp = emptyfdesc; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1821 fdp->next = fdhead; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1822 fdp->infname = savestr (fn); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1823 fdp->lang = lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1824 fdp->infabsname = absolute_filename (fn, cwd); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1825 fdp->infabsdir = absolute_dirname (fn, cwd); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1826 if (filename_is_absolute (fn)) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1827 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1828 /* An absolute file name. Canonicalize it. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1829 fdp->taggedfname = absolute_filename (fn, NULL); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1830 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1831 else |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1832 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1833 /* 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
|
1834 to the directory of the tags file. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1835 fdp->taggedfname = relative_filename (fn, tagfiledir); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1836 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1837 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
|
1838 fdp->prop = NULL; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1839 fdp->written = FALSE; /* not written on tags file yet */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1840 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1841 fdhead = fdp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1842 curfdp = fdhead; /* the current file description */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1843 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1844 find_entries (fh); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1845 |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1846 /* 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
|
1847 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
|
1848 curfdp. */ |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1849 if (!CTAGS |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1850 && 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
|
1851 && !curfdp->lang->metasource) |
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1852 { |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1853 node *np, *prev; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1854 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1855 /* 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
|
1856 for the structure of the node tree. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1857 prev = NULL; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1858 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
|
1859 if (np->fdp == curfdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1860 break; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1861 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1862 /* 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
|
1863 if (np != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1864 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1865 /* 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
|
1866 instructions depend on this being true. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1867 assert (np->left == NULL); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1868 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1869 assert (fdhead == curfdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1870 assert (last_node->fdp == curfdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1871 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
|
1872 free_tree (np); /* remove the written nodes */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1873 if (prev == NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1874 nodehead = NULL; /* no nodes left */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1875 else |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1876 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
|
1877 } |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1878 } |
240 | 1879 } |
1880 | |
1881 /* | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3569
diff
changeset
|
1882 * 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
|
1883 * by setting boolean flags dependent upon the corresponding character. |
240 | 1884 * Every char which is NOT in that string is not a white char. Therefore, |
1885 * all of the array "_wht" is set to FALSE, and then the elements | |
1886 * subscripted by the chars in "white" are set to TRUE. Thus "_wht" | |
1887 * of a char is TRUE if it is the string "white", else FALSE. | |
1888 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1889 static void |
240 | 1890 init () |
1891 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
1892 register char *sp; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
1893 register int i; |
240 | 1894 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1895 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
|
1896 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
|
1897 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
|
1898 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
|
1899 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
|
1900 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
|
1901 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
|
1902 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
|
1903 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
|
1904 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
|
1905 endtoken('\0') = endtoken('\n'); |
240 | 1906 } |
1907 | |
1908 /* | |
1909 * This routine opens the specified file and calls the function | |
1910 * which finds the function and type definitions. | |
1911 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1912 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
|
1913 find_entries (inf) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1914 FILE *inf; |
240 | 1915 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1916 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
|
1917 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
|
1918 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
|
1919 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1920 /* 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
|
1921 if (lang != NULL && lang->function != NULL) |
240 | 1922 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1923 parser = lang->function; |
240 | 1924 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1925 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1926 /* 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
|
1927 if (parser == NULL) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1928 { |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1929 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
|
1930 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
|
1931 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1932 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
|
1933 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
|
1934 } |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1935 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1936 |
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
|
1937 /* 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
|
1938 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
|
1939 && 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
|
1940 && lb.len >= 2 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1941 && lb.buffer[0] == '#' |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1942 && lb.buffer[1] == '!') |
240 | 1943 { |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1944 char *lp; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1945 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1946 /* 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
|
1947 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
|
1948 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
|
1949 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
|
1950 if (lp != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1951 lp += 1; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1952 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
|
1953 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
|
1954 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
|
1955 *cp = '\0'; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1956 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1957 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
|
1958 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1959 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
|
1960 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
|
1961 { |
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
|
1962 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
|
1963 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
|
1964 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1965 } |
240 | 1966 } |
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
|
1967 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1968 /* 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
|
1969 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
|
1970 which is unlikely. */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1971 rewind (inf); |
44607
8f3420af28a8
* etags.c (get_language_from_filename): Add one argument.
Francesco Potortì <pot@gnu.org>
parents:
44605
diff
changeset
|
1972 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1973 /* 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
|
1974 if (parser == NULL) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1975 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1976 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
|
1977 if (lang != NULL && lang->function != NULL) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1978 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1979 curfdp->lang = lang; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1980 parser = lang->function; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1981 } |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1982 } |
44607
8f3420af28a8
* etags.c (get_language_from_filename): Add one argument.
Francesco Potortì <pot@gnu.org>
parents:
44605
diff
changeset
|
1983 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1984 /* Else try Fortran or C. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1985 if (parser == NULL) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1986 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1987 node *old_last_node = last_node; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1988 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1989 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
|
1990 find_entries (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1991 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1992 if (old_last_node == last_node) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1993 /* No Fortran entries found. Try C. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1994 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1995 /* 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
|
1996 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
|
1997 rewind (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1998 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
|
1999 find_entries (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2000 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2001 return; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2002 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2003 |
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
|
2004 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
|
2005 && curfdp->lang != NULL && curfdp->lang->metasource) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
2006 /* 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
|
2007 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
|
2008 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
|
2009 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
|
2010 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
|
2011 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2012 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
|
2013 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
|
2014 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
|
2015 && 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
|
2016 /* 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
|
2017 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
|
2018 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2019 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
|
2020 |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2021 /* Delete the tags referring to badfdp->taggedfname |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2022 that were obtained from badfdp->infname. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2023 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
|
2024 |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
2025 *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
|
2026 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
|
2027 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2028 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
|
2029 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
|
2030 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2031 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2032 assert (parser != NULL); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2033 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2034 /* Generic initialisations before reading from file. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2035 linebuffer_setlen (&filebuf, 0); /* reset the file buffer */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2036 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2037 /* 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
|
2038 lineno = 0; /* reset global line number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2039 charno = 0; /* reset global char number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2040 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
|
2041 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2042 parser (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2043 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2044 regex_tag_multiline (); |
240 | 2045 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2046 |
240 | 2047 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2048 /* |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2049 * Check whether an implicitly named tag should be created, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2050 * then call `pfnote'. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2051 * NAME is a string that is internally copied by this function. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2052 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2053 * TAGS format specification |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2054 * Idea by Sam Kendall <kendall@mv.mv.com> (1997) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2055 * The following is explained in some more detail in etc/ETAGS.EBNF. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2056 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2057 * make_tag creates tags with "implicit tag names" (unnamed tags) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2058 * if the following are all true, assuming NONAM=" \f\t\n\r()=,;": |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2059 * 1. NAME does not contain any of the characters in NONAM; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2060 * 2. LINESTART contains name as either a rightmost, or rightmost but |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2061 * one character, substring; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2062 * 3. the character, if any, immediately before NAME in LINESTART must |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2063 * be a character in NONAM; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2064 * 4. the character, if any, immediately after NAME in LINESTART must |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2065 * also be a character in NONAM. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2066 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2067 * The implementation uses the notinname() macro, which recognises the |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2068 * characters stored in the string `nonam'. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2069 * etags.el needs to use the same characters that are in NONAM. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2070 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2071 static void |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2072 make_tag (name, namelen, is_func, linestart, linelen, lno, cno) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2073 char *name; /* tag name, or NULL if unnamed */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2074 int namelen; /* tag length */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2075 bool is_func; /* tag is a function */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2076 char *linestart; /* start of the line where tag is */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2077 int linelen; /* length of the line where tag is */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2078 int lno; /* line number */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2079 long cno; /* character number */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2080 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2081 bool named = (name != NULL && namelen > 0); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2082 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2083 if (!CTAGS && named) /* maybe set named to false */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2084 /* Let's try to make an implicit tag name, that is, create an unnamed tag |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2085 such that etags.el can guess a name from it. */ |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2086 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2087 int i; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2088 register char *cp = name; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2089 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2090 for (i = 0; i < namelen; i++) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2091 if (notinname (*cp++)) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2092 break; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2093 if (i == namelen) /* rule #1 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2094 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2095 cp = linestart + linelen - namelen; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2096 if (notinname (linestart[linelen-1])) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2097 cp -= 1; /* rule #4 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2098 if (cp >= linestart /* rule #2 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2099 && (cp == linestart |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2100 || notinname (cp[-1])) /* rule #3 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2101 && strneq (name, cp, namelen)) /* rule #2 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2102 named = FALSE; /* use implicit tag name */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2103 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2104 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2105 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2106 if (named) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2107 name = savenstr (name, namelen); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2108 else |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2109 name = NULL; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2110 pfnote (name, is_func, linestart, linelen, lno, cno); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2111 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2112 |
240 | 2113 /* Record a tag. */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
2114 static void |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
2115 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
|
2116 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
|
2117 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
|
2118 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
|
2119 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
|
2120 int lno; /* line number */ |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2121 long cno; /* character number */ |
240 | 2122 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2123 register node *np; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2124 |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
2125 assert (name == NULL || name[0] != '\0'); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2126 if (CTAGS && name == NULL) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2127 return; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2128 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2129 np = xnew (1, node); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2130 |
240 | 2131 /* 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
|
2132 if (CTAGS && !cxref_style && streq (name, "main")) |
240 | 2133 { |
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
|
2134 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
|
2135 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
|
2136 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
|
2137 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
|
2138 fp[0] = '\0'; |
240 | 2139 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2140 else |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
2141 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
|
2142 np->valid = TRUE; |
10623
8a73e71a55e3
* etags.c (pfnote): Initialise been_warned in the node.
Francesco Potortì <pot@gnu.org>
parents:
10449
diff
changeset
|
2143 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
|
2144 np->fdp = curfdp; |
240 | 2145 np->is_func = is_func; |
2146 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
|
2147 if (np->fdp->usecharno) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2148 /* 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
|
2149 ctags compatibility? old versions compatibility? I don't know. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2150 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
|
2151 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
|
2152 uncomment the +1 below. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2153 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
|
2154 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
|
2155 np->cno = invalidcharno; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2156 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
|
2157 if (CTAGS && !cxref_style) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2158 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2159 if (strlen (linestart) < 50) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2160 np->regex = concat (linestart, "$", ""); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2161 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2162 np->regex = savenstr (linestart, 50); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2163 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2164 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2165 np->regex = savenstr (linestart, linelen); |
240 | 2166 |
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
|
2167 add_node (np, &nodehead); |
240 | 2168 } |
2169 | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2170 /* |
240 | 2171 * free_tree () |
2172 * recurse on left children, iterate on right children. | |
2173 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2174 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
|
2175 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
|
2176 register node *np; |
240 | 2177 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2178 while (np) |
240 | 2179 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2180 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
|
2181 free_tree (np->left); |
95479
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
2182 free (np->name); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2183 free (np->regex); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2184 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
|
2185 np = node_right; |
240 | 2186 } |
2187 } | |
2188 | |
2189 /* | |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2190 * free_fdesc () |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2191 * delete a file description |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2192 */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2193 static void |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2194 free_fdesc (fdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2195 register fdesc *fdp; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2196 { |
95479
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
2197 free (fdp->infname); |
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
2198 free (fdp->infabsname); |
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
2199 free (fdp->infabsdir); |
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
2200 free (fdp->taggedfname); |
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
2201 free (fdp->prop); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2202 free (fdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2203 } |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2204 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2205 /* |
240 | 2206 * add_node () |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2207 * 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
|
2208 * 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
|
2209 * balancing. |
240 | 2210 * |
2211 * add_node is the only function allowed to add nodes, so it can | |
2212 * maintain state. | |
2213 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2214 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
|
2215 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
|
2216 node *np, **cur_node_p; |
240 | 2217 { |
2218 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
|
2219 register node *cur_node = *cur_node_p; |
240 | 2220 |
2221 if (cur_node == NULL) | |
2222 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2223 *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
|
2224 last_node = np; |
240 | 2225 return; |
2226 } | |
2227 | |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
2228 if (!CTAGS) |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2229 /* Etags Mode */ |
240 | 2230 { |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2231 /* 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
|
2232 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
|
2233 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
|
2234 used sublist. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2235 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
|
2236 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2237 /* 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
|
2238 assert (last_node->right == NULL); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2239 last_node->right = np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2240 last_node = np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2241 } |
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
|
2242 else if (cur_node->fdp == np->fdp) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2243 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2244 /* 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
|
2245 good for us. Let's scan this sublist. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2246 add_node (np, &cur_node->right); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2247 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2248 else |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2249 /* 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
|
2250 next one. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2251 add_node (np, &cur_node->left); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2252 } /* if ETAGS mode */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2253 |
240 | 2254 else |
2255 { | |
2256 /* 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
|
2257 dif = strcmp (np->name, cur_node->name); |
240 | 2258 |
2259 /* | |
2260 * If this tag name matches an existing one, then | |
2261 * do not add the node, but maybe print a warning. | |
2262 */ | |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
2263 if (no_duplicates && !dif) |
240 | 2264 { |
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
|
2265 if (np->fdp == cur_node->fdp) |
240 | 2266 { |
2267 if (!no_warnings) | |
2268 { | |
2269 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
|
2270 np->fdp->infname, lineno, np->name); |
240 | 2271 fprintf (stderr, "Second entry ignored\n"); |
2272 } | |
2273 } | |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2274 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
|
2275 { |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2276 fprintf |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2277 (stderr, |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2278 "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
|
2279 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
|
2280 cur_node->been_warned = TRUE; |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2281 } |
240 | 2282 return; |
2283 } | |
2284 | |
2285 /* 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
|
2286 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
|
2287 } /* if CTAGS mode */ |
240 | 2288 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2289 |
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
|
2290 /* |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2291 * 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
|
2292 * 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
|
2293 * 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
|
2294 */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2295 static void |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2296 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
|
2297 fdesc *badfdp; |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2298 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
|
2299 { |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2300 node *np = *npp; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2301 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2302 if (np == NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2303 return; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2304 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2305 if (CTAGS) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2306 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2307 if (np->left != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2308 invalidate_nodes (badfdp, &np->left); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2309 if (np->fdp == badfdp) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2310 np->valid = FALSE; |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2311 if (np->right != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2312 invalidate_nodes (badfdp, &np->right); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2313 } |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2314 else |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2315 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2316 assert (np->fdp != NULL); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2317 if (np->fdp == badfdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2318 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2319 *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
|
2320 np->left = NULL; /* isolate it */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2321 free_tree (np); /* free it */ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2322 invalidate_nodes (badfdp, npp); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2323 } |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2324 else |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2325 invalidate_nodes (badfdp, &np->left); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2326 } |
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
|
2327 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2328 |
240 | 2329 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2330 static int total_size_of_entries __P((node *)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2331 static int number_len __P((long)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2332 |
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
|
2333 /* 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
|
2334 static int |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2335 number_len (num) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2336 long num; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2337 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2338 int len = 1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2339 while ((num /= 10) > 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2340 len += 1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2341 return len; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2342 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2343 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2344 /* |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2345 * 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
|
2346 * 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
|
2347 * 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
|
2348 * but is still supplied for backward compatibility. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2349 */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2350 static int |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2351 total_size_of_entries (np) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2352 register node *np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2353 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2354 register int total = 0; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2355 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2356 for (; np != NULL; np = np->right) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2357 if (np->valid) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2358 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2359 total += strlen (np->regex) + 1; /* pat\177 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2360 if (np->name != NULL) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2361 total += strlen (np->name) + 1; /* name\001 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2362 total += number_len ((long) np->lno) + 1; /* lno, */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2363 if (np->cno != invalidcharno) /* cno */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2364 total += number_len (np->cno); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2365 total += 1; /* newline */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2366 } |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2367 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2368 return total; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2369 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2370 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2371 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
|
2372 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
|
2373 register node *np; |
240 | 2374 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2375 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
|
2376 static fdesc *fdp = NULL; |
240 | 2377 |
26262
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 if (np == NULL) |
240 | 2379 return; |
2380 | |
2381 /* Output subentries that precede this one */ | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2382 if (CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2383 put_entries (np->left); |
240 | 2384 |
2385 /* 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
|
2386 if (np->valid) |
240 | 2387 { |
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
|
2388 if (!CTAGS) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2389 { |
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
|
2390 /* 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
|
2391 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
|
2392 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2393 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
|
2394 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
|
2395 fdp->taggedfname, total_size_of_entries (np)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2396 fdp->written = TRUE; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2397 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2398 fputs (np->regex, tagf); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2399 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
|
2400 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
|
2401 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2402 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
|
2403 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
|
2404 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2405 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
|
2406 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
|
2407 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
|
2408 fputs ("\n", tagf); |
240 | 2409 } |
2410 else | |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2411 { |
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
|
2412 /* 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
|
2413 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
|
2414 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
|
2415 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2416 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
|
2417 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2418 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
|
2419 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
|
2420 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
|
2421 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
|
2422 fprintf (stdout, "%-16s %3d %-16s %s\n", |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2423 np->name, np->lno, np->fdp->taggedfname, np->regex); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2424 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2425 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
|
2426 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2427 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
|
2428 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2429 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
|
2430 { /* 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
|
2431 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
|
2432 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
|
2433 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2434 for (sp = np->regex; *sp; sp++) |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2435 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2436 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
|
2437 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
|
2438 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
|
2439 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2440 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
|
2441 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2442 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
|
2443 { /* 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
|
2444 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
|
2445 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2446 putc ('\n', tagf); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2447 } |
240 | 2448 } |
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
|
2449 } /* if this node contains a valid tag */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2450 |
240 | 2451 /* 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
|
2452 put_entries (np->right); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2453 if (!CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2454 put_entries (np->left); |
240 | 2455 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2456 |
240 | 2457 |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2458 /* C extensions. */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2459 #define C_EXT 0x00fff /* C extensions */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2460 #define C_PLAIN 0x00000 /* C */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2461 #define C_PLPL 0x00001 /* C++ */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2462 #define C_STAR 0x00003 /* C* */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2463 #define C_JAVA 0x00005 /* JAVA */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2464 #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
|
2465 #define YACC 0x10000 /* yacc file */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2466 |
240 | 2467 /* |
2468 * The C symbol tables. | |
2469 */ | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2470 enum sym_type |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2471 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2472 st_none, |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2473 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
|
2474 st_C_gnumacro, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2475 st_C_ignore, st_C_attribute, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2476 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
|
2477 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
|
2478 st_C_class, st_C_template, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2479 st_C_struct, st_C_extern, st_C_enum, st_C_define, st_C_typedef |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2480 }; |
240 | 2481 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2482 static unsigned int hash __P((const char *, unsigned int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2483 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
|
2484 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
|
2485 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2486 /* Feed stuff between (but not including) %[ and %] lines to: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2487 gperf -m 5 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2488 %[ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2489 %compare-strncmp |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2490 %enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2491 %struct-type |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2492 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
|
2493 %% |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2494 if, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2495 for, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2496 while, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2497 switch, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2498 return, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2499 __attribute__, 0, st_C_attribute |
91499
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2500 GTY, 0, st_C_attribute |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2501 @interface, 0, st_C_objprot |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2502 @protocol, 0, st_C_objprot |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2503 @implementation,0, st_C_objimpl |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2504 @end, 0, st_C_objend |
75675
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2505 import, (C_JAVA & ~C_PLPL), st_C_ignore |
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2506 package, (C_JAVA & ~C_PLPL), st_C_ignore |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2507 friend, C_PLPL, st_C_ignore |
75675
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2508 extends, (C_JAVA & ~C_PLPL), st_C_javastruct |
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2509 implements, (C_JAVA & ~C_PLPL), st_C_javastruct |
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2510 interface, (C_JAVA & ~C_PLPL), st_C_struct |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2511 class, 0, st_C_class |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2512 namespace, C_PLPL, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2513 domain, C_STAR, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2514 union, 0, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2515 struct, 0, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2516 extern, 0, st_C_extern |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2517 enum, 0, st_C_enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2518 typedef, 0, st_C_typedef |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2519 define, 0, st_C_define |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2520 undef, 0, st_C_define |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2521 operator, C_PLPL, st_C_operator |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2522 template, 0, st_C_template |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2523 # DEFUN used in emacs, the next three used in glibc (SYSCALL only for mach). |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2524 DEFUN, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2525 SYSCALL, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2526 ENTRY, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2527 PSEUDO, 0, st_C_gnumacro |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2528 # 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
|
2529 # EXFUN used in glibc, DEFVAR_* in emacs. |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2530 #EXFUN, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2531 #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
|
2532 %] |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2533 and replace lines between %< and %> with its output, then: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2534 - remove the #if characterset check |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2535 - make in_word_set static and not inline. */ |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2536 /*%<*/ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2537 /* C code produced by gperf version 3.0.1 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2538 /* Command-line: gperf -m 5 */ |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2539 /* Computed positions: -k'2-3' */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2540 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2541 struct C_stab_entry { char *name; int c_ext; enum sym_type type; }; |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2542 /* maximum key range = 33, 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
|
2543 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2544 #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
|
2545 __inline |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2546 #else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2547 #ifdef __cplusplus |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2548 inline |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2549 #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
|
2550 #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
|
2551 static unsigned int |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2552 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
|
2553 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
|
2554 register unsigned int len; |
240 | 2555 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2556 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
|
2557 { |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2558 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2559 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2560 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2561 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2562 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2563 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
91499
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2564 35, 35, 35, 35, 35, 35, 35, 35, 35, 3, |
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2565 26, 35, 35, 35, 35, 35, 35, 35, 27, 35, |
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2566 35, 35, 35, 24, 0, 35, 35, 35, 35, 0, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2567 35, 35, 35, 35, 35, 1, 35, 16, 35, 6, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2568 23, 0, 0, 35, 22, 0, 35, 35, 5, 0, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2569 0, 15, 1, 35, 6, 35, 8, 19, 35, 16, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2570 4, 5, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2571 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2572 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2573 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2574 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2575 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2576 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2577 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2578 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2579 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2580 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2581 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2582 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2583 35, 35, 35, 35, 35, 35 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2584 }; |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2585 register int hval = len; |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2586 |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2587 switch (hval) |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2588 { |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2589 default: |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2590 hval += asso_values[(unsigned char)str[2]]; |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2591 /*FALLTHROUGH*/ |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2592 case 2: |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2593 hval += asso_values[(unsigned char)str[1]]; |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2594 break; |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2595 } |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2596 return hval; |
240 | 2597 } |
2598 | |
35766
3584fc1b9b79
(in_word_set): Use `static' in definition (for pcc).
Dave Love <fx@gnu.org>
parents:
35758
diff
changeset
|
2599 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
|
2600 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
|
2601 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
|
2602 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
|
2603 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2604 enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2605 { |
91499
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2606 TOTAL_KEYWORDS = 33, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2607 MIN_WORD_LENGTH = 2, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2608 MAX_WORD_LENGTH = 15, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2609 MIN_HASH_VALUE = 2, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2610 MAX_HASH_VALUE = 34 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2611 }; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2612 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2613 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
|
2614 { |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2615 {""}, {""}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2616 {"if", 0, st_C_ignore}, |
91499
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2617 {"GTY", 0, st_C_attribute}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2618 {"@end", 0, st_C_objend}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2619 {"union", 0, st_C_struct}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2620 {"define", 0, st_C_define}, |
75675
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2621 {"import", (C_JAVA & ~C_PLPL), st_C_ignore}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2622 {"template", 0, st_C_template}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2623 {"operator", C_PLPL, st_C_operator}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2624 {"@interface", 0, st_C_objprot}, |
75675
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2625 {"implements", (C_JAVA & ~C_PLPL), st_C_javastruct}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2626 {"friend", C_PLPL, st_C_ignore}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2627 {"typedef", 0, st_C_typedef}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2628 {"return", 0, st_C_ignore}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2629 {"@implementation",0, st_C_objimpl}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2630 {"@protocol", 0, st_C_objprot}, |
75675
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2631 {"interface", (C_JAVA & ~C_PLPL), st_C_struct}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2632 {"extern", 0, st_C_extern}, |
75675
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2633 {"extends", (C_JAVA & ~C_PLPL), st_C_javastruct}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2634 {"struct", 0, st_C_struct}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2635 {"domain", C_STAR, st_C_struct}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2636 {"switch", 0, st_C_ignore}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2637 {"enum", 0, st_C_enum}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2638 {"for", 0, st_C_ignore}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2639 {"namespace", C_PLPL, st_C_struct}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2640 {"class", 0, st_C_class}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2641 {"while", 0, st_C_ignore}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2642 {"undef", 0, st_C_define}, |
75675
37aa3bcd315f
(gperf, in_word_set): changed attribute for Java to (C_JAVA & ~C_PLPL).
Francesco Potortì <pot@gnu.org>
parents:
75654
diff
changeset
|
2643 {"package", (C_JAVA & ~C_PLPL), st_C_ignore}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2644 {"__attribute__", 0, st_C_attribute}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2645 {"SYSCALL", 0, st_C_gnumacro}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2646 {"ENTRY", 0, st_C_gnumacro}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2647 {"PSEUDO", 0, st_C_gnumacro}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2648 {"DEFUN", 0, st_C_gnumacro} |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2649 }; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2650 |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2651 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
|
2652 { |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2653 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
|
2654 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2655 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
|
2656 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2657 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
|
2658 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2659 if (*str == *s && !strncmp (str + 1, s + 1, len - 1) && s[len] == '\0') |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2660 return &wordlist[key]; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2661 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2662 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2663 return 0; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2664 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2665 /*%>*/ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
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 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
|
2668 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
|
2669 char *str; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2670 int len; |
240 | 2671 int c_ext; |
2672 { | |
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
|
2673 register struct C_stab_entry *se = in_word_set (str, len); |
240 | 2674 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2675 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
|
2676 return st_none; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2677 return se->type; |
240 | 2678 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2679 |
240 | 2680 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2681 /* |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2682 * Ignoring __attribute__ ((list)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2683 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2684 static bool inattribute; /* looking at an __attribute__ construct */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2685 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2686 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2687 * 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
|
2688 * 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
|
2689 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2690 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2691 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2692 fvnone, /* nothing seen */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2693 fdefunkey, /* Emacs DEFUN keyword seen */ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2694 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
|
2695 foperator, /* func: operator keyword seen (cplpl) */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2696 fvnameseen, /* function or variable name seen */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2697 fstartlist, /* func: just after open parenthesis */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2698 finlist, /* func: in parameter list */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2699 flistseen, /* func: after parameter list */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2700 fignore, /* func: before open brace */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2701 vignore /* var-like: ignore until ';' */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2702 } fvdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2703 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2704 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
|
2705 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2706 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2707 * 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
|
2708 * typdef is its state variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2709 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2710 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2711 { |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
2712 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
|
2713 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
|
2714 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
|
2715 tinbody, /* inside typedef body */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2716 tend, /* just before typedef tag */ |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2717 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
|
2718 } typdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2719 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2720 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2721 * 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
|
2722 * 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
|
2723 * variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2724 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2725 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2726 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2727 snone, /* nothing seen yet, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2728 or in struct body if bracelev > 0 */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2729 skeyseen, /* struct-like keyword seen */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2730 stagseen, /* struct-like tag seen */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2731 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
|
2732 } structdef; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2733 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2734 /* |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2735 * 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
|
2736 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2737 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
|
2738 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2739 /* |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2740 * 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
|
2741 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2742 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2743 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2744 dnone, /* nothing seen */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2745 dsharpseen, /* '#' seen as first char on line */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2746 ddefineseen, /* '#' and 'define' seen */ |
5044
d3bd7baee39f
(FUNCST, TYPEDST, STRUCTST, DEFINEST): Delete excess commas.
Richard M. Stallman <rms@gnu.org>
parents:
4937
diff
changeset
|
2747 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
|
2748 } definedef; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2749 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2750 /* |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2751 * 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
|
2752 * 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
|
2753 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2754 static enum |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2755 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2756 onone, /* nothing seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2757 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
|
2758 oimplementation, /* @implementations seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2759 otagseen, /* class name seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2760 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
|
2761 ocatseen, /* category name seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2762 oinbody, /* in @implementation body */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2763 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
|
2764 omethodtag, /* after method name */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2765 omethodcolon, /* after method colon */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2766 omethodparm, /* after method parameter */ |
14230
6b836f84bccf
(enum sym_type, anonymous enum): Delete final comma.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
2767 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
|
2768 } objdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2769 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2770 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2771 /* |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2772 * 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
|
2773 * 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
|
2774 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2775 static struct tok |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2776 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2777 char *line; /* string containing the token */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2778 int offset; /* where the token starts in LINE */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2779 int length; /* token length */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2780 /* |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2781 The previous members can be used to pass strings around for generic |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2782 purposes. The following ones specifically refer to creating tags. In this |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2783 case the token contained here is the pattern that will be used to create a |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2784 tag. |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2785 */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2786 bool valid; /* do not create a tag; the token should be |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2787 invalidated whenever a state machine is |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2788 reset prematurely */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2789 bool named; /* create a named tag */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2790 int lineno; /* source line number of tag */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2791 long linepos; /* source char number of tag */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2792 } token; /* latest token read */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2793 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2794 /* |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2795 * 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
|
2796 * 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
|
2797 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2798 static void pushclass_above __P((int, char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2799 static void popclass_above __P((int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2800 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
|
2801 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2802 static struct { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2803 char **cname; /* nested class names */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2804 int *bracelev; /* nested class brace level */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2805 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
|
2806 int size; /* length of the array */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2807 } cstack; /* stack for nested declaration tags */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2808 /* 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
|
2809 #define nestlev (cstack.nl) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
2810 /* After struct keyword or in struct body, not inside a nested function. */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2811 #define instruct (structdef == snone && nestlev > 0 \ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2812 && bracelev == cstack.bracelev[nestlev-1] + 1) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2813 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2814 static void |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2815 pushclass_above (bracelev, str, len) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2816 int bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2817 char *str; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2818 int len; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2819 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2820 int nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2821 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2822 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2823 nl = cstack.nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2824 if (nl >= cstack.size) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2825 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2826 int size = cstack.size *= 2; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2827 xrnew (cstack.cname, size, char *); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2828 xrnew (cstack.bracelev, size, int); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2829 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2830 assert (nl == 0 || cstack.bracelev[nl-1] < bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2831 cstack.cname[nl] = (str == NULL) ? NULL : savenstr (str, len); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2832 cstack.bracelev[nl] = bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2833 cstack.nl = nl + 1; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2834 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2835 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2836 static void |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2837 popclass_above (bracelev) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2838 int bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2839 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2840 int nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2841 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2842 for (nl = cstack.nl - 1; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2843 nl >= 0 && cstack.bracelev[nl] >= bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2844 nl--) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2845 { |
95479
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
2846 free (cstack.cname[nl]); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2847 cstack.nl = nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2848 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2849 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2850 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2851 static void |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2852 write_classname (cn, qualifier) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2853 linebuffer *cn; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2854 char *qualifier; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2855 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2856 int i, len; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2857 int qlen = strlen (qualifier); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2858 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2859 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
|
2860 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2861 len = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2862 cn->len = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2863 cn->buffer[0] = '\0'; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2864 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2865 else |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2866 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2867 len = strlen (cstack.cname[0]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2868 linebuffer_setlen (cn, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2869 strcpy (cn->buffer, cstack.cname[0]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2870 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2871 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
|
2872 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2873 char *s; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2874 int slen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2875 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2876 s = cstack.cname[i]; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2877 if (s == NULL) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2878 continue; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2879 slen = strlen (s); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2880 len += slen + qlen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2881 linebuffer_setlen (cn, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2882 strncat (cn->buffer, qualifier, qlen); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2883 strncat (cn->buffer, s, slen); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2884 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2885 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2886 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2887 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2888 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
|
2889 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
|
2890 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2891 /* |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2892 * consider_token () |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2893 * 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
|
2894 * 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
|
2895 * 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
|
2896 * |
78472 | 2897 * *IS_FUNC gets TRUE if 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
|
2898 * 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
|
2899 * |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2900 * Globals |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2901 * fvdef IN OUT |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2902 * structdef IN OUT |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2903 * definedef IN OUT |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2904 * typdef IN OUT |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2905 * objdef IN OUT |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2906 */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2907 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2908 static bool |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2909 consider_token (str, len, c, c_extp, bracelev, parlev, is_func_or_var) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2910 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
|
2911 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
|
2912 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
|
2913 int *c_extp; /* IN, OUT: C extensions mask */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2914 int bracelev; /* IN: brace level */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2915 int parlev; /* IN: parenthesis level */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2916 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
|
2917 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2918 /* When structdef is stagseen, scolonseen, or snone with bracelev > 0, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2919 structtype is the type of the preceding struct-like keyword, and |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2920 structbracelev is the brace level where it has been seen. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2921 static enum sym_type structtype; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2922 static int structbracelev; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2923 static enum sym_type toktype; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2924 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2925 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2926 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
|
2927 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2928 /* |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2929 * Skip __attribute__ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2930 */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2931 if (toktype == st_C_attribute) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2932 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2933 inattribute = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2934 return FALSE; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2935 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2936 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2937 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2938 * Advance the definedef state machine. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2939 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2940 switch (definedef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2941 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2942 case dnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2943 /* We're not on a preprocessor line. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2944 if (toktype == st_C_gnumacro) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2945 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2946 fvdef = fdefunkey; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2947 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2948 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2949 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2950 case dsharpseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2951 if (toktype == st_C_define) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2952 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2953 definedef = ddefineseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2954 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2955 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2956 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2957 definedef = dignorerest; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2958 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2959 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2960 case ddefineseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2961 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2962 * Make a tag for any macro, unless it is a constant |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2963 * and constantypedefs is FALSE. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2964 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2965 definedef = dignorerest; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2966 *is_func_or_var = (c == '('); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2967 if (!*is_func_or_var && !constantypedefs) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2968 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2969 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2970 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2971 case dignorerest: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2972 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2973 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2974 error ("internal error: definedef value.", (char *)NULL); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2975 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2976 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2977 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2978 * Now typedefs |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2979 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2980 switch (typdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2981 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2982 case tnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2983 if (toktype == st_C_typedef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2984 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2985 if (typedefs) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2986 typdef = tkeyseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2987 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2988 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2989 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2990 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2991 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2992 case tkeyseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2993 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2994 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2995 case st_none: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2996 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2997 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2998 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2999 typdef = ttypeseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3000 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3001 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3002 case ttypeseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3003 if (structdef == snone && fvdef == fvnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3004 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3005 fvdef = fvnameseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3006 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3007 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3008 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3009 case tend: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3010 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3011 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3012 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3013 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3014 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3015 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3016 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3017 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3018 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3019 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3020 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3021 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3022 case st_C_javastruct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3023 if (structdef == stagseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3024 structdef = scolonseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3025 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3026 case st_C_template: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3027 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3028 if ((*c_extp & C_AUTO) /* automatic detection of C++ language */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3029 && bracelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3030 && definedef == dnone && structdef == snone |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3031 && typdef == tnone && fvdef == fvnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3032 *c_extp = (*c_extp | C_PLPL) & ~C_AUTO; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3033 if (toktype == st_C_template) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3034 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3035 /* FALLTHRU */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3036 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3037 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3038 if (parlev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3039 && fvdef != vignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3040 && (typdef == tkeyseen |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3041 || (typedefs_or_cplusplus && structdef == snone))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3042 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3043 structdef = skeyseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3044 structtype = toktype; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3045 structbracelev = bracelev; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3046 if (fvdef == fvnameseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3047 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3048 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3049 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3050 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3051 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3052 if (structdef == skeyseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3053 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3054 structdef = stagseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3055 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3056 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3057 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3058 if (typdef != tnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3059 definedef = dnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3060 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3061 /* Detect Objective C constructs. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3062 switch (objdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3063 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3064 case onone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3065 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3066 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3067 case st_C_objprot: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3068 objdef = oprotocol; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3069 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3070 case st_C_objimpl: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3071 objdef = oimplementation; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3072 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3073 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3074 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3075 case oimplementation: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3076 /* Save the class tag for functions or variables defined inside. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3077 objtag = savenstr (str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3078 objdef = oinbody; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3079 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3080 case oprotocol: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3081 /* Save the class tag for categories. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3082 objtag = savenstr (str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3083 objdef = otagseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3084 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3085 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3086 case oparenseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3087 objdef = ocatseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3088 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3089 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3090 case oinbody: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3091 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3092 case omethodsign: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3093 if (parlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3094 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3095 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3096 objdef = omethodtag; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3097 linebuffer_setlen (&token_name, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3098 strncpy (token_name.buffer, str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3099 token_name.buffer[len] = '\0'; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3100 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3101 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3102 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3103 case omethodcolon: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3104 if (parlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3105 objdef = omethodparm; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3106 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3107 case omethodparm: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3108 if (parlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3109 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3110 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3111 objdef = omethodtag; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3112 linebuffer_setlen (&token_name, token_name.len + len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3113 strncat (token_name.buffer, str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3114 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3115 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3116 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3117 case oignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3118 if (toktype == st_C_objend) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3119 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3120 /* Memory leakage here: the string pointed by objtag is |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3121 never released, because many tests would be needed to |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3122 avoid breaking on incorrect input code. The amount of |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3123 memory leaked here is the sum of the lengths of the |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3124 class tags. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3125 free (objtag); */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3126 objdef = onone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3127 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3128 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3129 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3130 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3131 /* A function, variable or enum constant? */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3132 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3133 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3134 case st_C_extern: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3135 fvextern = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3136 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3137 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3138 case finlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3139 case flistseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3140 case fignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3141 case vignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3142 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3143 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3144 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3145 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3146 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3147 case st_C_ignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3148 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3149 fvdef = vignore; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3150 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3151 case st_C_operator: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3152 fvdef = foperator; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3153 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3154 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3155 case st_none: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3156 if (constantypedefs |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3157 && structdef == snone |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3158 && structtype == st_C_enum && bracelev > structbracelev) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3159 return TRUE; /* enum constant */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3160 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3161 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3162 case fdefunkey: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3163 if (bracelev > 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3164 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3165 fvdef = fdefunname; /* GNU macro */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3166 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3167 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3168 case fvnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3169 switch (typdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3170 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3171 case ttypeseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3172 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3173 case tnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3174 if ((strneq (str, "asm", 3) && endtoken (str[3])) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3175 || (strneq (str, "__asm__", 7) && endtoken (str[7]))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3176 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3177 fvdef = vignore; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3178 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3179 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3180 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3181 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3182 /* FALLTHRU */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3183 case fvnameseen: |
52421
c6c2d0694257
(consider_token): check C++ `operator' only when the token len is long
Francesco Potortì <pot@gnu.org>
parents:
52401
diff
changeset
|
3184 if (len >= 10 && strneq (str+len-10, "::operator", 10)) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3185 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3186 if (*c_extp & C_AUTO) /* automatic detection of C++ */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3187 *c_extp = (*c_extp | C_PLPL) & ~C_AUTO; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3188 fvdef = foperator; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3189 *is_func_or_var = TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3190 return TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3191 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3192 if (bracelev > 0 && !instruct) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3193 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3194 fvdef = fvnameseen; /* function or variable */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3195 *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
|
3196 return TRUE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3197 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3198 break; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3199 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3200 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3201 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3202 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3203 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3204 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3205 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3206 * 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
|
3207 * 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
|
3208 * them at end of line, it is possible to use those pointers. |
240 | 3209 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
3210 static struct |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3211 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3212 long linepos; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3213 linebuffer lb; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3214 } lbs[2]; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3215 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3216 #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
|
3217 #define switch_line_buffers() (curndx = 1 - curndx) |
240 | 3218 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3219 #define curlb (lbs[curndx].lb) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3220 #define newlb (lbs[newndx].lb) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3221 #define curlinepos (lbs[curndx].linepos) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3222 #define newlinepos (lbs[newndx].linepos) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3223 |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3224 #define plainc ((c_ext & C_EXT) == C_PLAIN) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3225 #define cplpl (c_ext & C_PLPL) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3226 #define cjava ((c_ext & C_JAVA) == C_JAVA) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3227 |
26262
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 #define CNL_SAVE_DEFINEDEF() \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3229 do { \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3230 curlinepos = charno; \ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
3231 readline (&curlb, inf); \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3232 lp = curlb.buffer; \ |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3233 quotednl = FALSE; \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3234 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
|
3235 } while (0) |
240 | 3236 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3237 #define CNL() \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3238 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
|
3239 CNL_SAVE_DEFINEDEF(); \ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3240 if (savetoken.valid) \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3241 { \ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3242 token = savetoken; \ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3243 savetoken.valid = FALSE; \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3244 } \ |
240 | 3245 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
|
3246 } while (0) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3247 |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3248 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3249 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3250 make_C_tag (isfun) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3251 bool isfun; |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3252 { |
74768
75794203c470
(C_entries): DEFUN names were longer by one: corrected.
Francesco Potortì <pot@gnu.org>
parents:
74298
diff
changeset
|
3253 /* This function is never 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
|
3254 we must protect against invalid input or internal errors. */ |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3255 if (token.valid) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3256 make_tag (token_name.buffer, token_name.len, isfun, token.line, |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3257 token.offset+token.length+1, token.lineno, token.linepos); |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3258 else if (DEBUG) |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3259 { /* this branch is optimised away if !DEBUG */ |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3260 make_tag (concat ("INVALID TOKEN:-->", token_name.buffer, ""), |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3261 token_name.len + 17, isfun, token.line, |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3262 token.offset+token.length+1, token.lineno, token.linepos); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3263 error ("INVALID TOKEN", NULL); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3264 } |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3265 |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3266 token.valid = FALSE; |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3267 } |
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3268 |
240 | 3269 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3270 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3271 * C_entries () |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3272 * This routine finds functions, variables, typedefs, |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3273 * #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
|
3274 * 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
|
3275 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
3276 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3277 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
|
3278 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
|
3279 FILE *inf; /* input file */ |
240 | 3280 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3281 register char c; /* latest char read; '\0' for end of line */ |
240 | 3282 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
|
3283 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
|
3284 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
|
3285 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
|
3286 char *qualifier; /* string used to qualify names */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3287 int qlen; /* length of qualifier */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3288 int bracelev; /* current brace level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3289 int bracketlev; /* current bracket level */ |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3290 int parlev; /* current parenthesis level */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3291 int attrparlev; /* __attribute__ parenthesis level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3292 int templatelev; /* current template level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3293 int typdefbracelev; /* bracelev where a typedef struct body begun */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3294 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
|
3295 bool yacc_rules; /* in the rules part of a yacc file */ |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
3296 struct tok savetoken = {0}; /* token saved during preprocessor handling */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3297 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3298 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
3299 linebuffer_init (&lbs[0].lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
3300 linebuffer_init (&lbs[1].lb); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3301 if (cstack.size == 0) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3302 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3303 cstack.size = (DEBUG) ? 1 : 4; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3304 cstack.nl = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3305 cstack.cname = xnew (cstack.size, char *); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3306 cstack.bracelev = xnew (cstack.size, int); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3307 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3308 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3309 tokoff = toklen = typdefbracelev = 0; /* keep compiler quiet */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3310 curndx = newndx = 0; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3311 lp = curlb.buffer; |
240 | 3312 *lp = 0; |
3313 | |
26262
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 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
|
3315 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
|
3316 yacc_rules = FALSE; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3317 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
|
3318 token.valid = savetoken.valid = FALSE; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3319 bracelev = bracketlev = parlev = attrparlev = templatelev = 0; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3320 if (cjava) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3321 { qualifier = "."; qlen = 1; } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3322 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3323 { qualifier = "::"; qlen = 2; } |
240 | 3324 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3325 |
240 | 3326 while (!feof (inf)) |
3327 { | |
3328 c = *lp++; | |
3329 if (c == '\\') | |
3330 { | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3331 /* If we are at the end of the line, the next character is a |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3332 '\0'; do not skip it, because it is what tells us |
621 | 3333 to read the next line. */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3334 if (*lp == '\0') |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3335 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3336 quotednl = TRUE; |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3337 continue; |
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3338 } |
401 | 3339 lp++; |
240 | 3340 c = ' '; |
3341 } | |
3342 else if (incomm) | |
3343 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3344 switch (c) |
240 | 3345 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3346 case '*': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3347 if (*lp == '/') |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3348 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3349 c = *lp++; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3350 incomm = FALSE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3351 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3352 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3353 case '\0': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3354 /* 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
|
3355 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
|
3356 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3357 break; |
240 | 3358 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3359 continue; |
240 | 3360 } |
3361 else if (inquote) | |
3362 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3363 switch (c) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3364 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3365 case '"': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3366 inquote = FALSE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3367 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3368 case '\0': |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3369 /* 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
|
3370 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
|
3371 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
|
3372 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3373 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3374 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3375 continue; |
240 | 3376 } |
3377 else if (inchar) | |
3378 { | |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3379 switch (c) |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3380 { |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3381 case '\0': |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3382 /* 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
|
3383 CNL (); |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3384 /* FALLTHRU */ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3385 case '\'': |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3386 inchar = FALSE; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3387 break; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3388 } |
240 | 3389 continue; |
3390 } | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3391 else if (bracketlev > 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3392 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3393 switch (c) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3394 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3395 case ']': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3396 if (--bracketlev > 0) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3397 continue; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3398 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3399 case '\0': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3400 CNL_SAVE_DEFINEDEF (); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3401 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3402 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3403 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3404 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3405 else switch (c) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3406 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3407 case '"': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3408 inquote = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3409 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3410 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3411 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3412 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3413 case fdefunkey: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3414 case fstartlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3415 case finlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3416 case fignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3417 case vignore: |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3418 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3419 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3420 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3421 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3422 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3423 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3424 case '\'': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3425 inchar = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3426 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3427 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3428 if (fvdef != finlist && fvdef != fignore && fvdef !=vignore) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3429 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3430 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3431 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3432 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3433 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3434 case '/': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3435 if (*lp == '*') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3436 { |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
3437 incomm = TRUE; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3438 lp++; |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
3439 c = ' '; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3440 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3441 else if (/* cplpl && */ *lp == '/') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3442 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3443 c = '\0'; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3444 } |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
3445 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3446 case '%': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3447 if ((c_ext & YACC) && *lp == '%') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3448 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3449 /* Entering or exiting rules section in yacc file. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3450 lp++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3451 definedef = dnone; fvdef = fvnone; fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3452 typdef = tnone; structdef = snone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3453 midtoken = inquote = inchar = incomm = quotednl = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3454 bracelev = 0; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3455 yacc_rules = !yacc_rules; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3456 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3457 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3458 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3459 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3460 case '#': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3461 if (definedef == dnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3462 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3463 char *cp; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3464 bool cpptoken = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3465 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3466 /* Look back on this line. If all blanks, or nonblanks |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3467 followed by an end of comment, this is a preprocessor |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3468 token. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3469 for (cp = newlb.buffer; cp < lp-1; cp++) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3470 if (!iswhite (*cp)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3471 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3472 if (*cp == '*' && *(cp+1) == '/') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3473 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3474 cp++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3475 cpptoken = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3476 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3477 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3478 cpptoken = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3479 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3480 if (cpptoken) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3481 definedef = dsharpseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3482 } /* if (definedef == dnone) */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3483 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3484 case '[': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3485 bracketlev++; |
240 | 3486 continue; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3487 } /* switch (c) */ |
240 | 3488 |
3489 | |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3490 /* 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
|
3491 if (typdef != tignore |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3492 && definedef != dignorerest |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3493 && fvdef != finlist |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3494 && templatelev == 0 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3495 && (definedef != dnone |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3496 || structdef != scolonseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3497 && !inattribute) |
240 | 3498 { |
3499 if (midtoken) | |
3500 { | |
3501 if (endtoken (c)) | |
3502 { | |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3503 if (c == ':' && *lp == ':' && begtoken (lp[1])) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3504 /* This handles :: in the middle, |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3505 but not at the beginning of an identifier. |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3506 Also, space-separated :: is not recognised. */ |
240 | 3507 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3508 if (c_ext & C_AUTO) /* automatic detection of C++ */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3509 c_ext = (c_ext | C_PLPL) & ~C_AUTO; |
240 | 3510 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
|
3511 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
|
3512 c = lp[-1]; |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
3513 goto still_in_token; |
240 | 3514 } |
3515 else | |
3516 { | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3517 bool funorvar = FALSE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3518 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3519 if (yacc_rules |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3520 || consider_token (newlb.buffer + tokoff, toklen, c, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3521 &c_ext, bracelev, parlev, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3522 &funorvar)) |
240 | 3523 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3524 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
|
3525 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3526 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
|
3527 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
|
3528 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
|
3529 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
|
3530 while (*lp != '\0' |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
3531 && !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
|
3532 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
|
3533 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
|
3534 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
|
3535 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3536 token.named = FALSE; |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3537 if (!plainc |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3538 && nestlev > 0 && definedef == dnone) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3539 /* 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
|
3540 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3541 write_classname (&token_name, qualifier); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3542 linebuffer_setlen (&token_name, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3543 token_name.len+qlen+toklen); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3544 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
|
3545 strncat (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3546 newlb.buffer + tokoff, toklen); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3547 token.named = TRUE; |
240 | 3548 } |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3549 else if (objdef == ocatseen) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3550 /* Objective C category */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3551 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3552 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
|
3553 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
|
3554 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
|
3555 strcat (token_name.buffer, "("); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3556 strncat (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3557 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
|
3558 strcat (token_name.buffer, ")"); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3559 token.named = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3560 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3561 else if (objdef == omethodtag |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3562 || objdef == omethodparm) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3563 /* Objective C method */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3564 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3565 token.named = TRUE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3566 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3567 else if (fvdef == fdefunname) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3568 /* GNU DEFUN and similar macros */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3569 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3570 bool defun = (newlb.buffer[tokoff] == 'F'); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3571 int off = tokoff; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3572 int len = toklen; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3573 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3574 /* 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
|
3575 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
|
3576 if (defun) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3577 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3578 off += 1; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3579 len -= 1; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3580 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3581 linebuffer_setlen (&token_name, len); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3582 strncpy (token_name.buffer, |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3583 newlb.buffer + off, len); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3584 token_name.buffer[len] = '\0'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3585 if (defun) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3586 while (--len >= 0) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3587 if (token_name.buffer[len] == '_') |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3588 token_name.buffer[len] = '-'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3589 token.named = defun; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3590 } |
240 | 3591 else |
3592 { | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3593 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
|
3594 strncpy (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3595 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
|
3596 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
|
3597 /* Name macros and members. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3598 token.named = (structdef == stagseen |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3599 || typdef == ttypeseen |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3600 || typdef == tend |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3601 || (funorvar |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3602 && definedef == dignorerest) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3603 || (funorvar |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3604 && definedef == dnone |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3605 && structdef == snone |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3606 && bracelev > 0)); |
240 | 3607 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3608 token.lineno = lineno; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3609 token.offset = tokoff; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3610 token.length = toklen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3611 token.line = newlb.buffer; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3612 token.linepos = newlinepos; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3613 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
|
3614 |
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
|
3615 if (definedef == dnone |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3616 && (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
|
3617 || 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
|
3618 || structdef == stagseen |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3619 || typdef == tend |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3620 || typdef == ttypeseen |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3621 || objdef != onone)) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3622 { |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3623 if (current_lb_is_new) |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3624 switch_line_buffers (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3625 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3626 else if (definedef != dnone |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3627 || fvdef == fdefunname |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3628 || instruct) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3629 make_C_tag (funorvar); |
240 | 3630 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3631 else /* not yacc and consider_token failed */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3632 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3633 if (inattribute && fvdef == fignore) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3634 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3635 /* We have just met __attribute__ after a |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3636 function parameter list: do not tag the |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3637 function again. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3638 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3639 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3640 } |
240 | 3641 midtoken = FALSE; |
3642 } | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3643 } /* if (endtoken (c)) */ |
240 | 3644 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
|
3645 still_in_token: |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3646 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3647 toklen++; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3648 continue; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3649 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3650 } /* if (midtoken) */ |
240 | 3651 else if (begtoken (c)) |
3652 { | |
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
|
3653 switch (definedef) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3654 { |
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
|
3655 case dnone: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3656 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
|
3657 { |
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
|
3658 case fstartlist: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3659 /* This prevents tagging fb in |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3660 void (__attribute__((noreturn)) *fb) (void); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3661 Fixing this is not easy and not very important. */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3662 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
|
3663 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
|
3664 case flistseen: |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3665 if (plainc || declarations) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3666 { |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3667 make_C_tag (TRUE); /* a function */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3668 fvdef = fignore; |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3669 } |
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
|
3670 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
|
3671 } |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
3672 if (structdef == stagseen && !cjava) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3673 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3674 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3675 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3676 } |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3677 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
|
3678 case dsharpseen: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3679 savetoken = token; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
3680 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3681 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3682 if (!yacc_rules || lp == newlb.buffer + 1) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3683 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3684 tokoff = lp - 1 - newlb.buffer; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3685 toklen = 1; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3686 midtoken = TRUE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3687 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3688 continue; |
10623
8a73e71a55e3
* etags.c (pfnote): Initialise been_warned in the node.
Francesco Potortì <pot@gnu.org>
parents:
10449
diff
changeset
|
3689 } /* if (begtoken) */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3690 } /* if must look at token */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3691 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3692 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3693 /* 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
|
3694 after having handled a token.*/ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3695 switch (c) |
401 | 3696 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3697 case ':': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3698 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3699 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3700 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
|
3701 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3702 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
|
3703 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3704 } |
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
|
3705 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
|
3706 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3707 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3708 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3709 case otagseen: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3710 objdef = oignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3711 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
|
3712 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3713 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3714 case omethodparm: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3715 objdef = omethodcolon; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3716 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
|
3717 strcat (token_name.buffer, ":"); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3718 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3719 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3720 if (structdef == stagseen) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3721 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3722 structdef = scolonseen; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3723 break; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3724 } |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3725 /* Should be useless, but may be work as a safety net. */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3726 if (cplpl && fvdef == flistseen) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3727 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3728 make_C_tag (TRUE); /* a function */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3729 fvdef = fignore; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3730 break; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3731 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3732 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3733 case ';': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3734 if (definedef != dnone || inattribute) |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3735 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3736 switch (typdef) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
3737 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3738 case tend: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3739 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3740 make_C_tag (FALSE); /* a typedef */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3741 typdef = tnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3742 fvdef = fvnone; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3743 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3744 case tnone: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3745 case tinbody: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3746 case tignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3747 switch (fvdef) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3748 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3749 case fignore: |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3750 if (typdef == tignore || cplpl) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3751 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3752 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3753 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3754 if ((globals && bracelev == 0 && (!fvextern || declarations)) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3755 || (members && instruct)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3756 make_C_tag (FALSE); /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3757 fvextern = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3758 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3759 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3760 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3761 case flistseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3762 if ((declarations |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3763 && (cplpl || !instruct) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3764 && (typdef == tnone || (typdef != tignore && instruct))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3765 || (members |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3766 && plainc && instruct)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3767 make_C_tag (TRUE); /* a function */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3768 /* FALLTHRU */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3769 default: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3770 fvextern = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3771 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3772 if (declarations |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3773 && cplpl && structdef == stagseen) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3774 make_C_tag (FALSE); /* forward declaration */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3775 else |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3776 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3777 } /* switch (fvdef) */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3778 /* FALLTHRU */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3779 default: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3780 if (!instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3781 typdef = tnone; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
3782 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3783 if (structdef == stagseen) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3784 structdef = snone; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3785 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3786 case ',': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3787 if (definedef != dnone || inattribute) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3788 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3789 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3790 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3791 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3792 case omethodparm: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3793 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
|
3794 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3795 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3796 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3797 switch (fvdef) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3798 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3799 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
|
3800 case foperator: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3801 case fstartlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3802 case finlist: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3803 case fignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3804 case vignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3805 break; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3806 case fdefunname: |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3807 fvdef = fignore; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3808 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3809 case fvnameseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3810 if (parlev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3811 && ((globals |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3812 && bracelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3813 && templatelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3814 && (!fvextern || declarations)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3815 || (members && instruct))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3816 make_C_tag (FALSE); /* a variable */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3817 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3818 case flistseen: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3819 if ((declarations && typdef == tnone && !instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3820 || (members && typdef != tignore && instruct)) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3821 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3822 make_C_tag (TRUE); /* a function */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3823 fvdef = fvnameseen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3824 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3825 else if (!declarations) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3826 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3827 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3828 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3829 default: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3830 fvdef = fvnone; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3831 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3832 if (structdef == stagseen) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3833 structdef = snone; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3834 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3835 case ']': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3836 if (definedef != dnone || inattribute) |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3837 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3838 if (structdef == stagseen) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3839 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3840 switch (typdef) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3841 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3842 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3843 case tend: |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3844 typdef = tignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3845 make_C_tag (FALSE); /* a typedef */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3846 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3847 case tnone: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3848 case tinbody: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3849 switch (fvdef) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3850 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3851 case foperator: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3852 case finlist: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3853 case fignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3854 case vignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3855 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3856 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3857 if ((members && bracelev == 1) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3858 || (globals && bracelev == 0 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3859 && (!fvextern || declarations))) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3860 make_C_tag (FALSE); /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3861 /* FALLTHRU */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3862 default: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3863 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3864 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3865 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3866 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3867 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3868 case '(': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3869 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3870 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3871 attrparlev++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3872 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3873 } |
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
|
3874 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
|
3875 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3876 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
|
3877 objdef = oparenseen; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3878 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
|
3879 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3880 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
|
3881 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
|
3882 && *lp != '*' |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3883 && !instruct) |
9193
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
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 /* 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
|
3886 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
|
3887 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
|
3888 typdef = tignore; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3889 fvdef = fignore; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3890 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
|
3891 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3892 /* 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
|
3893 case foperator: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3894 fvdef = fstartlist; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3895 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3896 case flistseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3897 fvdef = finlist; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3898 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
|
3899 } |
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
|
3900 parlev++; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3901 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3902 case ')': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3903 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3904 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3905 if (--attrparlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3906 inattribute = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3907 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3908 } |
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
|
3909 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
|
3910 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3911 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
|
3912 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3913 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
|
3914 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3915 } |
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
|
3916 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
|
3917 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3918 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
|
3919 { |
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
|
3920 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
|
3921 case finlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3922 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
|
3923 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
|
3924 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3925 if (!instruct |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3926 && (typdef == tend |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3927 || typdef == ttypeseen)) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3928 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3929 typdef = tignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3930 make_C_tag (FALSE); /* a typedef */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3931 } |
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
|
3932 } |
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
|
3933 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
|
3934 parlev = 0; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3935 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3936 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
|
3937 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
|
3938 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
|
3939 if (typdef == ttypeseen) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3940 { |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3941 /* Whenever typdef is set to tinbody (currently only |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3942 here), typdefbracelev should be set to bracelev. */ |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3943 typdef = tinbody; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3944 typdefbracelev = bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3945 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3946 switch (fvdef) |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3947 { |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3948 case flistseen: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3949 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
|
3950 /* FALLTHRU */ |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3951 case fignore: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3952 fvdef = fvnone; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3953 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3954 case fvnone: |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3955 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3956 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3957 case otagseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3958 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
|
3959 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3960 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3961 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3962 case omethodparm: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3963 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
|
3964 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3965 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3966 default: |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
3967 /* Neutralize `extern "C" {' grot. */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3968 if (bracelev == 0 && structdef == snone && nestlev == 0 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3969 && typdef == tnone) |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3970 bracelev = -1; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3971 } |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
3972 break; |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3973 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3974 switch (structdef) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3975 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3976 case skeyseen: /* unnamed struct */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3977 pushclass_above (bracelev, NULL, 0); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3978 structdef = snone; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3979 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3980 case stagseen: /* named struct or enum */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3981 case scolonseen: /* a class */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3982 pushclass_above (bracelev,token.line+token.offset, token.length); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3983 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3984 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
|
3985 break; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3986 } |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
3987 bracelev += 1; |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3988 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3989 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
|
3990 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
|
3991 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3992 if (fvdef == fstartlist) |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3993 { |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3994 fvdef = fvnone; /* avoid tagging `foo' in `foo (*bar()) ()' */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3995 token.valid = FALSE; |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3996 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3997 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3998 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
|
3999 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
|
4000 break; |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4001 bracelev -= 1; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
4002 if (!ignoreindent && lp == newlb.buffer + 1) |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
4003 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4004 if (bracelev != 0) |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4005 token.valid = FALSE; /* unexpected value, token unreliable */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4006 bracelev = 0; /* reset brace level if first column */ |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
4007 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
|
4008 } |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4009 else if (bracelev < 0) |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4010 { |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
4011 token.valid = FALSE; /* something gone amiss, token unreliable */ |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4012 bracelev = 0; |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4013 } |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4014 if (bracelev == 0 && fvdef == vignore) |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4015 fvdef = fvnone; /* end of function */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4016 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4017 structdef = snone; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4018 /* Only if typdef == tinbody is typdefbracelev significant. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4019 if (typdef == tinbody && bracelev <= typdefbracelev) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4020 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4021 assert (bracelev == typdefbracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4022 typdef = tend; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4023 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4024 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4025 case '=': |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4026 if (definedef != dnone) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4027 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4028 switch (fvdef) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4029 { |
26262
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 case foperator: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4031 case finlist: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4032 case fignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4033 case vignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4034 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4035 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4036 if ((members && bracelev == 1) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4037 || (globals && bracelev == 0 && (!fvextern || declarations))) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4038 make_C_tag (FALSE); /* a variable */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4039 /* FALLTHRU */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4040 default: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4041 fvdef = vignore; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4042 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4043 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4044 case '<': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4045 if (cplpl |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4046 && (structdef == stagseen || fvdef == fvnameseen)) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4047 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4048 templatelev++; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4049 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4050 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4051 goto resetfvdef; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4052 case '>': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4053 if (templatelev > 0) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4054 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4055 templatelev--; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4056 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4057 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4058 goto resetfvdef; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4059 case '+': |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4060 case '-': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4061 if (objdef == oinbody && bracelev == 0) |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4062 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4063 objdef = omethodsign; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4064 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4065 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4066 /* FALLTHRU */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4067 resetfvdef: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4068 case '#': case '~': case '&': case '%': case '/': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4069 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
|
4070 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
|
4071 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
|
4072 /* 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
|
4073 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
|
4074 { |
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 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
|
4076 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
|
4077 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
|
4078 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
|
4079 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
|
4080 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
|
4081 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
|
4082 } |
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
|
4083 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4084 case '\0': |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4085 if (objdef == otagseen) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4086 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4087 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
|
4088 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4089 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4090 /* 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
|
4091 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
|
4092 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4093 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
|
4094 CNL (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4095 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4096 } /* switch (c) */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4097 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4098 } /* while not eof */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4099 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4100 free (lbs[0].lb.buffer); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4101 free (lbs[1].lb.buffer); |
240 | 4102 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4103 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4104 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4105 * 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
|
4106 * 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
|
4107 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4108 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
|
4109 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
|
4110 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4111 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4112 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
|
4113 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4114 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4115 /* 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
|
4116 static void |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4117 plain_C_entries (inf) |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4118 FILE *inf; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4119 { |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4120 C_entries (0, inf); |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4121 } |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4122 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4123 /* Always do C++. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4124 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
|
4125 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
|
4126 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4127 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4128 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
|
4129 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4130 |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4131 /* Always do Java. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4132 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4133 Cjava_entries (inf) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4134 FILE *inf; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4135 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4136 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
|
4137 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4138 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4139 /* Always do C*. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4140 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
|
4141 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
|
4142 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4143 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4144 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
|
4145 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4146 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4147 /* Always do Yacc. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4148 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
|
4149 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
|
4150 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4151 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4152 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
|
4153 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4154 |
240 | 4155 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4156 /* 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
|
4157 #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
|
4158 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
|
4159 !feof (file_pointer) /* loop test */ \ |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4160 && /* instructions at start of loop */ \ |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4161 (readline (&line_buffer, file_pointer), \ |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4162 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
|
4163 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
|
4164 ) |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4165 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4166 #define LOOKING_AT(cp, kw) /* kw is the keyword, a literal string */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4167 ((assert("" kw), TRUE) /* syntax error if not a literal string */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4168 && strneq ((cp), kw, sizeof(kw)-1) /* cp points at kw */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4169 && notinname ((cp)[sizeof(kw)-1]) /* end of kw */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4170 && ((cp) = skip_spaces((cp)+sizeof(kw)-1))) /* skip spaces */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4171 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4172 /* Similar to LOOKING_AT but does not use notinname, does not skip */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4173 #define LOOKING_AT_NOCASE(cp, kw) /* the keyword is a literal string */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4174 ((assert("" kw), TRUE) /* syntax error if not a literal string */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4175 && strncaseeq ((cp), kw, sizeof(kw)-1) /* cp points at kw */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4176 && ((cp) += sizeof(kw)-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
|
4177 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4178 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4179 * 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
|
4180 * 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
|
4181 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4182 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
|
4183 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
|
4184 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
|
4185 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4186 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
|
4187 |
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, 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
|
4189 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
|
4190 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4191 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4192 |
240 | 4193 /* Fortran parsing */ |
4194 | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4195 static void F_takeprec __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4196 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
|
4197 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4198 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4199 F_takeprec () |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4200 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4201 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4202 if (*dbp != '*') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4203 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4204 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
|
4205 dbp = skip_spaces (dbp); |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4206 if (strneq (dbp, "(*)", 3)) |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4207 { |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4208 dbp += 3; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4209 return; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4210 } |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4211 if (!ISDIGIT (*dbp)) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4212 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4213 --dbp; /* force failure */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4214 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4215 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4216 do |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4217 dbp++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4218 while (ISDIGIT (*dbp)); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4219 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4220 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4221 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4222 F_getit (inf) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4223 FILE *inf; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4224 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4225 register char *cp; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4226 |
26262
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 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4228 if (*dbp == '\0') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4229 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4230 readline (&lb, inf); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4231 dbp = lb.buffer; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4232 if (dbp[5] != '&') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4233 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4234 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
|
4235 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4236 } |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4237 if (!ISALPHA (*dbp) && *dbp != '_' && *dbp != '$') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4238 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
|
4239 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
|
4240 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4241 make_tag (dbp, cp-dbp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4242 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
|
4243 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4244 |
26262
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 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4246 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4247 Fortran_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4248 FILE *inf; |
240 | 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 LOOP_ON_INPUT_LINES (inf, lb, dbp) |
240 | 4251 { |
4252 if (*dbp == '%') | |
4253 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
|
4254 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4255 if (*dbp == '\0') |
240 | 4256 continue; |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4257 switch (lowcase (*dbp)) |
240 | 4258 { |
4259 case 'i': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4260 if (nocase_tail ("integer")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4261 F_takeprec (); |
240 | 4262 break; |
4263 case 'r': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4264 if (nocase_tail ("real")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4265 F_takeprec (); |
240 | 4266 break; |
4267 case 'l': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4268 if (nocase_tail ("logical")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4269 F_takeprec (); |
240 | 4270 break; |
4271 case 'c': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4272 if (nocase_tail ("complex") || nocase_tail ("character")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4273 F_takeprec (); |
240 | 4274 break; |
4275 case 'd': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4276 if (nocase_tail ("double")) |
240 | 4277 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4278 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4279 if (*dbp == '\0') |
240 | 4280 continue; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4281 if (nocase_tail ("precision")) |
240 | 4282 break; |
4283 continue; | |
4284 } | |
4285 break; | |
4286 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4287 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4288 if (*dbp == '\0') |
240 | 4289 continue; |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4290 switch (lowcase (*dbp)) |
240 | 4291 { |
4292 case 'f': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4293 if (nocase_tail ("function")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4294 F_getit (inf); |
240 | 4295 continue; |
4296 case 's': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4297 if (nocase_tail ("subroutine")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4298 F_getit (inf); |
240 | 4299 continue; |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
4300 case 'e': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4301 if (nocase_tail ("entry")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4302 F_getit (inf); |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
4303 continue; |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4304 case 'b': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4305 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
|
4306 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4307 dbp = skip_spaces (dbp); |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4308 if (*dbp == '\0') /* assume un-named */ |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4309 make_tag ("blockdata", 9, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4310 lb.buffer, dbp - lb.buffer, lineno, linecharno); |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4311 else |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4312 F_getit (inf); /* look for name */ |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4313 } |
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4314 continue; |
240 | 4315 } |
4316 } | |
4317 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4318 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4319 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4320 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4321 * Ada parsing |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4322 * Original code by |
51267
c21ab9f401a9
Remove Philippe Waroquier's email address, at his request.
Francesco Potortì <pot@gnu.org>
parents:
49360
diff
changeset
|
4323 * Philippe Waroquiers (1998) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4324 */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4325 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4326 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
|
4327 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4328 /* 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
|
4329 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
|
4330 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4331 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
|
4332 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
|
4333 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
|
4334 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4335 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
|
4336 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
|
4337 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
|
4338 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4339 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
|
4340 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4341 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
|
4342 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
|
4343 || (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
|
4344 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4345 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
|
4346 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
|
4347 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4348 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
|
4349 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4350 case 'b': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4351 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
|
4352 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4353 /* 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
|
4354 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
|
4355 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
|
4356 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
|
4357 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4358 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
|
4359 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
|
4360 /* Skipping type of task type or protected type ... */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4361 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
|
4362 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
|
4363 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
|
4364 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4365 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
|
4366 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4367 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
|
4368 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
|
4369 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
|
4370 } |
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 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
|
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 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
|
4374 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
|
4375 (*cp != '\0' |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4376 && (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
|
4377 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
|
4378 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
|
4379 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
|
4380 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
|
4381 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4382 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
|
4383 *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
|
4384 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
|
4385 *cp = c; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4386 make_tag (name, strlen (name), TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4387 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4388 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
|
4389 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
|
4390 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
|
4391 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
|
4392 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4393 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4394 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4395 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
|
4396 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
|
4397 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
|
4398 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4399 bool inquote = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4400 bool skip_till_semicolumn = FALSE; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4401 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4402 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
|
4403 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4404 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
|
4405 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4406 /* 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
|
4407 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
|
4408 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4409 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
|
4410 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
|
4411 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4412 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
|
4413 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
|
4414 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
|
4415 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4416 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
|
4417 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4418 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
|
4419 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
|
4420 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4421 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4422 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4423 /* 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
|
4424 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
|
4425 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
|
4426 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4427 /* 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
|
4428 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
|
4429 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
|
4430 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4431 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
|
4432 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
|
4433 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
|
4434 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
|
4435 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4436 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4437 if (skip_till_semicolumn) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4438 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4439 if (*dbp == ';') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4440 skip_till_semicolumn = FALSE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4441 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4442 continue; /* advance char */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4443 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
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 /* 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
|
4446 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
|
4447 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4448 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
|
4449 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
|
4450 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4451 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4452 /* We are at the beginning of a token. */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4453 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
|
4454 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4455 case 'f': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4456 if (!packages_only && nocase_tail ("function")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4457 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
|
4458 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
|
4459 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
|
4460 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
|
4461 case 'p': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4462 if (!packages_only && nocase_tail ("procedure")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4463 Ada_getit (inf, "/p"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4464 else if (nocase_tail ("package")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4465 Ada_getit (inf, "/s"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4466 else if (nocase_tail ("protected")) /* protected type */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4467 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
|
4468 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
|
4469 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
|
4470 continue; /* advance char */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4471 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4472 case 'u': |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4473 if (typedefs && !packages_only && nocase_tail ("use")) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4474 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4475 /* when tagging types, avoid tagging use type Pack.Typename; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4476 for this, we will skip everything till a ; */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4477 skip_till_semicolumn = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4478 continue; /* advance char */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4479 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4480 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4481 case 't': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4482 if (!packages_only && nocase_tail ("task")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4483 Ada_getit (inf, "/k"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4484 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
|
4485 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4486 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
|
4487 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
|
4488 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
|
4489 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4490 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
|
4491 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
|
4492 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
|
4493 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4494 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4495 /* 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
|
4496 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
|
4497 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
|
4498 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4499 } /* 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
|
4500 } /* 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
|
4501 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4502 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4503 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4504 /* |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4505 * Unix and microcontroller assembly tag handling |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4506 * Labels: /^[a-zA-Z_.$][a-zA_Z0-9_.$]*[: ^I^J]/ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4507 * 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
|
4508 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4509 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4510 Asm_labels (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4511 FILE *inf; |
240 | 4512 { |
4513 register char *cp; | |
4514 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4515 LOOP_ON_INPUT_LINES (inf, lb, cp) |
240 | 4516 { |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4517 /* 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
|
4518 following identifier. */ |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4519 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
|
4520 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4521 /* Read past label. */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4522 cp++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4523 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
|
4524 cp++; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4525 if (*cp == ':' || iswhite (*cp)) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4526 /* Found end of label, so copy it and add it to the table. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4527 make_tag (lb.buffer, cp - lb.buffer, TRUE, |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4528 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
|
4529 } |
240 | 4530 } |
4531 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4532 |
240 | 4533 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4534 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4535 * Perl support |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4536 * 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
|
4537 * Perl variable names: /^(my|local).../ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4538 * Original code by Bart Robinson <lomew@cs.utah.edu> (1995) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4539 * Additions by Michael Ernst <mernst@alum.mit.edu> (1997) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4540 * 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
|
4541 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4542 static void |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4543 Perl_functions (inf) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4544 FILE *inf; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4545 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4546 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
|
4547 register char *cp; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4548 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4549 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
|
4550 { |
80230
9c2ef4f2ad6a
(Perl_functions): Fix call to skip_spaces.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80017
diff
changeset
|
4551 cp = skip_spaces (cp); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4552 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4553 if (LOOKING_AT (cp, "package")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4554 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4555 free (package); |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4556 get_tag (cp, &package); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4557 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4558 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
|
4559 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4560 char *pos; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4561 char *sp = cp; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4562 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4563 while (!notinname (*cp)) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4564 cp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4565 if (cp == sp) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4566 continue; /* nothing found */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4567 if ((pos = etags_strchr (sp, ':')) != NULL |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4568 && pos < cp && pos[1] == ':') |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4569 /* The name is already qualified. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4570 make_tag (sp, cp - sp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4571 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4572 else |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4573 /* Qualify it. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4574 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4575 char savechar, *name; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4576 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4577 savechar = *cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4578 *cp = '\0'; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4579 name = concat (package, "::", sp); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4580 *cp = savechar; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4581 make_tag (name, strlen(name), TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4582 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4583 free (name); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4584 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4585 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4586 else if (globals) /* only if we are tagging global vars */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4587 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4588 /* Skip a qualifier, if any. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4589 bool qual = LOOKING_AT (cp, "my") || LOOKING_AT (cp, "local"); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4590 /* After "my" or "local", but before any following paren or space. */ |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4591 char *varstart = cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4592 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4593 if (qual /* should this be removed? If yes, how? */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4594 && (*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
|
4595 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4596 varstart += 1; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4597 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
|
4598 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4599 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
|
4600 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4601 else if (qual) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4602 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4603 /* 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
|
4604 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
|
4605 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
|
4606 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
|
4607 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4608 else |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4609 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4610 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4611 make_tag (varstart, cp - varstart, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4612 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
|
4613 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4614 } |
70342
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
4615 free (package); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4616 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4617 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4618 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4619 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4620 * Python support |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4621 * 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
|
4622 * 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
|
4623 * 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
|
4624 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4625 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
|
4626 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
|
4627 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
|
4628 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4629 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
|
4630 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4631 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
|
4632 { |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4633 cp = skip_spaces (cp); |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4634 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
|
4635 { |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4636 char *name = cp; |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4637 while (!notinname (*cp) && *cp != ':') |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4638 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4639 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4640 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4641 } |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4642 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4643 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4644 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4645 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4646 /* |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4647 * PHP support |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4648 * Look for: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4649 * - /^[ \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
|
4650 * - /^[ \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
|
4651 * - /^[ \t]*define\(\"[^\"]+/ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4652 * Only with --members: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4653 * - /^[ \t]*var[ \t\n]+\$[^ \t\n=;]/ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4654 * 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
|
4655 */ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4656 static void |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4657 PHP_functions (inf) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4658 FILE *inf; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4659 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4660 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
|
4661 bool search_identifier = FALSE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4662 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4663 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
|
4664 { |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4665 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
|
4666 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4667 if (search_identifier |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4668 && *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
|
4669 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4670 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
|
4671 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4672 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4673 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
|
4674 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
|
4675 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4676 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
|
4677 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4678 if(*cp == '&') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4679 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
|
4680 if(*cp != '\0') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4681 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4682 name = cp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4683 while (!notinname (*cp)) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4684 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4685 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4686 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
|
4687 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4688 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4689 search_identifier = TRUE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4690 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4691 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
|
4692 { |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4693 if (*cp != '\0') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4694 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4695 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4696 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
|
4697 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4698 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4699 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
|
4700 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4701 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4702 search_identifier = TRUE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4703 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4704 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
|
4705 && (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
|
4706 && *cp++ == '(' |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4707 && (*cp == '"' || *cp == '\'')) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4708 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4709 char quote = *cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4710 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4711 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
|
4712 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4713 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4714 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
|
4715 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4716 else if (members |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4717 && LOOKING_AT (cp, "var") |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4718 && *cp == '$') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4719 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4720 name = cp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4721 while (!notinname(*cp)) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4722 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4723 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4724 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4725 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4726 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4727 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4728 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4729 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4730 /* |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4731 * Cobol tag functions |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4732 * 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
|
4733 * 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
|
4734 * Idea by Corny de Souza (1993) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4735 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4736 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4737 Cobol_paragraphs (inf) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4738 FILE *inf; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4739 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4740 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
|
4741 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4742 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
|
4743 { |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4744 if (lb.len < 9) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4745 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
|
4746 bp += 8; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4747 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4748 /* 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
|
4749 if (bp[-1] != ' ' || !ISALNUM (bp[0])) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4750 continue; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4751 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4752 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
|
4753 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
|
4754 if (*ep++ == '.') |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4755 make_tag (bp, ep - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4756 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
|
4757 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4758 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4759 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4760 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4761 /* |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4762 * Makefile support |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4763 * 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
|
4764 */ |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4765 static void |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4766 Makefile_targets (inf) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4767 FILE *inf; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4768 { |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4769 register char *bp; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4770 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4771 LOOP_ON_INPUT_LINES (inf, lb, bp) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4772 { |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4773 if (*bp == '\t' || *bp == '#') |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4774 continue; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4775 while (*bp != '\0' && *bp != '=' && *bp != ':') |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4776 bp++; |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4777 if (*bp == ':' || (globals && *bp == '=')) |
74951
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4778 { |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4779 /* We should detect if there is more than one tag, but we do not. |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4780 We just skip initial and final spaces. */ |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4781 char * namestart = skip_spaces (lb.buffer); |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4782 while (--bp > namestart) |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4783 if (!notinname (*bp)) |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4784 break; |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4785 make_tag (namestart, bp - namestart + 1, TRUE, |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4786 lb.buffer, bp - lb.buffer + 2, lineno, linecharno); |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4787 } |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4788 } |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4789 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4790 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4791 |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4792 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4793 * Pascal parsing |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4794 * Original code by Mosur K. Mohan (1989) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4795 * |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4796 * 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
|
4797 * 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
|
4798 * "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
|
4799 * the tag is skipped. |
240 | 4800 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4801 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4802 Pascal_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4803 FILE *inf; |
240 | 4804 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4805 linebuffer tline; /* mostly copied from C_entries */ |
240 | 4806 long save_lcno; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4807 int save_lineno, namelen, taglen; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4808 char c, *name; |
240 | 4809 |
78472 | 4810 bool /* each of these flags is TRUE if: */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4811 incomment, /* point is inside a comment */ |
240 | 4812 inquote, /* point is inside '..' string */ |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4813 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
|
4814 keyword, so next item = potential tag */ |
240 | 4815 found_tag, /* point is after a potential tag */ |
4816 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
|
4817 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
|
4818 next token will determine whether this |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4819 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
|
4820 whether it is a real tag */ |
240 | 4821 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4822 save_lcno = save_lineno = namelen = taglen = 0; /* keep compiler quiet */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4823 name = NULL; /* keep compiler quiet */ |
240 | 4824 dbp = lb.buffer; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4825 *dbp = '\0'; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4826 linebuffer_init (&tline); |
240 | 4827 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4828 incomment = inquote = FALSE; |
240 | 4829 found_tag = FALSE; /* have a proc name; check if extern */ |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4830 get_tagname = FALSE; /* found "procedure" keyword */ |
240 | 4831 inparms = FALSE; /* found '(' after "proc" */ |
4832 verify_tag = FALSE; /* check if "extern" is ahead */ | |
4833 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4834 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4835 while (!feof (inf)) /* long main loop to get next char */ |
240 | 4836 { |
4837 c = *dbp++; | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4838 if (c == '\0') /* if end of line */ |
240 | 4839 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4840 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
|
4841 dbp = lb.buffer; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4842 if (*dbp == '\0') |
240 | 4843 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
|
4844 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
|
4845 || get_tagname)) |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4846 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
|
4847 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
|
4848 the procedure or function */ |
240 | 4849 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4850 if (incomment) |
240 | 4851 { |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4852 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
|
4853 incomment = FALSE; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4854 else if (c == '*' && *dbp == ')') /* within (* *) comments */ |
240 | 4855 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4856 dbp++; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4857 incomment = FALSE; |
240 | 4858 } |
4859 continue; | |
4860 } | |
4861 else if (inquote) | |
4862 { | |
4863 if (c == '\'') | |
4864 inquote = FALSE; | |
4865 continue; | |
4866 } | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4867 else |
240 | 4868 switch (c) |
4869 { | |
4870 case '\'': | |
4871 inquote = TRUE; /* found first quote */ | |
4872 continue; | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4873 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
|
4874 incomment = TRUE; |
240 | 4875 continue; |
4876 case '(': | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4877 if (*dbp == '*') /* found open (* comment */ |
240 | 4878 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4879 incomment = TRUE; |
240 | 4880 dbp++; |
4881 } | |
4882 else if (found_tag) /* found '(' after tag, i.e., parm-list */ | |
4883 inparms = TRUE; | |
4884 continue; | |
4885 case ')': /* end of parms list */ | |
4886 if (inparms) | |
4887 inparms = FALSE; | |
4888 continue; | |
4889 case ';': | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4890 if (found_tag && !inparms) /* end of proc or fn stmt */ |
240 | 4891 { |
4892 verify_tag = TRUE; | |
4893 break; | |
4894 } | |
4895 continue; | |
4896 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4897 if (found_tag && verify_tag && (*dbp != ' ')) |
240 | 4898 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4899 /* 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
|
4900 if (*dbp == '\0') |
240 | 4901 continue; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4902 if (lowcase (*dbp == 'e')) |
240 | 4903 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4904 if (nocase_tail ("extern")) /* superfluous, really! */ |
240 | 4905 { |
4906 found_tag = FALSE; | |
4907 verify_tag = FALSE; | |
4908 } | |
4909 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4910 else if (lowcase (*dbp) == 'f') |
240 | 4911 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4912 if (nocase_tail ("forward")) /* check for forward reference */ |
240 | 4913 { |
4914 found_tag = FALSE; | |
4915 verify_tag = FALSE; | |
4916 } | |
4917 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4918 if (found_tag && verify_tag) /* not external proc, so make tag */ |
240 | 4919 { |
4920 found_tag = FALSE; | |
4921 verify_tag = FALSE; | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4922 make_tag (name, namelen, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4923 tline.buffer, taglen, save_lineno, save_lcno); |
240 | 4924 continue; |
4925 } | |
4926 } | |
4927 if (get_tagname) /* grab name of proc or fn */ | |
4928 { | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4929 char *cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4930 |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4931 if (*dbp == '\0') |
240 | 4932 continue; |
4933 | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4934 /* Find block name. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4935 for (cp = dbp + 1; *cp != '\0' && !endtoken (*cp); cp++) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4936 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4937 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4938 /* 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
|
4939 linebuffer_setlen (&tline, lb.len); |
240 | 4940 strcpy (tline.buffer, lb.buffer); |
4941 save_lineno = lineno; | |
4942 save_lcno = linecharno; | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4943 name = tline.buffer + (dbp - lb.buffer); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4944 namelen = cp - dbp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4945 taglen = cp - lb.buffer + 1; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4946 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4947 dbp = cp; /* set dbp to e-o-token */ |
240 | 4948 get_tagname = FALSE; |
4949 found_tag = TRUE; | |
4950 continue; | |
4951 | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4952 /* And proceed to check for "extern". */ |
240 | 4953 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4954 else if (!incomment && !inquote && !found_tag) |
240 | 4955 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4956 /* Check for proc/fn keywords. */ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4957 switch (lowcase (c)) |
240 | 4958 { |
4959 case 'p': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4960 if (nocase_tail ("rocedure")) /* c = 'p', dbp has advanced */ |
240 | 4961 get_tagname = TRUE; |
4962 continue; | |
4963 case 'f': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4964 if (nocase_tail ("unction")) |
240 | 4965 get_tagname = TRUE; |
4966 continue; | |
4967 } | |
4968 } | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4969 } /* while not eof */ |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
4970 |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4971 free (tline.buffer); |
240 | 4972 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4973 |
240 | 4974 |
4975 /* | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4976 * Lisp tag functions |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4977 * look for (def or (DEF, quote or QUOTE |
240 | 4978 */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4979 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4980 static void L_getit __P((void)); |
240 | 4981 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4982 static void |
240 | 4983 L_getit () |
4984 { | |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4985 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
|
4986 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
|
4987 else if (*dbp == '(') |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4988 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4989 dbp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4990 /* Try to skip "(quote " */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4991 if (!LOOKING_AT (dbp, "quote") && !LOOKING_AT (dbp, "QUOTE")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4992 /* Ok, then skip "(" before name in (defstruct (foo)) */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4993 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
|
4994 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4995 get_tag (dbp, NULL); |
240 | 4996 } |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4997 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4998 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4999 Lisp_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5000 FILE *inf; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5001 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5002 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
|
5003 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5004 if (dbp[0] != '(') |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5005 continue; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5006 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5007 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
|
5008 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5009 dbp = skip_non_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5010 dbp = skip_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5011 L_getit (); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5012 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5013 else |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5014 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5015 /* Check for (foo::defmumble name-defined ... */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5016 do |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5017 dbp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5018 while (!notinname (*dbp) && *dbp != ':'); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5019 if (*dbp == ':') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5020 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5021 do |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5022 dbp++; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5023 while (*dbp == ':'); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5024 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5025 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
|
5026 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5027 dbp = skip_non_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5028 dbp = skip_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5029 L_getit (); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5030 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5031 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5032 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5033 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5034 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5035 |
240 | 5036 |
5037 /* | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5038 * Lua script language parsing |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5039 * Original code by David A. Capello <dacap@users.sourceforge.net> (2004) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5040 * |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5041 * "function" and "local function" are tags if they start at column 1. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5042 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5043 static void |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5044 Lua_functions (inf) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5045 FILE *inf; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5046 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5047 register char *bp; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5048 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5049 LOOP_ON_INPUT_LINES (inf, lb, bp) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5050 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5051 if (bp[0] != 'f' && bp[0] != 'l') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5052 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5053 |
74298
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
5054 (void)LOOKING_AT (bp, "local"); /* skip possible "local" */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5055 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5056 if (LOOKING_AT (bp, "function")) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5057 get_tag (bp, NULL); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5058 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5059 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5060 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5061 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5062 /* |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5063 * Postscript tags |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5064 * 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
|
5065 * Also look at "defineps" for PSWrap |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5066 * Ideas by: |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5067 * Richard Mlynarik <mly@adoc.xerox.com> (1997) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5068 * 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
|
5069 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5070 static void |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
5071 PS_functions (inf) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5072 FILE *inf; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5073 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5074 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
|
5075 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5076 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
|
5077 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5078 if (bp[0] == '/') |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5079 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5080 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
|
5081 *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
|
5082 ep++) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5083 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5084 make_tag (bp, ep - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5085 lb.buffer, ep - lb.buffer + 1, lineno, linecharno); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5086 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5087 else if (LOOKING_AT (bp, "defineps")) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5088 get_tag (bp, NULL); |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5089 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5090 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5091 |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5092 |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5093 /* |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5094 * Forth tags |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5095 * Ignore anything after \ followed by space or in ( ) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5096 * Look for words defined by : |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5097 * Look for constant, code, create, defer, value, and variable |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5098 * OBP extensions: Look for buffer:, field, |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5099 * Ideas by Eduardo Horvath <eeh@netbsd.org> (2004) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5100 */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5101 static void |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5102 Forth_words (inf) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5103 FILE *inf; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5104 { |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5105 register char *bp; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5106 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5107 LOOP_ON_INPUT_LINES (inf, lb, bp) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5108 while ((bp = skip_spaces (bp))[0] != '\0') |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5109 if (bp[0] == '\\' && iswhite(bp[1])) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5110 break; /* read next line */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5111 else if (bp[0] == '(' && iswhite(bp[1])) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5112 do /* skip to ) or eol */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5113 bp++; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5114 while (*bp != ')' && *bp != '\0'); |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5115 else if ((bp[0] == ':' && iswhite(bp[1]) && bp++) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5116 || LOOKING_AT_NOCASE (bp, "constant") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5117 || LOOKING_AT_NOCASE (bp, "code") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5118 || LOOKING_AT_NOCASE (bp, "create") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5119 || LOOKING_AT_NOCASE (bp, "defer") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5120 || LOOKING_AT_NOCASE (bp, "value") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5121 || LOOKING_AT_NOCASE (bp, "variable") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5122 || LOOKING_AT_NOCASE (bp, "buffer:") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5123 || LOOKING_AT_NOCASE (bp, "field")) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5124 get_tag (skip_spaces (bp), NULL); /* Yay! A definition! */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5125 else |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5126 bp = skip_non_spaces (bp); |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5127 } |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5128 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5129 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5130 /* |
240 | 5131 * Scheme tag functions |
5132 * look for (def... xyzzy | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5133 * (def... (xyzzy |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5134 * (def ... ((...(xyzzy .... |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5135 * (set! xyzzy |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5136 * Original code by Ken Haase (1985?) |
240 | 5137 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5138 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5139 Scheme_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5140 FILE *inf; |
240 | 5141 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5142 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
|
5143 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5144 LOOP_ON_INPUT_LINES (inf, lb, bp) |
240 | 5145 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5146 if (strneq (bp, "(def", 4) || strneq (bp, "(DEF", 4)) |
240 | 5147 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5148 bp = skip_non_spaces (bp+4); |
240 | 5149 /* Skip over open parens and white space */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5150 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
|
5151 bp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5152 get_tag (bp, NULL); |
240 | 5153 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5154 if (LOOKING_AT (bp, "(SET!") || LOOKING_AT (bp, "(set!")) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5155 get_tag (bp, NULL); |
240 | 5156 } |
5157 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5158 |
240 | 5159 |
5160 /* Find tags in TeX and LaTeX input files. */ | |
5161 | |
5162 /* 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
|
5163 * Each entry records one such control sequence. |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5164 * |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5165 * Original code from who knows whom. |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5166 * Ideas by: |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5167 * Stefan Monnier (2002) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5168 */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5169 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5170 static linebuffer *TEX_toktab = NULL; /* Table with tag tokens */ |
240 | 5171 |
5172 /* Default set of control sequences to put into TEX_toktab. | |
5173 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
|
5174 static char *TEX_defenv = "\ |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
5175 :chapter:section:subsection:subsubsection:eqno:label:ref:cite:bibitem\ |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5176 :part:appendix:entry:index:def\ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5177 :newcommand:renewcommand:newenvironment:renewenvironment"; |
240 | 5178 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5179 static void TEX_mode __P((FILE *)); |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5180 static void TEX_decode_env __P((char *, char *)); |
240 | 5181 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5182 static char TEX_esc = '\\'; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5183 static char TEX_opgrp = '{'; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5184 static char TEX_clgrp = '}'; |
240 | 5185 |
5186 /* | |
5187 * TeX/LaTeX scanning loop. | |
5188 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5189 static void |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5190 TeX_commands (inf) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5191 FILE *inf; |
240 | 5192 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5193 char *cp; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5194 linebuffer *key; |
240 | 5195 |
5196 /* 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
|
5197 TEX_mode (inf); |
240 | 5198 |
5199 /* Initialize token table once from environment. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5200 if (TEX_toktab == NULL) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5201 TEX_decode_env ("TEXTAGS", TEX_defenv); |
240 | 5202 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5203 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
|
5204 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5205 /* Look at each TEX keyword in line. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5206 for (;;) |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
5207 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5208 /* Look for a TEX escape. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5209 while (*cp++ != TEX_esc) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5210 if (cp[-1] == '\0' || cp[-1] == '%') |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5211 goto tex_next_line; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5212 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5213 for (key = TEX_toktab; key->buffer != NULL; key++) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5214 if (strneq (cp, key->buffer, key->len)) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5215 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5216 register char *p; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5217 int namelen, linelen; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5218 bool opgrp = FALSE; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5219 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5220 cp = skip_spaces (cp + key->len); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5221 if (*cp == TEX_opgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5222 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5223 opgrp = TRUE; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5224 cp++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5225 } |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5226 for (p = cp; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5227 (!iswhite (*p) && *p != '#' && |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5228 *p != TEX_opgrp && *p != TEX_clgrp); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5229 p++) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5230 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5231 namelen = p - cp; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5232 linelen = lb.len; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5233 if (!opgrp || *p == TEX_clgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5234 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5235 while (*p != '\0' && *p != TEX_opgrp && *p != TEX_clgrp) |
74298
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
5236 p++; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5237 linelen = p - lb.buffer + 1; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5238 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5239 make_tag (cp, namelen, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5240 lb.buffer, linelen, lineno, linecharno); |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5241 goto tex_next_line; /* We only tag a line once */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5242 } |
240 | 5243 } |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5244 tex_next_line: |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5245 ; |
240 | 5246 } |
5247 } | |
5248 | |
5249 #define TEX_LESC '\\' | |
5250 #define TEX_SESC '!' | |
5251 | |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5252 /* 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
|
5253 chars accordingly. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5254 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5255 TEX_mode (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5256 FILE *inf; |
240 | 5257 { |
5258 int c; | |
5259 | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5260 while ((c = getc (inf)) != EOF) |
240 | 5261 { |
5262 /* 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
|
5263 if (c == '%') |
72314
b0755f0706c2
* etags.c (TEX_mode): Check getc retruns EOF.
Jan Djärv <jan.h.d@swipnet.se>
parents:
72192
diff
changeset
|
5264 while (c != '\n' && c != EOF) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5265 c = getc (inf); |
240 | 5266 else if (c == TEX_LESC || c == TEX_SESC ) |
5267 break; | |
5268 } | |
5269 | |
5270 if (c == TEX_LESC) | |
5271 { | |
5272 TEX_esc = TEX_LESC; | |
5273 TEX_opgrp = '{'; | |
5274 TEX_clgrp = '}'; | |
5275 } | |
5276 else | |
5277 { | |
5278 TEX_esc = TEX_SESC; | |
5279 TEX_opgrp = '<'; | |
5280 TEX_clgrp = '>'; | |
5281 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5282 /* 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
|
5283 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
|
5284 rewind (inf); |
240 | 5285 } |
5286 | |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5287 /* 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
|
5288 Build token table. */ |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5289 static void |
240 | 5290 TEX_decode_env (evarname, defenv) |
5291 char *evarname; | |
5292 char *defenv; | |
5293 { | |
5294 register char *env, *p; | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5295 int i, len; |
240 | 5296 |
5297 /* Append default string to environment. */ | |
5298 env = getenv (evarname); | |
5299 if (!env) | |
5300 env = defenv; | |
5301 else | |
17778
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 char *oldenv = env; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5304 env = concat (oldenv, defenv, ""); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5305 } |
240 | 5306 |
5307 /* Allocate a token table */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5308 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
|
5309 if ((p = etags_strchr (p, ':')) && *++p != '\0') |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5310 len++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5311 TEX_toktab = xnew (len, linebuffer); |
240 | 5312 |
5313 /* Unpack environment string into token table. Be careful about */ | |
5314 /* zero-length strings (leading ':', "::" and trailing ':') */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5315 for (i = 0; *env != '\0';) |
240 | 5316 { |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
5317 p = etags_strchr (env, ':'); |
240 | 5318 if (!p) /* End of environment string. */ |
5319 p = env + strlen (env); | |
5320 if (p - env > 0) | |
5321 { /* Only non-zero strings. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5322 TEX_toktab[i].buffer = savenstr (env, p - env); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5323 TEX_toktab[i].len = p - env; |
240 | 5324 i++; |
5325 } | |
5326 if (*p) | |
5327 env = p + 1; | |
5328 else | |
5329 { | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5330 TEX_toktab[i].buffer = NULL; /* Mark end of table. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5331 TEX_toktab[i].len = 0; |
240 | 5332 break; |
5333 } | |
5334 } | |
5335 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5336 |
240 | 5337 |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5338 /* Texinfo support. Dave Love, Mar. 2000. */ |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5339 static void |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5340 Texinfo_nodes (inf) |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5341 FILE * inf; |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5342 { |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5343 char *cp, *start; |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5344 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
|
5345 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
|
5346 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5347 start = cp; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5348 while (*cp != '\0' && *cp != ',') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5349 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5350 make_tag (start, cp - start, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5351 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
|
5352 } |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5353 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5354 |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5355 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5356 /* |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5357 * HTML support. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5358 * Contents of <title>, <h1>, <h2>, <h3> are tags. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5359 * Contents of <a name=xxx> are tags with name xxx. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5360 * |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5361 * Francesco Potort́, 2002. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5362 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5363 static void |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5364 HTML_labels (inf) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5365 FILE * inf; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5366 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5367 bool getnext = FALSE; /* next text outside of HTML tags is a tag */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5368 bool skiptag = FALSE; /* skip to the end of the current HTML tag */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5369 bool intag = FALSE; /* inside an html tag, looking for ID= */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5370 bool inanchor = FALSE; /* when INTAG, is an anchor, look for NAME= */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5371 char *end; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5372 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5373 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5374 linebuffer_setlen (&token_name, 0); /* no name in buffer */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5375 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5376 LOOP_ON_INPUT_LINES (inf, lb, dbp) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5377 for (;;) /* loop on the same line */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5378 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5379 if (skiptag) /* skip HTML tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5380 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5381 while (*dbp != '\0' && *dbp != '>') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5382 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5383 if (*dbp == '>') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5384 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5385 dbp += 1; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5386 skiptag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5387 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5388 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5389 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5390 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5391 |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5392 else if (intag) /* look for "name=" or "id=" */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5393 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5394 while (*dbp != '\0' && *dbp != '>' |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5395 && lowcase (*dbp) != 'n' && lowcase (*dbp) != 'i') |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5396 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5397 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5398 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5399 if (*dbp == '>') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5400 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5401 dbp += 1; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5402 intag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5403 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5404 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5405 if ((inanchor && LOOKING_AT_NOCASE (dbp, "name=")) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5406 || LOOKING_AT_NOCASE (dbp, "id=")) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5407 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5408 bool quoted = (dbp[0] == '"'); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5409 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5410 if (quoted) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5411 for (end = ++dbp; *end != '\0' && *end != '"'; end++) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5412 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5413 else |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5414 for (end = dbp; *end != '\0' && intoken (*end); end++) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5415 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5416 linebuffer_setlen (&token_name, end - dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5417 strncpy (token_name.buffer, dbp, end - dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5418 token_name.buffer[end - dbp] = '\0'; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5419 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5420 dbp = end; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5421 intag = FALSE; /* we found what we looked for */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5422 skiptag = TRUE; /* skip to the end of the tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5423 getnext = TRUE; /* then grab the text */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5424 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5425 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5426 dbp += 1; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5427 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5428 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5429 else if (getnext) /* grab next tokens and tag them */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5430 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5431 dbp = skip_spaces (dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5432 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5433 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5434 if (*dbp == '<') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5435 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5436 intag = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5437 inanchor = (lowcase (dbp[1]) == 'a' && !intoken (dbp[2])); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5438 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5439 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5440 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5441 for (end = dbp + 1; *end != '\0' && *end != '<'; end++) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5442 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5443 make_tag (token_name.buffer, token_name.len, TRUE, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5444 dbp, end - dbp, lineno, linecharno); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5445 linebuffer_setlen (&token_name, 0); /* no name in buffer */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5446 getnext = FALSE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5447 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5448 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5449 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5450 else /* look for an interesting HTML tag */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5451 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5452 while (*dbp != '\0' && *dbp != '<') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5453 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5454 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5455 break; /* go to next line */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5456 intag = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5457 if (lowcase (dbp[1]) == 'a' && !intoken (dbp[2])) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5458 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5459 inanchor = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5460 continue; /* look on the same line */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5461 } |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5462 else if (LOOKING_AT_NOCASE (dbp, "<title>") |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5463 || LOOKING_AT_NOCASE (dbp, "<h1>") |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5464 || LOOKING_AT_NOCASE (dbp, "<h2>") |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5465 || LOOKING_AT_NOCASE (dbp, "<h3>")) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5466 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5467 intag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5468 getnext = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5469 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5470 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5471 dbp += 1; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5472 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5473 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5474 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5475 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5476 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5477 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5478 * Prolog support |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5479 * |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5480 * Assumes that the predicate or rule starts at column 0. |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5481 * 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
|
5482 * Original code by Sunichirou Sugou (1989) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5483 * 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
|
5484 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5485 static int prolog_pr __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5486 static void prolog_skip_comment __P((linebuffer *, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5487 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
|
5488 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5489 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5490 Prolog_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5491 FILE *inf; |
240 | 5492 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5493 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
|
5494 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5495 int allocated; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5496 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5497 allocated = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5498 len = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5499 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5500 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5501 LOOP_ON_INPUT_LINES (inf, lb, cp) |
240 | 5502 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5503 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
|
5504 continue; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
5505 else if (iswhite (cp[0])) /* Not a predicate */ |
240 | 5506 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
|
5507 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
|
5508 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
|
5509 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
|
5510 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5511 /* Predicate or rule. Store the function name so that we |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5512 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
|
5513 if (last == NULL) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5514 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
|
5515 else if (len + 1 > allocated) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5516 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
|
5517 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
|
5518 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
|
5519 last[len] = '\0'; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5520 } |
240 | 5521 } |
95479
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
5522 free (last); |
240 | 5523 } |
5524 | |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5525 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5526 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5527 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
|
5528 linebuffer *plb; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5529 FILE *inf; |
240 | 5530 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5531 char *cp; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5532 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5533 do |
240 | 5534 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5535 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
|
5536 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
|
5537 return; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5538 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
|
5539 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5540 while (!feof(inf)); |
240 | 5541 } |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5542 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5543 /* |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5544 * 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
|
5545 * <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
|
5546 * 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
|
5547 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5548 * 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
|
5549 * 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
|
5550 * |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5551 * 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
|
5552 * 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
|
5553 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
5554 static int |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5555 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
|
5556 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5557 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
|
5558 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5559 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5560 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5561 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5562 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
|
5563 if (pos < 1) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5564 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5565 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5566 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
|
5567 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
|
5568 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5569 if ((s[pos] == '.' |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5570 || (s[pos] == '(' && (pos += 1)) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5571 || (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
|
5572 && (last == NULL /* save only the first clause */ |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5573 || len != (int)strlen (last) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5574 || !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
|
5575 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5576 make_tag (s, len, TRUE, s, pos, lineno, linecharno); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5577 return len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5578 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5579 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5580 return 0; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5581 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5582 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5583 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5584 * 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
|
5585 * 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
|
5586 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5587 * 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
|
5588 * - 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
|
5589 * - 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
|
5590 * Backslash quotes everything. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5591 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5592 static int |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5593 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
|
5594 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5595 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5596 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5597 int origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5598 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5599 origpos = pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5600 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5601 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
|
5602 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5603 /* 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
|
5604 pos++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5605 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
|
5606 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5607 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5608 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5609 return pos - origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5610 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5611 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
|
5612 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5613 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5614 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
5615 for (;;) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5616 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5617 if (s[pos] == '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5618 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5619 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5620 if (s[pos] != '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5621 break; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5622 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
|
5623 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5624 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
|
5625 /* 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
|
5626 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5627 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
|
5628 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5629 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
|
5630 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5631 pos += 2; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5632 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5633 else |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5634 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5635 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5636 return pos - origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5637 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5638 else |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5639 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5640 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5641 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5642 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5643 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5644 * 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
|
5645 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5646 * 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
|
5647 * Assumes that Erlang functions start at column 0. |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5648 * 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
|
5649 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5650 static int erlang_func __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5651 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
|
5652 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
|
5653 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5654 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5655 Erlang_functions (inf) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5656 FILE *inf; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5657 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5658 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
|
5659 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5660 int allocated; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5661 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5662 allocated = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5663 len = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5664 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5665 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5666 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
|
5667 { |
26262
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 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
|
5669 continue; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
5670 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
|
5671 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
|
5672 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
|
5673 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
|
5674 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
|
5675 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
|
5676 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
|
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 erlang_attribute (cp); |
70342
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5679 if (last != NULL) |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5680 { |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5681 free (last); |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5682 last = NULL; |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5683 } |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5684 } |
26262
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 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
|
5686 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5687 /* |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5688 * 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
|
5689 * 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
|
5690 */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5691 if (last == NULL) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5692 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
|
5693 else if (len + 1 > allocated) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5694 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
|
5695 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
|
5696 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
|
5697 last[len] = '\0'; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5698 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5699 } |
95479
9588c3703f38
remove useless if-before-free tests
Jim Meyering <jim@meyering.net>
parents:
95393
diff
changeset
|
5700 free (last); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5701 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5702 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5703 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5704 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5705 * 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
|
5706 * <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
|
5707 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5708 * 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
|
5709 * 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
|
5710 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5711 * 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
|
5712 * was found. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5713 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
5714 static int |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5715 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
|
5716 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5717 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
|
5718 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5719 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5720 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5721 |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5722 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
|
5723 if (pos < 1) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5724 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5725 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5726 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
|
5727 pos = skip_spaces (s + pos) - s; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5728 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5729 /* Save only the first clause. */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5730 if (s[pos++] == '(' |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5731 && (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
|
5732 || len != (int)strlen (last) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5733 || !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
|
5734 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5735 make_tag (s, len, TRUE, s, pos, lineno, linecharno); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5736 return len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5737 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5738 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5739 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5740 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5741 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5742 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5743 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5744 * 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
|
5745 * and records. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5746 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5747 * 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
|
5748 * -define(foo, bar). |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5749 * -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
|
5750 * -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
|
5751 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5752 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5753 erlang_attribute (s) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5754 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5755 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5756 char *cp = s; |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5757 |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5758 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
|
5759 && *cp++ == '(') |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5760 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5761 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
|
5762 if (len > 0) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5763 make_tag (cp, len, TRUE, s, cp + len - s, lineno, linecharno); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5764 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5765 return; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5766 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5767 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5768 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5769 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5770 * 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
|
5771 * 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
|
5772 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5773 static int |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5774 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
|
5775 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5776 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5777 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
|
5778 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5779 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
|
5780 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5781 /* The atom is unquoted. */ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5782 do |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5783 pos++; |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5784 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
|
5785 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5786 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
|
5787 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5788 for (pos++; s[pos] != '\''; pos++) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5789 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
|
5790 || (s[pos] == '\\' && s[++pos] == '\0')) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5791 return 0; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5792 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5793 } |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5794 |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5795 return pos; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5796 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5797 |
240 | 5798 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5799 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
|
5800 static void add_regex __P((char *, language *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5801 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
|
5802 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5803 /* |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5804 * 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
|
5805 * 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
|
5806 * 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
|
5807 * 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
|
5808 * 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
|
5809 * 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
|
5810 * unterminated regexps. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5811 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5812 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
|
5813 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
|
5814 char *name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5815 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5816 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
|
5817 char *copyto = name; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5818 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
|
5819 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5820 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
|
5821 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5822 if (quoted) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5823 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5824 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
|
5825 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5826 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
|
5827 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
|
5828 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
|
5829 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
|
5830 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
|
5831 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
|
5832 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
|
5833 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
|
5834 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
|
5835 default: |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5836 if (*name == sep) |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5837 *copyto++ = sep; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5838 else |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5839 { |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5840 /* Something else is quoted, so preserve the quote. */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5841 *copyto++ = '\\'; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5842 *copyto++ = *name; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5843 } |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5844 break; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5845 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5846 quoted = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5847 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5848 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
|
5849 quoted = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5850 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
|
5851 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5852 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5853 *copyto++ = *name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5854 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5855 if (*name != sep) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5856 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
|
5857 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5858 /* 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
|
5859 *copyto = '\0'; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5860 return name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5861 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5862 |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5863 /* 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
|
5864 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
|
5865 static void |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5866 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
|
5867 char *regex_arg; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5868 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5869 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
|
5870 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5871 free_regexps (); /* --no-regex: remove existing regexps */ |
39317
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5872 return; |
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5873 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5874 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5875 /* 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
|
5876 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
|
5877 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5878 /* 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
|
5879 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
|
5880 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
|
5881 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
|
5882 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
|
5883 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5884 /* 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
|
5885 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
|
5886 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
|
5887 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5888 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
|
5889 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
|
5890 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
|
5891 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5892 /* 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
|
5893 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
|
5894 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
|
5895 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5896 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
|
5897 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
|
5898 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5899 linebuffer_init (®exbuf); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5900 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
|
5901 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
|
5902 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
|
5903 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
|
5904 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5905 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
|
5906 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5907 /* 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
|
5908 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
|
5909 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5910 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
|
5911 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
|
5912 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
|
5913 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5914 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
|
5915 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
|
5916 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5917 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
|
5918 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
|
5919 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5920 *cp++ = '\0'; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5921 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
|
5922 if (lang == NULL) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5923 return; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5924 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
|
5925 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5926 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
|
5927 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5928 /* 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
|
5929 default: |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5930 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
|
5931 break; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5932 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5933 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5934 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5935 /* Separate the regexp pattern, compile it, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5936 and care for optional name and modifiers. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5937 static void |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5938 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
|
5939 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
|
5940 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
|
5941 { |
37719
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
5942 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
|
5943 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
|
5944 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
|
5945 struct re_pattern_buffer *patbuf; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5946 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5947 bool |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5948 force_explicit_name = TRUE, /* do not use implicit tag names */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5949 ignore_case = FALSE, /* case is significant */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5950 multi_line = FALSE, /* matches are done one line at a time */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5951 single_line = FALSE; /* dot does not match newline */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5952 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5953 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5954 if (strlen(regexp_pattern) < 3) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5955 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5956 error ("null regexp", (char *)NULL); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5957 return; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5958 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5959 sep = regexp_pattern[0]; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5960 name = scan_separators (regexp_pattern); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5961 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
|
5962 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5963 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
|
5964 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5965 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5966 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
|
5967 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5968 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
|
5969 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5970 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5971 modifiers = scan_separators (name); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5972 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
|
5973 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5974 modifiers = name; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5975 name = ""; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5976 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5977 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5978 modifiers += 1; /* skip separator */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5979 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5980 /* Parse regex modifiers. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5981 for (; modifiers[0] != '\0'; modifiers++) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5982 switch (modifiers[0]) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5983 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5984 case 'N': |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5985 if (modifiers == name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5986 error ("forcing explicit tag name but no name, ignoring", NULL); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5987 force_explicit_name = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5988 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5989 case 'i': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5990 ignore_case = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5991 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5992 case 's': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5993 single_line = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5994 /* FALLTHRU */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5995 case 'm': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5996 multi_line = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5997 need_filebuf = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5998 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5999 default: |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6000 { |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6001 char wrongmod [2]; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6002 wrongmod[0] = modifiers[0]; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6003 wrongmod[1] = '\0'; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6004 error ("invalid regexp modifier `%s', ignoring", wrongmod); |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6005 } |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6006 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6007 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6008 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6009 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
|
6010 *patbuf = zeropattern; |
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
6011 if (ignore_case) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6012 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6013 static char lc_trans[CHARS]; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6014 int i; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6015 for (i = 0; i < CHARS; i++) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6016 lc_trans[i] = lowcase (i); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6017 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
|
6018 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6019 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6020 if (multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6021 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
|
6022 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6023 pat = regexp_pattern; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6024 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6025 if (single_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6026 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
|
6027 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6028 re_set_syntax (RE_SYNTAX_EMACS); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6029 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6030 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
|
6031 if (multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6032 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
|
6033 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
|
6034 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6035 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
|
6036 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6037 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6038 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6039 rp = p_head; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6040 p_head = xnew (1, regexp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6041 p_head->pattern = savestr (regexp_pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6042 p_head->p_next = rp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6043 p_head->lang = lang; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6044 p_head->pat = patbuf; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6045 p_head->name = savestr (name); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6046 p_head->error_signaled = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6047 p_head->force_explicit_name = force_explicit_name; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6048 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
|
6049 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
|
6050 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6051 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6052 /* |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
6053 * 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
|
6054 * arguments. |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6055 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6056 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
|
6057 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
|
6058 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
|
6059 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
|
6060 { |
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
|
6061 char *result, *t; |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6062 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
|
6063 |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6064 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
|
6065 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
|
6066 |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6067 /* 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
|
6068 if (out[size - 1] == '\\') |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6069 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
|
6070 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
|
6071 t != NULL; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6072 t = etags_strchr (t + 2, '\\')) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
6073 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
|
6074 { |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6075 dig = t[1] - '0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6076 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
|
6077 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
|
6078 } |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6079 else |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6080 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
|
6081 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6082 /* Allocate space and do the substitutions. */ |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6083 assert (size >= 0); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6084 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
|
6085 |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6086 for (t = result; *out != '\0'; out++) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
6087 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
|
6088 { |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6089 dig = *out - '0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6090 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
|
6091 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
|
6092 t += diglen; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6093 } |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6094 else |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6095 *t++ = *out; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6096 *t = '\0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6097 |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6098 assert (t <= result + size); |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6099 assert (t - result == (int)strlen (result)); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6100 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6101 return result; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6102 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6103 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6104 /* Deallocate all regexps. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6105 static void |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6106 free_regexps () |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6107 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6108 regexp *rp; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6109 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
|
6110 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6111 rp = p_head->p_next; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6112 free (p_head->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6113 free (p_head->name); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6114 free (p_head); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6115 p_head = rp; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6116 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6117 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
|
6118 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6119 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6120 /* |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6121 * 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
|
6122 * 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
|
6123 * readline already dealt with normal regexps. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6124 * |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6125 * 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
|
6126 */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6127 static void |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6128 regex_tag_multiline () |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6129 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6130 char *buffer = filebuf.buffer; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6131 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6132 char *name; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6133 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6134 for (rp = p_head; rp != NULL; rp = rp->p_next) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6135 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6136 int match = 0; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6137 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6138 if (!rp->multi_line) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6139 continue; /* skip normal regexps */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6140 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6141 /* 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
|
6142 lineno = 1; /* reset global line number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6143 charno = 0; /* reset global char number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6144 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
|
6145 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6146 /* Only use generic regexps or those for the current language. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6147 if (rp->lang != NULL && rp->lang != curfdp->lang) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6148 continue; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6149 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6150 while (match >= 0 && match < filebuf.len) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6151 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6152 match = re_search (rp->pat, buffer, filebuf.len, charno, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6153 filebuf.len - match, &rp->regs); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6154 switch (match) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6155 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6156 case -2: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6157 /* Some error. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6158 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6159 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6160 error ("regexp stack overflow while matching \"%s\"", |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6161 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6162 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6163 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6164 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6165 case -1: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6166 /* No match. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6167 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6168 default: |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6169 if (match == rp->regs.end[0]) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6170 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6171 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6172 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6173 error ("regexp matches the empty string: \"%s\"", |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6174 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6175 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6176 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6177 match = -3; /* exit from while loop */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6178 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6179 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6180 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6181 /* Match occurred. Construct a tag. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6182 while (charno < rp->regs.end[0]) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6183 if (buffer[charno++] == '\n') |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6184 lineno++, linecharno = charno; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6185 name = rp->name; |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6186 if (name[0] == '\0') |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6187 name = NULL; |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6188 else /* make a named tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6189 name = substitute (buffer, rp->name, &rp->regs); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6190 if (rp->force_explicit_name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6191 /* Force explicit tag name, if a name is there. */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6192 pfnote (name, TRUE, buffer + linecharno, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6193 charno - linecharno + 1, lineno, linecharno); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6194 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6195 make_tag (name, strlen (name), TRUE, buffer + linecharno, |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6196 charno - linecharno + 1, lineno, linecharno); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6197 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6198 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6199 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6200 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6201 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6202 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6203 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6204 static bool |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6205 nocase_tail (cp) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6206 char *cp; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6207 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6208 register int len = 0; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6209 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6210 while (*cp != '\0' && lowcase (*cp) == lowcase (dbp[len])) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6211 cp++, len++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6212 if (*cp == '\0' && !intoken (dbp[len])) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6213 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6214 dbp += len; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6215 return TRUE; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6216 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6217 return FALSE; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6218 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6219 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6220 static void |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6221 get_tag (bp, namepp) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6222 register char *bp; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6223 char **namepp; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6224 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6225 register char *cp = bp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6226 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6227 if (*bp != '\0') |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6228 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6229 /* Go till you get to white space or a syntactic break */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6230 for (cp = bp + 1; !notinname (*cp); cp++) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6231 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6232 make_tag (bp, cp - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6233 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6234 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6235 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6236 if (namepp != NULL) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6237 *namepp = savenstr (bp, cp - bp); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6238 } |
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 |
240 | 6240 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6241 * 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
|
6242 * 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
|
6243 * `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
|
6244 * |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6245 * 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
|
6246 * 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
|
6247 * 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
|
6248 * file). |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6249 * |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6250 * 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
|
6251 * appended to `filebuf'. |
240 | 6252 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6253 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
|
6254 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
|
6255 linebuffer *lbp; |
240 | 6256 register FILE *stream; |
6257 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6258 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
|
6259 register char *p = lbp->buffer; |
240 | 6260 register char *pend; |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6261 int chars_deleted; |
240 | 6262 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6263 pend = p + lbp->size; /* Separate to avoid 386/IX compiler bug. */ |
240 | 6264 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
6265 for (;;) |
240 | 6266 { |
6267 register int c = getc (stream); | |
6268 if (p == pend) | |
6269 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6270 /* 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
|
6271 lbp->size *= 2; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6272 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
|
6273 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
|
6274 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
|
6275 lbp->buffer = buffer; |
240 | 6276 } |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6277 if (c == EOF) |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6278 { |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
6279 *p = '\0'; |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6280 chars_deleted = 0; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6281 break; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6282 } |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6283 if (c == '\n') |
240 | 6284 { |
10990
c0ceaa45ded7
* etags.c (process_file): free (filename) after using it.
Francesco Potortì <pot@gnu.org>
parents:
10801
diff
changeset
|
6285 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
|
6286 { |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6287 p -= 1; |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6288 #ifdef DOS_NT |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
6289 /* 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
|
6290 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
|
6291 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
|
6292 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
|
6293 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
|
6294 chars_deleted = 1; |
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6295 #else |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6296 chars_deleted = 2; |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6297 #endif |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6298 } |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6299 else |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6300 { |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6301 chars_deleted = 1; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6302 } |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6303 *p = '\0'; |
240 | 6304 break; |
6305 } | |
6306 *p++ = c; | |
6307 } | |
26262
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 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
|
6309 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6310 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
|
6311 && chars_deleted > 0) /* not at EOF */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6312 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6313 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
|
6314 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6315 /* Expand filebuf. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6316 filebuf.size *= 2; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6317 xrnew (filebuf.buffer, filebuf.size, char); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6318 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6319 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
|
6320 filebuf.len += lbp->len; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6321 filebuf.buffer[filebuf.len++] = '\n'; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6322 filebuf.buffer[filebuf.len] = '\0'; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6323 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6324 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6325 return lbp->len + chars_deleted; |
240 | 6326 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6327 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6328 /* |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6329 * 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
|
6330 * 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
|
6331 * directives. |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6332 */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6333 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
|
6334 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
|
6335 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
|
6336 FILE *stream; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6337 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6338 long result; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6339 |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6340 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
|
6341 result = readline_internal (lbp, stream); /* read line */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6342 lineno += 1; /* increment global line number */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6343 charno += result; /* increment global char number */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6344 |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
6345 /* 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
|
6346 if (!no_line_directive) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6347 { |
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
|
6348 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
|
6349 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6350 /* 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
|
6351 if (result > 12 && strneq (lbp->buffer, "#line ", 6)) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6352 { |
74298
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6353 unsigned int lno; |
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6354 int start = 0; |
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6355 |
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6356 if (sscanf (lbp->buffer, "#line %u \"%n", &lno, &start) >= 1 |
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6357 && start > 0) /* double quote character found */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6358 { |
74298
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6359 char *endp = lbp->buffer + start; |
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6360 |
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
|
6361 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
|
6362 && 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
|
6363 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
|
6364 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
|
6365 /* 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
|
6366 { |
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
|
6367 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
|
6368 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
|
6369 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
|
6370 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6371 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
|
6372 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
|
6373 *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
|
6374 canonicalize_filename (name); /* for DOS */ |
74951
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
6375 taggedabsname = absolute_filename (name, tagfiledir); |
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
|
6376 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
|
6377 || 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
|
6378 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
|
6379 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
|
6380 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
|
6381 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6382 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
|
6383 /* 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
|
6384 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
|
6385 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
|
6386 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
|
6387 /* 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
|
6388 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
|
6389 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
|
6390 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6391 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
|
6392 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6393 /* 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
|
6394 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
|
6395 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
|
6396 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
|
6397 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
|
6398 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
|
6399 && 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
|
6400 /* 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
|
6401 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
|
6402 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
|
6403 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
|
6404 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
|
6405 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
|
6406 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
|
6407 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
|
6408 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6409 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
|
6410 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
|
6411 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
|
6412 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6413 /* 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
|
6414 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
|
6415 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
|
6416 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
|
6417 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
|
6418 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6419 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
|
6420 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
|
6421 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
|
6422 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6423 /* 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
|
6424 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
|
6425 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
|
6426 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6427 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
|
6428 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
|
6429 *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
|
6430 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
|
6431 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
|
6432 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
|
6433 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
|
6434 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
|
6435 fdhead->usecharno = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6436 fdhead->prop = NULL; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6437 fdhead->written = FALSE; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6438 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
|
6439 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6440 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6441 free (taggedabsname); |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6442 lineno = lno - 1; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6443 readline (lbp, stream); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6444 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
|
6445 } /* 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
|
6446 } /* 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
|
6447 } /* 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
|
6448 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6449 /* 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
|
6450 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
|
6451 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6452 if (result > 0) |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6453 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6454 /* 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
|
6455 of the line buffer. */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6456 readline (lbp, stream); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6457 return; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6458 } |
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
|
6459 /* 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
|
6460 discard_until_line_directive = FALSE; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6461 return; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6462 } |
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
|
6463 } /* 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
|
6464 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6465 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6466 int match; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6467 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6468 char *name; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6469 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6470 /* Match against relevant regexps. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6471 if (lbp->len > 0) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6472 for (rp = p_head; rp != NULL; rp = rp->p_next) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6473 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6474 /* 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
|
6475 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
|
6476 regex_tag_multiline. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6477 if ((rp->lang != NULL && rp->lang != fdhead->lang) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6478 || rp->multi_line) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6479 continue; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6480 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6481 match = re_match (rp->pat, lbp->buffer, lbp->len, 0, &rp->regs); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6482 switch (match) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6483 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6484 case -2: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6485 /* Some error. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6486 if (!rp->error_signaled) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6487 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6488 error ("regexp stack overflow while matching \"%s\"", |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6489 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6490 rp->error_signaled = TRUE; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6491 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6492 break; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6493 case -1: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6494 /* No match. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6495 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6496 case 0: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6497 /* Empty string matched. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6498 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6499 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6500 error ("regexp matches the empty string: \"%s\"", rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6501 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6502 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6503 break; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6504 default: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6505 /* Match occurred. Construct a tag. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6506 name = rp->name; |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6507 if (name[0] == '\0') |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6508 name = NULL; |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6509 else /* make a named tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6510 name = substitute (lbp->buffer, rp->name, &rp->regs); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6511 if (rp->force_explicit_name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6512 /* Force explicit tag name, if a name is there. */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6513 pfnote (name, TRUE, lbp->buffer, match, lineno, linecharno); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6514 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6515 make_tag (name, strlen (name), TRUE, |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6516 lbp->buffer, match, lineno, linecharno); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6517 break; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6518 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6519 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6520 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6521 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6522 |
240 | 6523 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6524 /* |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6525 * 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
|
6526 * 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
|
6527 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6528 static char * |
240 | 6529 savestr (cp) |
6530 char *cp; | |
6531 { | |
6532 return savenstr (cp, strlen (cp)); | |
6533 } | |
6534 | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6535 /* |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6536 * 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
|
6537 * 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
|
6538 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6539 static char * |
240 | 6540 savenstr (cp, len) |
6541 char *cp; | |
6542 int len; | |
6543 { | |
6544 register char *dp; | |
6545 | |
6546 dp = xnew (len + 1, char); | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6547 strncpy (dp, cp, len); |
240 | 6548 dp[len] = '\0'; |
6549 return dp; | |
6550 } | |
6551 | |
6552 /* | |
6553 * Return the ptr in sp at which the character c last | |
6554 * appears; NULL if not found | |
6555 * | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6556 * Identical to POSIX strrchr, included for portability. |
240 | 6557 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6558 static char * |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6559 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
|
6560 register const char *sp; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6561 register int c; |
240 | 6562 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6563 register const char *r; |
240 | 6564 |
6565 r = NULL; | |
6566 do | |
6567 { | |
6568 if (*sp == c) | |
6569 r = sp; | |
6570 } while (*sp++); | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6571 return (char *)r; |
240 | 6572 } |
6573 | |
6574 /* | |
6575 * Return the ptr in sp at which the character c first | |
6576 * appears; NULL if not found | |
6577 * | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6578 * Identical to POSIX strchr, included for portability. |
240 | 6579 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6580 static char * |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6581 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
|
6582 register const char *sp; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6583 register int c; |
240 | 6584 { |
6585 do | |
6586 { | |
6587 if (*sp == c) | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6588 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
|
6589 } while (*sp++); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6590 return NULL; |
240 | 6591 } |
6592 | |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6593 /* |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6594 * Compare two strings, ignoring case for alphabetic characters. |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6595 * |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6596 * Same as BSD's strcasecmp, included for portability. |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6597 */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6598 static int |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6599 etags_strcasecmp (s1, s2) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6600 register const char *s1; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6601 register const char *s2; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6602 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6603 while (*s1 != '\0' |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6604 && (ISALPHA (*s1) && ISALPHA (*s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6605 ? lowcase (*s1) == lowcase (*s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6606 : *s1 == *s2)) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6607 s1++, s2++; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6608 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6609 return (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6610 ? lowcase (*s1) - lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6611 : *s1 - *s2); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6612 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6613 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6614 /* |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6615 * Compare two strings, ignoring case for alphabetic characters. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6616 * Stop after a given number of characters |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6617 * |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6618 * Same as BSD's strncasecmp, included for portability. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6619 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6620 static int |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6621 etags_strncasecmp (s1, s2, n) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6622 register const char *s1; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6623 register const char *s2; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6624 register int n; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6625 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6626 while (*s1 != '\0' && n-- > 0 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6627 && (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6628 ? lowcase (*s1) == lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6629 : *s1 == *s2)) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6630 s1++, s2++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6631 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6632 if (n < 0) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6633 return 0; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6634 else |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6635 return (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6636 ? lowcase (*s1) - lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6637 : *s1 - *s2); |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6638 } |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6639 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
6640 /* Skip spaces (end of string is not space), return new pointer. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6641 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
|
6642 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
|
6643 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
|
6644 { |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
6645 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
|
6646 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
|
6647 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
|
6648 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6649 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
6650 /* Skip non spaces, except end of string, return new pointer. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6651 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
|
6652 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
|
6653 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
|
6654 { |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
6655 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
|
6656 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
|
6657 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
|
6658 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6659 |
240 | 6660 /* Print error message and exit. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6661 void |
240 | 6662 fatal (s1, s2) |
6663 char *s1, *s2; | |
6664 { | |
6665 error (s1, s2); | |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6666 exit (EXIT_FAILURE); |
240 | 6667 } |
6668 | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6669 static void |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6670 pfatal (s1) |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6671 char *s1; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6672 { |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6673 perror (s1); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6674 exit (EXIT_FAILURE); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6675 } |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6676 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6677 static void |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6678 suggest_asking_for_help () |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6679 { |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
6680 fprintf (stderr, "\tTry `%s %s' for a complete list of options.\n", |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
6681 progname, NO_LONG_OPTIONS ? "-h" : "--help"); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6682 exit (EXIT_FAILURE); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6683 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6684 |
240 | 6685 /* 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
|
6686 static void |
240 | 6687 error (s1, s2) |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6688 const char *s1, *s2; |
240 | 6689 { |
6690 fprintf (stderr, "%s: ", progname); | |
6691 fprintf (stderr, s1, s2); | |
6692 fprintf (stderr, "\n"); | |
6693 } | |
6694 | |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6695 /* Return a newly-allocated string whose contents |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6696 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
|
6697 static char * |
240 | 6698 concat (s1, s2, s3) |
6699 char *s1, *s2, *s3; | |
6700 { | |
6701 int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3); | |
6702 char *result = xnew (len1 + len2 + len3 + 1, char); | |
6703 | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6704 strcpy (result, s1); |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6705 strcpy (result + len1, s2); |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6706 strcpy (result + len1 + len2, s3); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6707 result[len1 + len2 + len3] = '\0'; |
240 | 6708 |
6709 return result; | |
6710 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6711 |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6712 |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6713 /* 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
|
6714 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
|
6715 static char * |
7227
6fa038c33a0f
[MSDOS]: #include <sys/param.h> for the following.
Richard M. Stallman <rms@gnu.org>
parents:
7049
diff
changeset
|
6716 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
|
6717 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6718 #ifdef HAVE_GETCWD |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6719 int bufsize = 200; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6720 char *path = xnew (bufsize, char); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6721 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6722 while (getcwd (path, bufsize) == NULL) |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6723 { |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
6724 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
|
6725 pfatal ("getcwd"); |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
6726 bufsize *= 2; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
6727 free (path); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6728 path = xnew (bufsize, char); |
8789
81a2817b99b2
(etags_getcwd): Use getcwd if available.
Karl Heuer <kwzh@gnu.org>
parents:
8180
diff
changeset
|
6729 } |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6730 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6731 canonicalize_filename (path); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6732 return path; |
16394
675944d1abc9
(etags_getcwd) [WINDOWSNT]: Convert backslashes to slashes.
Richard M. Stallman <rms@gnu.org>
parents:
16373
diff
changeset
|
6733 |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6734 #else /* not HAVE_GETCWD */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
6735 #if MSDOS |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6736 |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6737 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
|
6738 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6739 getwd (path); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6740 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6741 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
|
6742 if (*p == '\\') |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6743 *p = '/'; |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6744 else |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6745 *p = lowcase (*p); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6746 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6747 return strdup (path); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6748 #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
|
6749 linebuffer path; |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6750 FILE *pipe; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6751 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6752 linebuffer_init (&path); |
11990
1e5d25c997ca
* etags.c (etags_getcwd): Undo the /bin/pwd change. It may raise
Francesco Potortì <pot@gnu.org>
parents:
11957
diff
changeset
|
6753 pipe = (FILE *) popen ("pwd 2>/dev/null", "r"); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6754 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
|
6755 pfatal ("pwd"); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6756 pclose (pipe); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6757 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6758 return path.buffer; |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6759 #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
|
6760 #endif /* not HAVE_GETCWD */ |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6761 } |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6762 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6763 /* 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
|
6764 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
|
6765 static char * |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6766 relative_filename (file, dir) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6767 char *file, *dir; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6768 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6769 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
|
6770 int i; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6771 |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
6772 /* 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
|
6773 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
|
6774 fp = afn; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6775 dp = dir; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6776 while (*fp++ == *dp++) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6777 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
|
6778 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
|
6779 #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
|
6780 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
|
6781 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
|
6782 #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
|
6783 do /* look at the equal chars until '/' */ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
6784 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
|
6785 while (*fp != '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6786 |
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
|
6787 /* 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
|
6788 i = 0; |
95393
c6d82cbe67bc
(relative_filename): Treat "///" like "/" in filenames.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94828
diff
changeset
|
6789 while (*dp == '/') |
c6d82cbe67bc
(relative_filename): Treat "///" like "/" in filenames.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94828
diff
changeset
|
6790 ++dp; |
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
|
6791 while ((dp = etags_strchr (dp + 1, '/')) != NULL) |
95393
c6d82cbe67bc
(relative_filename): Treat "///" like "/" in filenames.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94828
diff
changeset
|
6792 { |
c6d82cbe67bc
(relative_filename): Treat "///" like "/" in filenames.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94828
diff
changeset
|
6793 i += 1; |
c6d82cbe67bc
(relative_filename): Treat "///" like "/" in filenames.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94828
diff
changeset
|
6794 while (*dp == '/') |
c6d82cbe67bc
(relative_filename): Treat "///" like "/" in filenames.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94828
diff
changeset
|
6795 ++dp; |
c6d82cbe67bc
(relative_filename): Treat "///" like "/" in filenames.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94828
diff
changeset
|
6796 } |
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
|
6797 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
|
6798 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
|
6799 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
|
6800 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
|
6801 |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6802 /* 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
|
6803 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
|
6804 free (afn); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
6805 |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
6806 return res; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6807 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6808 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6809 /* 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
|
6810 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
|
6811 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
|
6812 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
|
6813 char *file, *dir; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6814 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6815 char *slashp, *cp, *res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6816 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6817 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
|
6818 res = savestr (file); |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6819 #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
|
6820 /* 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
|
6821 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
|
6822 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
|
6823 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
|
6824 #endif |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6825 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
|
6826 res = concat (dir, file, ""); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6827 |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6828 /* Delete the "/dirname/.." and "/." substrings. */ |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6829 slashp = etags_strchr (res, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6830 while (slashp != NULL && slashp[0] != '\0') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6831 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6832 if (slashp[1] == '.') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6833 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6834 if (slashp[2] == '.' |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6835 && (slashp[3] == '/' || slashp[3] == '\0')) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6836 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6837 cp = slashp; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6838 do |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6839 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
|
6840 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
|
6841 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
|
6842 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
|
6843 #ifdef DOS_NT |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6844 /* 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
|
6845 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
|
6846 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
|
6847 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
|
6848 cp = slashp; |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6849 #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
|
6850 strcpy (cp, slashp + 3); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6851 slashp = cp; |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6852 continue; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6853 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6854 else if (slashp[2] == '/' || slashp[2] == '\0') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6855 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6856 strcpy (slashp, slashp + 2); |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6857 continue; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6858 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6859 } |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6860 |
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6861 slashp = etags_strchr (slashp + 1, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6862 } |
24140
9e4d1d3eab09
(etags_getcwd, absolute_filename) [DOS_NT]: Canonicalize
Geoff Voelker <voelker@cs.washington.edu>
parents:
24059
diff
changeset
|
6863 |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
6864 if (res[0] == '\0') /* just a safety net: should never happen */ |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
6865 { |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
6866 free (res); |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
6867 return savestr ("/"); |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
6868 } |
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
|
6869 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
|
6870 return res; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6871 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6872 |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6873 /* 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
|
6874 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
|
6875 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
|
6876 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
|
6877 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
|
6878 char *file, *dir; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6879 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6880 char *slashp, *res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6881 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
|
6882 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6883 canonicalize_filename (file); |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6884 slashp = etags_strrchr (file, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6885 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
|
6886 return savestr (dir); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6887 save = slashp[1]; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6888 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
|
6889 res = absolute_filename (file, dir); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6890 slashp[1] = save; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6891 |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6892 return res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6893 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6894 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6895 /* 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
|
6896 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
|
6897 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
|
6898 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
|
6899 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
|
6900 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6901 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
|
6902 #ifdef DOS_NT |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
6903 || (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
|
6904 #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
|
6905 ); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6906 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6907 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6908 /* 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
|
6909 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
|
6910 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
|
6911 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
|
6912 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6913 #ifdef DOS_NT |
26507
aabdfbf65c68
1999-11-19 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26340
diff
changeset
|
6914 /* Canonicalize drive letter case. */ |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
6915 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
|
6916 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
|
6917 /* 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
|
6918 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
|
6919 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
|
6920 *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
|
6921 #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
|
6922 /* 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
|
6923 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
|
6924 #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
|
6925 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6926 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6927 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6928 /* Initialize a linebuffer for use */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6929 static void |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6930 linebuffer_init (lbp) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6931 linebuffer *lbp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6932 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6933 lbp->size = (DEBUG) ? 3 : 200; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6934 lbp->buffer = xnew (lbp->size, char); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6935 lbp->buffer[0] = '\0'; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6936 lbp->len = 0; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6937 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6938 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6939 /* 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
|
6940 static void |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6941 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
|
6942 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
|
6943 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
|
6944 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6945 while (lbp->size <= toksize) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6946 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6947 lbp->size *= 2; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6948 xrnew (lbp->buffer, lbp->size, char); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6949 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6950 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
|
6951 } |
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
6952 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6953 /* 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
|
6954 static PTR |
240 | 6955 xmalloc (size) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
6956 unsigned int size; |
240 | 6957 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6958 PTR result = (PTR) malloc (size); |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6959 if (result == NULL) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
6960 fatal ("virtual memory exhausted", (char *)NULL); |
240 | 6961 return result; |
6962 } | |
6963 | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6964 static PTR |
240 | 6965 xrealloc (ptr, size) |
6966 char *ptr; | |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
6967 unsigned int size; |
240 | 6968 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6969 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
|
6970 if (result == NULL) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
6971 fatal ("virtual memory exhausted", (char *)NULL); |
240 | 6972 return result; |
6973 } | |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6974 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6975 /* |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6976 * Local Variables: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6977 * indent-tabs-mode: t |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6978 * 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
|
6979 * fill-column: 79 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6980 * c-font-lock-extra-types: ("FILE" "bool" "language" "linebuffer" "fdesc" "node" "regexp") |
75654
8f0016c7d0b9
Fix file local variables c-file-style specification.
Glenn Morris <rgm@gnu.org>
parents:
75348
diff
changeset
|
6981 * c-file-style: "gnu" |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6982 * End: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6983 */ |
52401 | 6984 |
6985 /* arch-tag: 8a9b748d-390c-4922-99db-2eeefa921051 | |
6986 (do not change this comment) */ | |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6987 |
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6988 /* etags.c ends here */ |