Mercurial > emacs
annotate lib-src/etags.c @ 94597:100982f1144d
(--without-makeinfo): New option. If set, absence of suitable
makeinfo is not a fatal error.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 03 May 2008 20:16:15 +0000 |
parents | 4054054dd212 |
children | 3a4bc081639c |
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 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
37 This program is free software; you can redistribute it and/or modify |
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 |
78257
1f2482de3237
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
76181
diff
changeset
|
39 the Free Software Foundation; either version 3, or (at your option) |
1f2482de3237
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
76181
diff
changeset
|
40 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 |
78257
1f2482de3237
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
76181
diff
changeset
|
48 along with this program; see the file COPYING. If not, write to the |
1f2482de3237
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
76181
diff
changeset
|
49 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
1f2482de3237
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
76181
diff
changeset
|
50 Boston, MA 02110-1301, USA. */ |
76181
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
51 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
52 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
53 /* 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
|
54 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
|
55 above notices are. |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
56 |
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
57 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
|
58 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
|
59 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
|
60 |
240 | 61 |
62 /* | |
63 * Authors: | |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
64 * 1983 Ctags originally by Ken Arnold. |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
65 * 1984 Fortran added by Jim Kleckner. |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
66 * 1984 Ed Pelegri-Llopart added C typedefs. |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
67 * 1985 Emacs TAGS format by Richard Stallman. |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
68 * 1989 Sam Kendall added C++. |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
69 * 1992 Joseph B. Wells improved C and C++ parsing. |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
70 * 1993 Francesco Potort́ reorganised C and C++. |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
71 * 1994 Line-by-line regexp tags by Tom Tromey. |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
72 * 2001 Nested classes by Francesco Potort́ (concept by Mykola Dzyuba). |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
73 * 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
|
74 * |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
75 * Francesco Potort́ <pot@gnu.org> has maintained and improved it since 1993. |
240 | 76 */ |
10761
7aa80669e697
* etags.c (C_entries): Bug corrected in xrealloc of token_str.
Francesco Potortì <pot@gnu.org>
parents:
10754
diff
changeset
|
77 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
78 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
79 * 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
|
80 * 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
|
81 * 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
|
82 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
83 |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
84 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
|
85 |
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
86 #define TRUE 1 |
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
87 #define FALSE 0 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
88 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
89 #ifdef DEBUG |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
90 # undef DEBUG |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
91 # define DEBUG TRUE |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
92 #else |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
93 # define DEBUG FALSE |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
94 # 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
|
95 #endif |
10754
cd1c0b5e8634
* etags.c (C_entries): Initialise the new members of TOKEN.
Francesco Potortì <pot@gnu.org>
parents:
10623
diff
changeset
|
96 |
26083
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
97 #ifdef HAVE_CONFIG_H |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
98 # include <config.h> |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
99 /* 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
|
100 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
|
101 # undef static |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
102 # ifndef PTR /* for XEmacs */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
103 # define PTR void * |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
104 # endif |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
105 # ifndef __P /* for XEmacs */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
106 # define __P(args) args |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
107 # endif |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
108 #else /* no config.h */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
109 # if defined(__STDC__) && (__STDC__ || defined(__SUNPRO_C)) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
110 # define __P(args) args /* use prototypes */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
111 # 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
|
112 # else /* not standard C */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
113 # define __P(args) () /* no prototypes */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
114 # define const /* remove const for old compilers' sake */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
115 # 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
|
116 # endif |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
117 #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
|
118 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
119 #ifndef _GNU_SOURCE |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
120 # 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
|
121 #endif |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
122 |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
123 /* WIN32_NATIVE is for XEmacs. |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
124 MSDOS, WINDOWSNT, DOS_NT are for Emacs. */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
125 #ifdef WIN32_NATIVE |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
126 # undef MSDOS |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
127 # undef WINDOWSNT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
128 # define WINDOWSNT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
129 #endif /* WIN32_NATIVE */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
130 |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
131 #ifdef MSDOS |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
132 # undef MSDOS |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
133 # 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
|
134 # include <fcntl.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
135 # 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
|
136 # 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
|
137 # 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
|
138 # 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
|
139 # 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
|
140 # endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
141 #else |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
142 # define MSDOS FALSE |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
143 #endif /* MSDOS */ |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
144 |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
145 #ifdef WINDOWSNT |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
146 # include <stdlib.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
147 # include <fcntl.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
148 # include <string.h> |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
149 # include <direct.h> |
14982
b470e33ce4a9
[WINDOWSNT]: Include io.h.
Richard M. Stallman <rms@gnu.org>
parents:
14924
diff
changeset
|
150 # 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
|
151 # define MAXPATHLEN _MAX_PATH |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
152 # undef HAVE_NTGUI |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
153 # undef DOS_NT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
154 # 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
|
155 # 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
|
156 # 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
|
157 # endif /* undef HAVE_GETCWD */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
158 #else /* not WINDOWSNT */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
159 # ifdef STDC_HEADERS |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
160 # include <stdlib.h> |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
161 # include <string.h> |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
162 # else /* no standard C headers */ |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
163 extern char *getenv __P((const char *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
164 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
|
165 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
|
166 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
|
167 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
|
168 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
|
169 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
|
170 extern int system __P((const char *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
171 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
|
172 extern void *malloc __P((unsigned long)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
173 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
|
174 extern void exit __P((int)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
175 extern void free __P((void *)); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
176 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
|
177 # ifdef VMS |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
178 # define EXIT_SUCCESS 1 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
179 # define EXIT_FAILURE 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
180 # else /* no VMS */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
181 # define EXIT_SUCCESS 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
182 # define EXIT_FAILURE 1 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
183 # endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
184 # endif |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
185 #endif /* !WINDOWSNT */ |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
186 |
26262
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 #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
|
188 # 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
|
189 #else |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
190 # 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
|
191 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
|
192 # 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
|
193 #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
|
194 |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
195 #include <stdio.h> |
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
196 #include <ctype.h> |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
197 #include <errno.h> |
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
198 #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
|
199 extern int errno; |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
200 #endif |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
201 #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
|
202 #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
|
203 |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
204 #include <assert.h> |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
205 #ifdef NDEBUG |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
206 # 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
|
207 # define assert(x) ((void) 0) |
35741
e0acf4b43873
(assert) [__MINGW32__]: Redefine assert to work around a
Andrew Innes <andrewi@gnu.org>
parents:
35740
diff
changeset
|
208 #endif |
e0acf4b43873
(assert) [__MINGW32__]: Redefine assert to work around a
Andrew Innes <andrewi@gnu.org>
parents:
35740
diff
changeset
|
209 |
4804
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
210 #if !defined (S_ISREG) && defined (S_IFREG) |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
211 # 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
|
212 #endif |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
213 |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
214 #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
|
215 # define NO_LONG_OPTIONS TRUE |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
216 # 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
|
217 extern char *optarg; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
218 extern int optind, opterr; |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
219 #else |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
220 # define NO_LONG_OPTIONS FALSE |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
221 # include <getopt.h> |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
222 #endif /* NO_LONG_OPTIONS */ |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
223 |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
224 #ifndef HAVE_CONFIG_H /* this is a standalone compilation */ |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
225 # 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
|
226 !!! NOTICE !!! |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
227 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
|
228 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
|
229 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
|
230 # endif |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
231 #endif |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
232 #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
|
233 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
234 /* 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
|
235 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
|
236 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
|
237 #ifdef CTAGS |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
238 # undef CTAGS |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
239 # define CTAGS TRUE |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
240 #else |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
241 # define CTAGS FALSE |
240 | 242 #endif |
243 | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
244 #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
|
245 #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
|
246 #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
|
247 #define strncaseeq(s,t,n) (assert((s)!=NULL && (t)!=NULL), !etags_strncasecmp (s, t, n)) |
240 | 248 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
249 #define CHARS 256 /* 2^sizeof(char) */ |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
250 #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
|
251 #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
|
252 #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
|
253 #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
|
254 #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
|
255 #define endtoken(c) (_etk[CHAR(c)]) /* c ends tokens (see endtk) */ |
240 | 256 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
257 #define ISALNUM(c) isalnum (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
258 #define ISALPHA(c) isalpha (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
259 #define ISDIGIT(c) isdigit (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
260 #define ISLOWER(c) islower (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
261 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
262 #define lowcase(c) tolower (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
263 #define upcase(c) toupper (CHAR(c)) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
264 |
12344
7e7941d8cceb
* etags.c (find_entries): rewind before rereading the input file.
Francesco Potortì <pot@gnu.org>
parents:
12242
diff
changeset
|
265 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
266 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
267 * 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
|
268 * |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
269 * 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
|
270 * 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
|
271 */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
272 #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
|
273 # 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
|
274 # 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
|
275 (n) * sizeof (Type))) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
276 # 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
|
277 (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
|
278 #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
|
279 # 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
|
280 # 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
|
281 (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
|
282 #endif |
240 | 283 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
284 #define bool int |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
285 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
286 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
|
287 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
288 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
|
289 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
290 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
|
291 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
|
292 } 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
|
293 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
294 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
|
295 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
296 char *name; /* language name */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
297 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
|
298 Lang_function *function; /* parse function */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
299 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
|
300 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
|
301 char **interpreters; /* interpreters for this language */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
302 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
|
303 } language; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
304 |
44604
4702b23921b4
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 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
|
306 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
307 struct 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
|
308 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
|
309 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
|
310 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
|
311 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
|
312 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
|
313 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
|
314 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
|
315 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
|
316 } 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
|
317 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
318 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
|
319 { /* 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
|
320 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
|
321 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
|
322 char *name; /* tag name */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
323 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
|
324 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
|
325 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
|
326 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
|
327 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
|
328 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
|
329 } node; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
330 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
331 /* |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
332 * 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
|
333 * `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
|
334 * 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
|
335 * 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
|
336 * 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
|
337 */ |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
338 typedef struct |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
339 { |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
340 long size; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
341 int len; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
342 char *buffer; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
343 } linebuffer; |
240 | 344 |
44604
4702b23921b4
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 /* 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
|
346 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
|
347 { |
4702b23921b4
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 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
|
349 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
|
350 at_regexp, /* a regular expression */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
351 at_filename, /* a file name */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
352 at_stdin, /* read from stdin here */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
353 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
|
354 } 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
|
355 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
|
356 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
|
357 } 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
|
358 |
4702b23921b4
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 /* Structure defining a regular expression. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
360 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
|
361 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
362 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
|
363 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
|
364 char *pattern; /* the regexp pattern */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
365 char *name; /* tag name */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
366 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
|
367 struct re_registers regs; /* re registers */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
368 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
|
369 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
|
370 bool ignore_case; /* ignore case when matching */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
371 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
|
372 } 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
|
373 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
374 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
375 /* 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
|
376 Lang_function Ada_funcs; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
377 so let's write it this way */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
378 static void Ada_funcs __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
379 static void Asm_labels __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
380 static void C_entries __P((int c_ext, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
381 static void default_C_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
382 static void plain_C_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
383 static void Cjava_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
384 static void Cobol_paragraphs __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
385 static void Cplusplus_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
386 static void Cstar_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
387 static void Erlang_functions __P((FILE *)); |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
388 static void Forth_words __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
389 static void Fortran_functions __P((FILE *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
390 static void HTML_labels __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
391 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
|
392 static void Lua_functions __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
393 static void Makefile_targets __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
394 static void Pascal_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
395 static void Perl_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
396 static void PHP_functions __P((FILE *)); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
397 static void PS_functions __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
398 static void Prolog_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
399 static void Python_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
400 static void Scheme_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
401 static void TeX_commands __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
402 static void Texinfo_nodes __P((FILE *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
403 static void Yacc_entries __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
404 static void just_read_file __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
405 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
406 static void print_language_names __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
407 static void print_version __P((void)); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
408 static void print_help __P((argument *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
409 int main __P((int, char **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
410 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
411 static compressor *get_compressor_from_suffix __P((char *, char **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
412 static language *get_language_from_langname __P((const char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
413 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
|
414 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
|
415 static void readline __P((linebuffer *, FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
416 static long readline_internal __P((linebuffer *, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
417 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
|
418 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
|
419 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
420 static void analyse_regex __P((char *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
421 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
|
422 static void regex_tag_multiline __P((void)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
423 static void error __P((const char *, const char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
424 static void suggest_asking_for_help __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
425 void fatal __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
426 static void pfatal __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
427 static void add_node __P((node *, node **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
428 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
429 static void init __P((void)); |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
430 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
|
431 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
|
432 static void find_entries __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
433 static void free_tree __P((node *)); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
434 static void free_fdesc __P((fdesc *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
435 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
|
436 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
|
437 static void invalidate_nodes __P((fdesc *, node **)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
438 static void put_entries __P((node *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
439 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
440 static char *concat __P((char *, char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
441 static char *skip_spaces __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
442 static char *skip_non_spaces __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
443 static char *savenstr __P((char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
444 static char *savestr __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
445 static char *etags_strchr __P((const char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
446 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
|
447 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
|
448 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
|
449 static char *etags_getcwd __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
450 static char *relative_filename __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
451 static char *absolute_filename __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
452 static char *absolute_dirname __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
453 static bool filename_is_absolute __P((char *f)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
454 static void canonicalize_filename __P((char *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
455 static void linebuffer_init __P((linebuffer *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
456 static void linebuffer_setlen __P((linebuffer *, int)); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
457 static PTR xmalloc __P((unsigned int)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
458 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
|
459 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
460 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
461 static char searchar = '/'; /* use /.../ searches */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
462 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
463 static char *tagfile; /* output file */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
464 static char *progname; /* name this program was invoked with */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
465 static char *cwd; /* current working directory */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
466 static char *tagfiledir; /* directory of tagfile */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
467 static FILE *tagf; /* ioptr for tags file */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
468 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
469 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
|
470 static fdesc *curfdp; /* current file description */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
471 static int lineno; /* line number of current line */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
472 static long charno; /* current character number */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
473 static long linecharno; /* charno of start of current line */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
474 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
|
475 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
476 static const int invalidcharno = -1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
477 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
478 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
|
479 static node *last_node; /* the last node created */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
480 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
481 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
|
482 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
|
483 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
|
484 |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
485 /* boolean "functions" (see init) */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
486 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
|
487 static char |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
488 /* white chars */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
489 *white = " \f\t\n\r\v", |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
490 /* 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
|
491 *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
|
492 /* 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
|
493 *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
|
494 /* token starting chars */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
495 *begtk = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz$~@", |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
496 /* valid in-token chars */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
497 *midtk = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz$0123456789"; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
498 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
499 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
|
500 /* 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
|
501 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
|
502 static bool typedefs_or_cplusplus; /* -T: create tags for C typedefs, level */ |
240 | 503 /* 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
|
504 /* member functions. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
505 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
|
506 /* constants and variables. */ |
240 | 507 /* -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
|
508 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
|
509 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
|
510 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
|
511 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
|
512 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
|
513 static bool update; /* -u: update tags */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
514 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
|
515 static bool no_warnings; /* -w: suppress warnings (undocumented) */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
516 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
|
517 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
|
518 static bool ignoreindent; /* -I: ignore indentation in C */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
519 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
|
520 |
66219
90109c37ac78
Undef STDIN if defined. (LynxOS defines it in system header files.)
Eli Zaretskii <eliz@gnu.org>
parents:
65714
diff
changeset
|
521 /* 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
|
522 #ifdef STDIN |
66985
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
523 # undef STDIN |
66219
90109c37ac78
Undef STDIN if defined. (LynxOS defines it in system header files.)
Eli Zaretskii <eliz@gnu.org>
parents:
65714
diff
changeset
|
524 #endif |
90109c37ac78
Undef STDIN if defined. (LynxOS defines it in system header files.)
Eli Zaretskii <eliz@gnu.org>
parents:
65714
diff
changeset
|
525 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
526 #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
|
527 static bool parsing_stdin; /* --parse-stdin used */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
528 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
529 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
|
530 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
|
531 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
532 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
|
533 { |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
534 { "append", no_argument, NULL, 'a' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
535 { "packages-only", no_argument, &packages_only, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
536 { "c++", no_argument, NULL, 'C' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
537 { "declarations", no_argument, &declarations, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
538 { "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
|
539 { "no-duplicates", no_argument, &no_duplicates, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
540 { "help", no_argument, NULL, 'h' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
541 { "help", no_argument, NULL, 'H' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
542 { "ignore-indentation", no_argument, NULL, 'I' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
543 { "language", required_argument, NULL, 'l' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
544 { "members", no_argument, &members, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
545 { "no-members", no_argument, &members, FALSE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
546 { "output", required_argument, NULL, 'o' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
547 { "regex", required_argument, NULL, 'r' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
548 { "no-regex", no_argument, NULL, 'R' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
549 { "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
|
550 { "parse-stdin", required_argument, NULL, STDIN }, |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
551 { "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
|
552 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
553 #if CTAGS /* Ctags options */ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
554 { "backward-search", no_argument, NULL, 'B' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
555 { "cxref", no_argument, NULL, 'x' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
556 { "defines", no_argument, NULL, 'd' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
557 { "globals", no_argument, &globals, TRUE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
558 { "typedefs", no_argument, NULL, 't' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
559 { "typedefs-and-c++", no_argument, NULL, 'T' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
560 { "update", no_argument, NULL, 'u' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
561 { "vgrind", no_argument, NULL, 'v' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
562 { "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
|
563 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
564 #else /* Etags options */ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
565 { "no-defines", no_argument, NULL, 'D' }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
566 { "no-globals", no_argument, &globals, FALSE }, |
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
567 { "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
|
568 #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
|
569 { NULL } |
621 | 570 }; |
571 | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
572 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
|
573 { |
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 { "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
|
575 { "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
|
576 { "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
|
577 { "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
|
578 { "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
|
579 { NULL } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
580 }; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
581 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
582 /* |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
583 * Language stuff. |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
584 */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
585 |
26262
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 /* Ada code */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
587 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
|
588 { "ads", "adb", "ada", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
589 static char Ada_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
590 "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
|
591 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
|
592 packages only.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
593 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
|
594 Entity type: Qualifier:\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
595 ------------ ----------\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
596 function /f\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
597 procedure /p\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
598 package spec /s\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
599 package body /b\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
600 type /t\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
601 task /k\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
602 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
|
603 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
|
604 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
|
605 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
606 /* Assembly code */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
607 static char *Asm_suffixes [] = |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
608 { "a", /* Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
609 "asm", /* Microcontroller assembly */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
610 "def", /* BSO/Tasking definition includes */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
611 "inc", /* Microcontroller include files */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
612 "ins", /* Microcontroller include files */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
613 "s", "sa", /* Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
614 "S", /* cpp-processed Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
615 "src", /* BSO/Tasking C compiler output */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
616 NULL |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
617 }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
618 static char Asm_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
619 "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
|
620 followed by a colon, are tags."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
621 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
622 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
623 /* 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
|
624 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
|
625 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
|
626 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
|
627 { "c", "h", NULL }; |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
628 #if CTAGS /* C help for Ctags */ |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
629 static char default_C_help [] = |
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
630 "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
|
631 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
|
632 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
|
633 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
|
634 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
|
635 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
|
636 #else /* C help for Etags */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
637 static char default_C_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
638 "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
|
639 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
|
640 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
|
641 `--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
|
642 `--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
|
643 `--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
|
644 `--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
|
645 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
|
646 using `--declarations'."; |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
647 #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
|
648 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
649 static char *Cplusplus_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
650 { "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
|
651 "M", /* Objective C++ */ |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
652 "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
|
653 NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
654 static char Cplusplus_help [] = |
49360
d257d0cb93b4
(Cplusplus_help, Cjava_help): Re-phrase and avoid
Dave Love <fx@gnu.org>
parents:
49125
diff
changeset
|
655 "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
|
656 --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
|
657 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
|
658 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
|
659 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
|
660 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
|
661 `operator+'."; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
662 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
663 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
|
664 { "java", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
665 static char Cjava_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
666 "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
|
667 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
|
668 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
669 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
670 static char *Cobol_suffixes [] = |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
671 { "COB", "cob", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
672 static char Cobol_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
673 "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
|
674 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
|
675 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
676 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
|
677 { "cs", "hs", NULL }; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
678 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
679 static char *Erlang_suffixes [] = |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
680 { "erl", "hrl", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
681 static char Erlang_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
682 "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
|
683 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
|
684 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
685 char *Forth_suffixes [] = |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
686 { "fth", "tok", NULL }; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
687 static char Forth_help [] = |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
688 "In Forth code, tags are words defined by `:',\n\ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
689 constant, code, create, defer, value, variable, buffer:, field."; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
690 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
691 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
|
692 { "F", "f", "f90", "for", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
693 static char Fortran_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
694 "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
|
695 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
696 static char *HTML_suffixes [] = |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
697 { "htm", "html", "shtml", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
698 static char HTML_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
699 "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
|
700 `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
|
701 occurrences of `id='."; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
702 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
703 static char *Lisp_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
704 { "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
|
705 static char Lisp_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
706 "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
|
707 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
|
708 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
|
709 is a tag."; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
710 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
711 static char *Lua_suffixes [] = |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
712 { "lua", "LUA", NULL }; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
713 static char Lua_help [] = |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
714 "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
|
715 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
716 static char *Makefile_filenames [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
717 { "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
|
718 static char Makefile_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
719 "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
|
720 unless you specify `--no-globals'."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
721 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
722 static char *Objc_suffixes [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
723 { "lm", /* Objective lex file */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
724 "m", /* Objective C file */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
725 NULL }; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
726 static char Objc_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
727 "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
|
728 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
|
729 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
|
730 (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
|
731 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
732 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
|
733 { "p", "pas", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
734 static char Pascal_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
735 "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
|
736 in the file."; |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
737 /* " // 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
|
738 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
739 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
|
740 { "pl", "pm", NULL }; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
741 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
|
742 { "perl", "@PERL@", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
743 static char Perl_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
744 "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
|
745 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
|
746 `--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
|
747 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
|
748 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
|
749 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
750 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
|
751 { "php", "php3", "php4", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
752 static char PHP_help [] = |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
753 "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
|
754 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
|
755 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
756 static char *plain_C_suffixes [] = |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
757 { "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
|
758 NULL }; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
759 |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
760 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
|
761 { "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
|
762 static char PS_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
763 "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
|
764 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
765 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
|
766 { "prolog", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
767 static char Prolog_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
768 "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
|
769 line."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
770 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
771 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
|
772 { "py", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
773 static char Python_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
774 "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
|
775 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
|
776 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
777 /* 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
|
778 static char *Scheme_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
779 { "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
|
780 static char Scheme_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
781 "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
|
782 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
|
783 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
|
784 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
785 static char *TeX_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
786 { "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
|
787 static char TeX_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
788 "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
|
789 `\\section', `\\subsection', `\\subsubsection', `\\eqno', `\\label',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
790 `\\ref', `\\cite', `\\bibitem', `\\part', `\\appendix', `\\entry',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
791 `\\index', `\\def', `\\newcommand', `\\renewcommand',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
792 `\\newenvironment' or `\\renewenvironment' is a tag.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
793 \n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
794 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
|
795 `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
|
796 TEXTAGS=\"mycommand:myothercommand\"."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
797 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
798 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
799 static char *Texinfo_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
800 { "texi", "texinfo", "txi", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
801 static char Texinfo_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
802 "for texinfo files, lines starting with @node are tagged."; |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
803 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
804 static char *Yacc_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
805 { "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
|
806 static char Yacc_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
807 "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
|
808 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
|
809 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
|
810 for full help)."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
811 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
812 static char auto_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
813 "`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
|
814 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
|
815 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
816 static char none_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
817 "`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
|
818 regexp processing on files."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
819 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
820 static char no_lang_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
821 "No detailed help available for this language."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
822 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
823 |
26262
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 * 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
|
826 * |
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 * 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
|
828 * 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
|
829 */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
830 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
831 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
|
832 { |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
833 { "ada", Ada_help, Ada_funcs, Ada_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
834 { "asm", Asm_help, Asm_labels, Asm_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
835 { "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
|
836 { "c++", Cplusplus_help, Cplusplus_entries, Cplusplus_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
837 { "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
|
838 { "cobol", Cobol_help, Cobol_paragraphs, Cobol_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
839 { "erlang", Erlang_help, Erlang_functions, Erlang_suffixes }, |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
840 { "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
|
841 { "fortran", Fortran_help, Fortran_functions, Fortran_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
842 { "html", HTML_help, HTML_labels, HTML_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
843 { "java", Cjava_help, Cjava_entries, Cjava_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
844 { "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
|
845 { "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
|
846 { "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
|
847 { "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
|
848 { "pascal", Pascal_help, Pascal_functions, Pascal_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
849 { "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
|
850 { "php", PHP_help, PHP_functions, PHP_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
851 { "postscript",PS_help, PS_functions, PS_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
852 { "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
|
853 { "prolog", Prolog_help, Prolog_functions, Prolog_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
854 { "python", Python_help, Python_functions, Python_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
855 { "scheme", Scheme_help, Scheme_functions, Scheme_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
856 { "tex", TeX_help, TeX_commands, TeX_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
857 { "texinfo", Texinfo_help, Texinfo_nodes, Texinfo_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
858 { "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
|
859 { "auto", auto_help }, /* default guessing scheme */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
860 { "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
|
861 { 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
|
862 }; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
863 |
240 | 864 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
865 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
|
866 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
|
867 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
868 language *lang; |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
869 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
|
870 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
871 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
|
872 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
|
873 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
|
874 { |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
875 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
|
876 if (lang->filenames != NULL) |
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
877 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
|
878 printf (" %s", *name); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
879 if (lang->suffixes != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
880 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
|
881 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
|
882 puts (""); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
883 } |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
884 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
|
885 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
|
886 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
|
887 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
|
888 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
|
889 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
|
890 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
|
891 switches to C++."); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
892 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
|
893 \n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
894 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
|
895 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
|
896 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
897 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
898 #ifndef EMACS_NAME |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
899 # 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
|
900 #endif |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
901 #ifndef VERSION |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
902 # define VERSION "17.38" |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
903 #endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
904 static void |
621 | 905 print_version () |
906 { | |
81223
58d377c5c5bb
(print_version): Add `emacs_copyright' string, for easier automatic
Glenn Morris <rgm@gnu.org>
parents:
80957
diff
changeset
|
907 /* Makes it easier to update automatically. */ |
87549
f39c927f11aa
(print_version): Update copyright to 2008.
Glenn Morris <rgm@gnu.org>
parents:
87098
diff
changeset
|
908 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
|
909 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
910 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
|
911 puts (emacs_copyright); |
76181
ce4c0635bea7
Add University of California copyright and revised BSDL license.
Glenn Morris <rgm@gnu.org>
parents:
75680
diff
changeset
|
912 puts ("This program is distributed under the terms in ETAGS.README"); |
621 | 913 |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
914 exit (EXIT_SUCCESS); |
621 | 915 } |
916 | |
81933
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
917 #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
|
918 # 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
|
919 #endif |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
920 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
921 static void |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
922 print_help (argbuffer) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
923 argument *argbuffer; |
621 | 924 { |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
925 bool help_for_lang = FALSE; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
926 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
927 for (; argbuffer->arg_type != at_end; argbuffer++) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
928 if (argbuffer->arg_type == at_language) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
929 { |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
930 if (help_for_lang) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
931 puts (""); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
932 puts (argbuffer->lang->help); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
933 help_for_lang = TRUE; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
934 } |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
935 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
936 if (help_for_lang) |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
937 exit (EXIT_SUCCESS); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
938 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
939 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
|
940 \n\ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
941 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
|
942 if (NO_LONG_OPTIONS) |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
943 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
|
944 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
|
945 else |
72192
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
946 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
|
947 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
|
948 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
|
949 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
|
950 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
951 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
|
952 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
|
953 |
26262
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 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
|
955 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
|
956 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
957 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
958 puts ("-B, --backward-search\n\ |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
959 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
|
960 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
|
961 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
962 /* 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
|
963 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
|
964 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
|
965 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
|
966 puts ("-C, --c++\n\ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
967 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
|
968 */ |
621 | 969 |
26262
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 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
|
971 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
|
972 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
|
973 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
|
974 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
|
975 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
|
976 ("\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
|
977 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
978 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
979 puts ("-d, --defines\n\ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
980 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
|
981 else |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
982 puts ("-D, --no-defines\n\ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
983 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
|
984 This makes the tags file smaller."); |
621 | 985 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
986 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
|
987 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
|
988 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
|
989 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
|
990 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
|
991 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
992 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
|
993 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
|
994 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
|
995 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
996 if (CTAGS) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
997 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
|
998 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
|
999 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1000 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
|
1001 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
|
1002 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
|
1003 |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1004 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
|
1005 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
|
1006 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
|
1007 |
80957
3de8e8f14f0d
Extern definitions of some more pointer functions for
Francesco Potortì <pot@gnu.org>
parents:
76181
diff
changeset
|
1008 if (CTAGS) |
3de8e8f14f0d
Extern definitions of some more pointer functions for
Francesco Potortì <pot@gnu.org>
parents:
76181
diff
changeset
|
1009 puts ("--members\n\ |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
1010 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
|
1011 else |
3de8e8f14f0d
Extern definitions of some more pointer functions for
Francesco Potortì <pot@gnu.org>
parents:
76181
diff
changeset
|
1012 puts ("--no-members\n\ |
75680
a3a7c25796a4
(default_C_help, Cplusplus_help, PHP_help, print_help)
Francesco Potortì <pot@gnu.org>
parents:
75675
diff
changeset
|
1013 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
|
1014 in some languages."); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1015 |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1016 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
|
1017 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
|
1018 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
|
1019 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
|
1020 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
|
1021 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
|
1022 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
|
1023 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
|
1024 --regex=\"/proc[ \\t]+\\([^ \\t]+\\)/\\1/.\".\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1025 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
|
1026 `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
|
1027 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
|
1028 |
10047
9b284d98b102
* etags.c (print_help): print --regex usage for ctags also.
Francesco Potortì <pot@gnu.org>
parents:
9976
diff
changeset
|
1029 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
|
1030 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
|
1031 |
10449
2266157d9bcc
* etags.c (longopts, print_help, main): Use -I as abbreviation
Francesco Potortì <pot@gnu.org>
parents:
10404
diff
changeset
|
1032 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
|
1033 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
|
1034 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
|
1035 |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1036 puts ("-o FILE, --output=FILE\n\ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1037 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
|
1038 |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1039 puts ("--parse-stdin=NAME\n\ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1040 Read from standard input and record tags as belonging to file NAME."); |
621 | 1041 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1042 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1043 { |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1044 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
|
1045 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
|
1046 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
|
1047 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
|
1048 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
|
1049 } |
4702b23921b4
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 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1051 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
|
1052 puts ("-u, --update\n\ |
621 | 1053 Update the tag entries for the given files, leaving tag\n\ |
1054 entries for other files in place. Currently, this is\n\ | |
1055 implemented by deleting the existing entries for the given\n\ | |
1056 files and then rewriting the new entries at the end of the\n\ | |
1057 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
|
1058 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
|
1059 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1060 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
|
1061 { |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1062 puts ("-v, --vgrind\n\ |
66985
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1063 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
|
1064 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
|
1065 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
|
1066 |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1067 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
|
1068 puts ("-w, --no-duplicates\n\ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
1069 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
|
1070 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
|
1071 |
a5a2ef19d358
* etags.c (C_entries): Reset the fvdef machine when out of function.
Francesco Potortì <pot@gnu.org>
parents:
81231
diff
changeset
|
1072 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
|
1073 puts ("-w, --no-warn\n\ |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
1074 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
|
1075 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1076 puts ("-x, --cxref\n\ |
621 | 1077 Like --vgrind, but in the style of cxref, rather than vgrind.\n\ |
1078 The output uses line numbers instead of page numbers, but\n\ | |
1079 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
|
1080 which you like."); |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1081 } |
621 | 1082 |
1083 puts ("-V, --version\n\ | |
1084 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
|
1085 -h, --help\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1086 Print this help message.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1087 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
|
1088 help about tag generation for the specified languages."); |
621 | 1089 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1090 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
|
1091 |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
1092 puts (""); |
26323
98d99afb5ffb
* etags.c (print_help): Change email address to send bugs to.
Gerd Moellmann <gerd@gnu.org>
parents:
26262
diff
changeset
|
1093 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
|
1094 |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1095 exit (EXIT_SUCCESS); |
621 | 1096 } |
1097 | |
1098 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1099 #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
|
1100 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1101 #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
|
1102 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1103 /* 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
|
1104 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
|
1105 #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
|
1106 typedef struct { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1107 short curlen; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1108 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
|
1109 } vspec; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1110 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1111 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1112 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
|
1113 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
|
1114 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
|
1115 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
|
1116 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
|
1117 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
|
1118 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
|
1119 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
|
1120 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
|
1121 |
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
|
1122 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
|
1123 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
|
1124 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
|
1125 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
|
1126 */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1127 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1128 #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
|
1129 #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
|
1130 #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
|
1131 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
|
1132 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
|
1133 vspec *out; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1134 char *in; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1135 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1136 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
|
1137 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
|
1138 static struct dsc$descriptor_s i; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1139 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
|
1140 long status; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1141 short retval; |
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 if (pass1) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1144 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1145 pass1 = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1146 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
|
1147 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
|
1148 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
|
1149 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
|
1150 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
|
1151 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
|
1152 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
|
1153 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
|
1154 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1155 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
|
1156 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1157 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
|
1158 return 1; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1159 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1160 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
|
1161 retval = 0; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1162 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1163 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1164 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
|
1165 retval = -1; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1166 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1167 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
|
1168 pass1 = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1169 return retval; |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1170 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1171 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1172 /* |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1173 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
|
1174 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
|
1175 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1176 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
|
1177 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
|
1178 char *arg; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1179 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
|
1180 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1181 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
|
1182 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1183 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
|
1184 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1185 case 1: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1186 *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
|
1187 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
|
1188 case 0: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1189 *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
|
1190 return NULL; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1191 default: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1192 *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
|
1193 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
|
1194 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1195 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1196 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1197 #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
|
1198 system (cmd) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1199 char *cmd; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1200 { |
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
|
1201 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
|
1202 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1203 #endif |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1204 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1205 #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
|
1206 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
|
1207 char *s; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1208 { |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1209 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
|
1210 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1211 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
|
1212 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
|
1213 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1214 *s = EOS; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1215 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1216 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1217 else |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1218 *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
|
1219 return start; |
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 #endif /* VMS */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1222 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1223 |
15683 | 1224 int |
240 | 1225 main (argc, argv) |
1226 int argc; | |
1227 char *argv[]; | |
1228 { | |
1229 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
|
1230 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
|
1231 char **included_files; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1232 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
|
1233 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
|
1234 linebuffer filename_lb; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1235 bool help_asked = FALSE; |
240 | 1236 #ifdef VMS |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1237 bool got_err; |
240 | 1238 #endif |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1239 char *optstring; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1240 int opt; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1241 |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1242 |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
1243 #ifdef DOS_NT |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1244 _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
|
1245 #endif /* DOS_NT */ |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
1246 |
240 | 1247 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
|
1248 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
|
1249 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
|
1250 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
|
1251 file_count = 0; |
240 | 1252 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1253 /* 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
|
1254 is small. */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1255 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
|
1256 |
240 | 1257 /* |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
1258 * 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
|
1259 * 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
|
1260 * members and global variables. Do it for both etags and ctags. |
240 | 1261 */ |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
1262 typedefs = typedefs_or_cplusplus = constantypedefs = TRUE; |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
1263 globals = members = TRUE; |
240 | 1264 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1265 /* 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
|
1266 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
|
1267 optstring = concat (NO_LONG_OPTIONS ? "" : "-", |
15be100e5afb
Adrian Aichner: <adrian@xemacs.org>
Francesco Potortì <pot@gnu.org>
parents:
71783
diff
changeset
|
1268 "ac:Cf:Il:o:r:RSVhH", |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1269 (CTAGS) ? "BxdtTuvw" : "Di:"); |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1270 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1271 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
|
1272 switch (opt) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1273 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1274 case 0: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1275 /* 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
|
1276 long-named option. We should do nothing. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1277 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1278 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1279 case 1: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1280 /* 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
|
1281 argbuffer[current_arg].arg_type = at_filename; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1282 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1283 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1284 ++file_count; |
621 | 1285 break; |
1286 | |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1287 case STDIN: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1288 /* 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
|
1289 argbuffer[current_arg].arg_type = at_stdin; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1290 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1291 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1292 ++file_count; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1293 if (parsing_stdin) |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1294 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
|
1295 parsing_stdin = TRUE; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1296 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1297 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1298 /* Common options. */ |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1299 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
|
1300 case 'C': cplusplus = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1301 case 'f': /* for compatibility with old makefiles */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1302 case 'o': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1303 if (tagfile) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1304 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1305 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
|
1306 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1307 /* NOTREACHED */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1308 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1309 tagfile = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1310 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1311 case 'I': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1312 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
|
1313 ignoreindent = TRUE; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1314 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1315 case 'l': |
240 | 1316 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1317 language *lang = get_language_from_langname (optarg); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1318 if (lang != NULL) |
621 | 1319 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1320 argbuffer[current_arg].lang = lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1321 argbuffer[current_arg].arg_type = at_language; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1322 ++current_arg; |
240 | 1323 } |
1324 } | |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1325 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1326 case 'c': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1327 /* 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
|
1328 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
|
1329 /* FALLTHRU */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1330 case 'r': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1331 argbuffer[current_arg].arg_type = at_regexp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1332 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1333 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1334 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1335 case 'R': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1336 argbuffer[current_arg].arg_type = at_regexp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1337 argbuffer[current_arg].what = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1338 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1339 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1340 case 'V': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1341 print_version (); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1342 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1343 case 'h': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1344 case 'H': |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1345 help_asked = TRUE; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1346 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1347 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1348 /* Etags options */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1349 case 'D': constantypedefs = FALSE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1350 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
|
1351 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1352 /* Ctags options. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1353 case 'B': searchar = '?'; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1354 case 'd': constantypedefs = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1355 case 't': typedefs = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1356 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
|
1357 case 'u': update = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1358 case 'v': vgrind_style = TRUE; /*FALLTHRU*/ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1359 case 'x': cxref_style = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1360 case 'w': no_warnings = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1361 default: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1362 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1363 /* NOTREACHED */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1364 } |
240 | 1365 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
1366 /* 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
|
1367 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
|
1368 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1369 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
|
1370 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
|
1371 ++current_arg; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1372 ++file_count; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1373 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1374 |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1375 argbuffer[current_arg].arg_type = at_end; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1376 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1377 if (help_asked) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1378 print_help (argbuffer); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1379 /* NOTREACHED */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1380 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1381 if (nincluded_files == 0 && file_count == 0) |
240 | 1382 { |
26507
aabdfbf65c68
1999-11-19 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26340
diff
changeset
|
1383 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
|
1384 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1385 /* NOTREACHED */ |
240 | 1386 } |
1387 | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1388 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
|
1389 tagfile = CTAGS ? "tags" : "TAGS"; |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
1390 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
|
1391 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
|
1392 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1393 char *oldcwd = cwd; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1394 cwd = concat (oldcwd, "/", ""); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1395 free (oldcwd); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1396 } |
57091
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
1397 /* 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
|
1398 if (streq (tagfile, "-") |
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
1399 || 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
|
1400 tagfiledir = cwd; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
1401 else |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
1402 tagfiledir = absolute_dirname (tagfile, cwd); |
240 | 1403 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1404 init (); /* set up boolean "functions" */ |
240 | 1405 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1406 linebuffer_init (&lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1407 linebuffer_init (&filename_lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1408 linebuffer_init (&filebuf); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1409 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
|
1410 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1411 if (!CTAGS) |
240 | 1412 { |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1413 if (streq (tagfile, "-")) |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1414 { |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1415 tagf = stdout; |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1416 #ifdef DOS_NT |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1417 /* 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
|
1418 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
|
1419 if (!isatty (fileno (stdout))) |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1420 setmode (fileno (stdout), O_BINARY); |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1421 #endif /* DOS_NT */ |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1422 } |
240 | 1423 else |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1424 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
|
1425 if (tagf == NULL) |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
1426 pfatal (tagfile); |
240 | 1427 } |
1428 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1429 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1430 * 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
|
1431 */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1432 for (i = 0; i < current_arg; i++) |
240 | 1433 { |
44604
4702b23921b4
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 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
|
1435 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
|
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 switch (argbuffer[i].arg_type) |
240 | 1438 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1439 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
|
1440 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
|
1441 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1442 case at_regexp: |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1443 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
|
1444 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1445 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
|
1446 #ifdef VMS |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1447 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
|
1448 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1449 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
|
1450 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1451 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
|
1452 argc--, argv++; |
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 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1455 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1456 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
|
1457 } |
240 | 1458 #else |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1459 this_file = argbuffer[i].what; |
240 | 1460 #endif |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1461 /* 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
|
1462 (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
|
1463 if (streq (this_file, "-")) |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1464 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1465 if (parsing_stdin) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1466 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
|
1467 (char *)NULL); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1468 while (readline_internal (&filename_lb, stdin) > 0) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1469 process_file_name (filename_lb.buffer, lang); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1470 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1471 else |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1472 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
|
1473 #ifdef VMS |
240 | 1474 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1475 #endif |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1476 break; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1477 case at_stdin: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1478 this_file = argbuffer[i].what; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1479 process_file (stdin, this_file, lang); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1480 break; |
240 | 1481 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
1482 } |
10761
7aa80669e697
* etags.c (C_entries): Bug corrected in xrealloc of token_str.
Francesco Potortì <pot@gnu.org>
parents:
10754
diff
changeset
|
1483 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1484 free_regexps (); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1485 free (lb.buffer); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1486 free (filebuf.buffer); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1487 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
|
1488 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1489 if (!CTAGS || cxref_style) |
240 | 1490 { |
66985
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1491 /* 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
|
1492 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
|
1493 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
|
1494 nodehead = NULL; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1495 if (!CTAGS) |
47081
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 fdesc *fdp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1498 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1499 /* Output file entries that have no tags. */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1500 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
|
1501 if (!fdp->written) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1502 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
|
1503 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1504 while (nincluded_files-- > 0) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1505 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
|
1506 |
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1507 if (fclose (tagf) == EOF) |
bf8620d8ff03
Cxref mode writes to stdout: do not close tagf,
Francesco Potortì <pot@gnu.org>
parents:
66219
diff
changeset
|
1508 pfatal (tagfile); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1509 } |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1510 |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1511 exit (EXIT_SUCCESS); |
240 | 1512 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1513 |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
1514 /* From here on, we are in (CTAGS && !cxref_style) */ |
621 | 1515 if (update) |
240 | 1516 { |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1517 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
|
1518 for (i = 0; i < current_arg; ++i) |
240 | 1519 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1520 switch (argbuffer[i].arg_type) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1521 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1522 case at_filename: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1523 case at_stdin: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1524 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1525 default: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1526 continue; /* the for loop */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1527 } |
240 | 1528 sprintf (cmd, |
1529 "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
|
1530 tagfile, argbuffer[i].what, tagfile); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1531 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
|
1532 fatal ("failed to execute shell command", (char *)NULL); |
240 | 1533 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1534 append_to_tagfile = TRUE; |
240 | 1535 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1536 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1537 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
|
1538 if (tagf == NULL) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1539 pfatal (tagfile); |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1540 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
|
1541 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
|
1542 nodehead = NULL; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1543 if (fclose (tagf) == EOF) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1544 pfatal (tagfile); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1545 |
65714
fbae8bd411de
(main): In append mode, sort the tags file after writing it.
Francesco Potortì <pot@gnu.org>
parents:
65708
diff
changeset
|
1546 if (CTAGS) |
fbae8bd411de
(main): In append mode, sort the tags file after writing it.
Francesco Potortì <pot@gnu.org>
parents:
65708
diff
changeset
|
1547 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
|
1548 { |
75037
baea8fa9d2eb
(main): Pass the -u option to sort in ctags mode.
Francesco Potortì <pot@gnu.org>
parents:
75034
diff
changeset
|
1549 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
|
1550 /* 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
|
1551 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
|
1552 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
|
1553 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
|
1554 exit (system (cmd)); |
fbae8bd411de
(main): In append mode, sort the tags file after writing it.
Francesco Potortì <pot@gnu.org>
parents:
65708
diff
changeset
|
1555 } |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1556 return EXIT_SUCCESS; |
240 | 1557 } |
1558 | |
1559 | |
1560 /* | |
26262
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 * 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
|
1562 * 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
|
1563 * 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
|
1564 * and EXTPTR is not significant. |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1565 * 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
|
1566 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1567 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
|
1568 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
|
1569 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
|
1570 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
|
1571 { |
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 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
|
1573 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
|
1574 |
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 /* 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
|
1576 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
|
1577 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
|
1578 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
|
1579 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
|
1580 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
|
1581 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
|
1582 *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
|
1583 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
|
1584 /* 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
|
1585 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
|
1586 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
|
1587 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
|
1588 { |
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 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
|
1590 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
|
1591 return compr; |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1592 if (!MSDOS) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1593 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
|
1594 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
|
1595 *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
|
1596 } 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
|
1597 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
|
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 |
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 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1603 * 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
|
1604 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1605 static language * |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1606 get_language_from_langname (name) |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
1607 const char *name; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1608 { |
26262
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 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
|
1610 |
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 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
|
1612 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
|
1613 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
|
1614 { |
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 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
|
1616 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
|
1617 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
|
1618 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
|
1619 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1620 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1621 return NULL; |
13404
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 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1624 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1625 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1626 * 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
|
1627 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1628 static language * |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1629 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
|
1630 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
|
1631 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1632 language *lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1633 char **iname; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1634 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1635 if (interpreter == NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1636 return NULL; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1637 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
|
1638 if (lang->interpreters != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1639 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
|
1640 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
|
1641 return lang; |
13404
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 return NULL; |
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 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1647 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1648 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1649 * 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
|
1650 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1651 static language * |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1652 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
|
1653 char *file; |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1654 bool case_sensitive; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1655 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1656 language *lang; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1657 char **name, **ext, *suffix; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1658 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1659 /* Try whole file name first. */ |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1660 for (lang = lang_names; lang->name != NULL; lang++) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1661 if (lang->filenames != NULL) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1662 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
|
1663 if ((case_sensitive) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1664 ? streq (*name, file) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1665 : strcaseeq (*name, file)) |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1666 return lang; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1667 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1668 /* 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
|
1669 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
|
1670 if (suffix == NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1671 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
|
1672 suffix += 1; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1673 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
|
1674 if (lang->suffixes != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1675 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
|
1676 if ((case_sensitive) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1677 ? streq (*ext, suffix) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1678 : 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
|
1679 return lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1680 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
|
1681 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1682 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1683 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1684 /* |
240 | 1685 * This routine is called on each file argument. |
1686 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1687 static void |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1688 process_file_name (file, lang) |
240 | 1689 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
|
1690 language *lang; |
240 | 1691 { |
1692 struct stat stat_buf; | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1693 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
|
1694 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
|
1695 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
|
1696 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
|
1697 char *ext, *real_name; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1698 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
|
1699 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1700 canonicalize_filename (file); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1701 if (streq (file, tagfile) && !streq (tagfile, "-")) |
240 | 1702 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1703 error ("skipping inclusion of %s in self.", file); |
240 | 1704 return; |
1705 } | |
26262
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 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
|
1707 { |
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 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
|
1709 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
|
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 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
|
1712 { |
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 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
|
1714 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
|
1715 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1716 |
44604
4702b23921b4
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 /* 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
|
1718 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
|
1719 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
|
1720 { |
44604
4702b23921b4
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 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
|
1722 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
|
1723 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
|
1724 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1725 |
26262
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 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
|
1727 { |
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 /* 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
|
1729 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
|
1730 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
|
1731 { |
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 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
|
1733 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
|
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 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
|
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 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
|
1738 { |
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 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
|
1740 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
|
1741 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1742 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
|
1743 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1744 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
|
1745 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
|
1746 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
|
1747 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1748 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
|
1749 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
|
1750 { |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1751 real_name = compressed_name; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1752 break; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1753 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1754 } |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1755 if (real_name != NULL) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1756 break; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1757 } /* 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
|
1758 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
|
1759 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
|
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 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
|
1762 { |
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 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
|
1764 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
|
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 } |
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 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
|
1769 { |
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 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
|
1771 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
|
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 } /* 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
|
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 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
|
1776 { |
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 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
|
1778 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
|
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 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
|
1781 { |
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 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
|
1783 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
|
1784 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
|
1785 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1786 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
|
1787 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
|
1788 if (inf == NULL) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1789 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1790 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
|
1791 goto cleanup; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1792 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1793 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1794 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
|
1795 |
26262
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 if (real_name == compressed_name) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1797 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
|
1798 else |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1799 retval = fclose (inf); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1800 if (retval < 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1801 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
|
1802 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1803 cleanup: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1804 if (compressed_name) free (compressed_name); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1805 if (uncompressed_name) free (uncompressed_name); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1806 last_node = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1807 curfdp = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1808 return; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1809 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1810 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1811 static void |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1812 process_file (fh, fn, lang) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1813 FILE *fh; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1814 char *fn; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1815 language *lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1816 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1817 static const fdesc emptyfdesc; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1818 fdesc *fdp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1819 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1820 /* Create a new input file description entry. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1821 fdp = xnew (1, fdesc); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1822 *fdp = emptyfdesc; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1823 fdp->next = fdhead; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1824 fdp->infname = savestr (fn); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1825 fdp->lang = lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1826 fdp->infabsname = absolute_filename (fn, cwd); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1827 fdp->infabsdir = absolute_dirname (fn, cwd); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1828 if (filename_is_absolute (fn)) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1829 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1830 /* An absolute file name. Canonicalize it. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1831 fdp->taggedfname = absolute_filename (fn, NULL); |
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 else |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1834 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1835 /* 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
|
1836 to the directory of the tags file. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1837 fdp->taggedfname = relative_filename (fn, tagfiledir); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1838 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1839 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
|
1840 fdp->prop = NULL; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1841 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
|
1842 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1843 fdhead = fdp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1844 curfdp = fdhead; /* the current file description */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1845 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1846 find_entries (fh); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1847 |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1848 /* 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
|
1849 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
|
1850 curfdp. */ |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1851 if (!CTAGS |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1852 && 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
|
1853 && !curfdp->lang->metasource) |
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1854 { |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1855 node *np, *prev; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1856 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1857 /* 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
|
1858 for the structure of the node tree. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1859 prev = NULL; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1860 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
|
1861 if (np->fdp == curfdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1862 break; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1863 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1864 /* 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
|
1865 if (np != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1866 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1867 /* 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
|
1868 instructions depend on this being true. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1869 assert (np->left == NULL); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1870 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1871 assert (fdhead == curfdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1872 assert (last_node->fdp == curfdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1873 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
|
1874 free_tree (np); /* remove the written nodes */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1875 if (prev == NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1876 nodehead = NULL; /* no nodes left */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1877 else |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1878 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
|
1879 } |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1880 } |
240 | 1881 } |
1882 | |
1883 /* | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3569
diff
changeset
|
1884 * 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
|
1885 * by setting boolean flags dependent upon the corresponding character. |
240 | 1886 * Every char which is NOT in that string is not a white char. Therefore, |
1887 * all of the array "_wht" is set to FALSE, and then the elements | |
1888 * subscripted by the chars in "white" are set to TRUE. Thus "_wht" | |
1889 * of a char is TRUE if it is the string "white", else FALSE. | |
1890 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1891 static void |
240 | 1892 init () |
1893 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
1894 register char *sp; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
1895 register int i; |
240 | 1896 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1897 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
|
1898 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
|
1899 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
|
1900 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
|
1901 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
|
1902 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
|
1903 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
|
1904 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
|
1905 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
|
1906 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
|
1907 endtoken('\0') = endtoken('\n'); |
240 | 1908 } |
1909 | |
1910 /* | |
1911 * This routine opens the specified file and calls the function | |
1912 * which finds the function and type definitions. | |
1913 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1914 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
|
1915 find_entries (inf) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1916 FILE *inf; |
240 | 1917 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1918 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
|
1919 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
|
1920 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
|
1921 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1922 /* 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
|
1923 if (lang != NULL && lang->function != NULL) |
240 | 1924 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1925 parser = lang->function; |
240 | 1926 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1927 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1928 /* 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
|
1929 if (parser == NULL) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1930 { |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1931 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
|
1932 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
|
1933 { |
4702b23921b4
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 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
|
1935 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
|
1936 } |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1937 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1938 |
44604
4702b23921b4
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 /* 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
|
1940 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
|
1941 && 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
|
1942 && lb.len >= 2 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1943 && lb.buffer[0] == '#' |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1944 && lb.buffer[1] == '!') |
240 | 1945 { |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1946 char *lp; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1947 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1948 /* 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
|
1949 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
|
1950 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
|
1951 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
|
1952 if (lp != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1953 lp += 1; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1954 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
|
1955 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
|
1956 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
|
1957 *cp = '\0'; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1958 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1959 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
|
1960 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1961 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
|
1962 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
|
1963 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1964 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
|
1965 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
|
1966 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1967 } |
240 | 1968 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1969 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1970 /* 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
|
1971 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
|
1972 which is unlikely. */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1973 rewind (inf); |
44607
8f3420af28a8
* etags.c (get_language_from_filename): Add one argument.
Francesco Potortì <pot@gnu.org>
parents:
44605
diff
changeset
|
1974 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1975 /* 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
|
1976 if (parser == NULL) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1977 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1978 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
|
1979 if (lang != NULL && lang->function != NULL) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1980 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1981 curfdp->lang = lang; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1982 parser = lang->function; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1983 } |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1984 } |
44607
8f3420af28a8
* etags.c (get_language_from_filename): Add one argument.
Francesco Potortì <pot@gnu.org>
parents:
44605
diff
changeset
|
1985 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1986 /* Else try Fortran or C. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1987 if (parser == NULL) |
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 node *old_last_node = last_node; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1990 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1991 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
|
1992 find_entries (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1993 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1994 if (old_last_node == last_node) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1995 /* No Fortran entries found. Try C. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1996 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1997 /* 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
|
1998 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
|
1999 rewind (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2000 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
|
2001 find_entries (inf); |
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 return; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2004 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2005 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2006 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
|
2007 && curfdp->lang != NULL && curfdp->lang->metasource) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
2008 /* 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
|
2009 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
|
2010 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
|
2011 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
|
2012 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
|
2013 { |
4702b23921b4
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 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
|
2015 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
|
2016 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
|
2017 && 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
|
2018 /* 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
|
2019 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
|
2020 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2021 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
|
2022 |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2023 /* 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
|
2024 that were obtained from badfdp->infname. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2025 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
|
2026 |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
2027 *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
|
2028 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
|
2029 } |
4702b23921b4
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 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
|
2031 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
|
2032 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2033 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2034 assert (parser != NULL); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2035 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2036 /* Generic initialisations before reading from file. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2037 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
|
2038 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2039 /* 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
|
2040 lineno = 0; /* reset global line number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2041 charno = 0; /* reset global char number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2042 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
|
2043 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2044 parser (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2045 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2046 regex_tag_multiline (); |
240 | 2047 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2048 |
240 | 2049 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2050 /* |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2051 * 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
|
2052 * then call `pfnote'. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2053 * 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
|
2054 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2055 * TAGS format specification |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2056 * 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
|
2057 * 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
|
2058 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2059 * 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
|
2060 * 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
|
2061 * 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
|
2062 * 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
|
2063 * one character, substring; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2064 * 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
|
2065 * be a character in NONAM; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2066 * 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
|
2067 * also be a character in NONAM. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2068 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2069 * 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
|
2070 * characters stored in the string `nonam'. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2071 * 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
|
2072 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2073 static void |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2074 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
|
2075 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
|
2076 int namelen; /* tag length */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2077 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
|
2078 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
|
2079 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
|
2080 int lno; /* line number */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2081 long cno; /* character number */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2082 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2083 bool named = (name != NULL && namelen > 0); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2084 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2085 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
|
2086 /* 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
|
2087 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
|
2088 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2089 int i; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2090 register char *cp = name; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2091 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2092 for (i = 0; i < namelen; i++) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2093 if (notinname (*cp++)) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2094 break; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2095 if (i == namelen) /* rule #1 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2096 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2097 cp = linestart + linelen - namelen; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2098 if (notinname (linestart[linelen-1])) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2099 cp -= 1; /* rule #4 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2100 if (cp >= linestart /* rule #2 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2101 && (cp == linestart |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2102 || notinname (cp[-1])) /* rule #3 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2103 && strneq (name, cp, namelen)) /* rule #2 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2104 named = FALSE; /* use implicit tag name */ |
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 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2107 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2108 if (named) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2109 name = savenstr (name, namelen); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2110 else |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2111 name = NULL; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2112 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
|
2113 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2114 |
240 | 2115 /* Record a tag. */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
2116 static void |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
2117 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
|
2118 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
|
2119 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
|
2120 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
|
2121 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
|
2122 int lno; /* line number */ |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2123 long cno; /* character number */ |
240 | 2124 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2125 register node *np; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2126 |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
2127 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
|
2128 if (CTAGS && name == NULL) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2129 return; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2130 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2131 np = xnew (1, node); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2132 |
240 | 2133 /* 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
|
2134 if (CTAGS && !cxref_style && streq (name, "main")) |
240 | 2135 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2136 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
|
2137 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
|
2138 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
|
2139 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
|
2140 fp[0] = '\0'; |
240 | 2141 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2142 else |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
2143 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
|
2144 np->valid = TRUE; |
10623
8a73e71a55e3
* etags.c (pfnote): Initialise been_warned in the node.
Francesco Potortì <pot@gnu.org>
parents:
10449
diff
changeset
|
2145 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
|
2146 np->fdp = curfdp; |
240 | 2147 np->is_func = is_func; |
2148 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
|
2149 if (np->fdp->usecharno) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2150 /* 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
|
2151 ctags compatibility? old versions compatibility? I don't know. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2152 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
|
2153 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
|
2154 uncomment the +1 below. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2155 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
|
2156 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
|
2157 np->cno = invalidcharno; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2158 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
|
2159 if (CTAGS && !cxref_style) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2160 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2161 if (strlen (linestart) < 50) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2162 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
|
2163 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2164 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
|
2165 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2166 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2167 np->regex = savenstr (linestart, linelen); |
240 | 2168 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2169 add_node (np, &nodehead); |
240 | 2170 } |
2171 | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2172 /* |
240 | 2173 * free_tree () |
2174 * recurse on left children, iterate on right children. | |
2175 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2176 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
|
2177 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
|
2178 register node *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 while (np) |
240 | 2181 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2182 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
|
2183 free_tree (np->left); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2184 if (np->name != NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2185 free (np->name); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2186 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
|
2187 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
|
2188 np = node_right; |
240 | 2189 } |
2190 } | |
2191 | |
2192 /* | |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2193 * free_fdesc () |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2194 * delete a file description |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2195 */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2196 static void |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2197 free_fdesc (fdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2198 register fdesc *fdp; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2199 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2200 if (fdp->infname != NULL) free (fdp->infname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2201 if (fdp->infabsname != NULL) free (fdp->infabsname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2202 if (fdp->infabsdir != NULL) free (fdp->infabsdir); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2203 if (fdp->taggedfname != NULL) free (fdp->taggedfname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2204 if (fdp->prop != NULL) free (fdp->prop); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2205 free (fdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2206 } |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2207 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2208 /* |
240 | 2209 * add_node () |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2210 * 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
|
2211 * 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
|
2212 * balancing. |
240 | 2213 * |
2214 * add_node is the only function allowed to add nodes, so it can | |
2215 * maintain state. | |
2216 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2217 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
|
2218 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
|
2219 node *np, **cur_node_p; |
240 | 2220 { |
2221 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
|
2222 register node *cur_node = *cur_node_p; |
240 | 2223 |
2224 if (cur_node == NULL) | |
2225 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2226 *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
|
2227 last_node = np; |
240 | 2228 return; |
2229 } | |
2230 | |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
2231 if (!CTAGS) |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2232 /* Etags Mode */ |
240 | 2233 { |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2234 /* 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
|
2235 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
|
2236 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
|
2237 used sublist. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2238 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
|
2239 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2240 /* 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
|
2241 assert (last_node->right == NULL); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2242 last_node->right = np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2243 last_node = np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2244 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2245 else if (cur_node->fdp == np->fdp) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2246 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2247 /* 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
|
2248 good for us. Let's scan this sublist. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2249 add_node (np, &cur_node->right); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2250 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2251 else |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2252 /* 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
|
2253 next one. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2254 add_node (np, &cur_node->left); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2255 } /* if ETAGS mode */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2256 |
240 | 2257 else |
2258 { | |
2259 /* 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
|
2260 dif = strcmp (np->name, cur_node->name); |
240 | 2261 |
2262 /* | |
2263 * If this tag name matches an existing one, then | |
2264 * do not add the node, but maybe print a warning. | |
2265 */ | |
75034
e7e8a2a0d0a9
(longopts): New undocumented option --no-duplicates.
Francesco Potortì <pot@gnu.org>
parents:
74951
diff
changeset
|
2266 if (no_duplicates && !dif) |
240 | 2267 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2268 if (np->fdp == cur_node->fdp) |
240 | 2269 { |
2270 if (!no_warnings) | |
2271 { | |
2272 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
|
2273 np->fdp->infname, lineno, np->name); |
240 | 2274 fprintf (stderr, "Second entry ignored\n"); |
2275 } | |
2276 } | |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2277 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
|
2278 { |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2279 fprintf |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2280 (stderr, |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2281 "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
|
2282 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
|
2283 cur_node->been_warned = TRUE; |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2284 } |
240 | 2285 return; |
2286 } | |
2287 | |
2288 /* 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
|
2289 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
|
2290 } /* if CTAGS mode */ |
240 | 2291 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2292 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2293 /* |
4702b23921b4
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 * 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
|
2295 * 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
|
2296 * 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
|
2297 */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2298 static void |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2299 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
|
2300 fdesc *badfdp; |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2301 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
|
2302 { |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2303 node *np = *npp; |
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 (np == NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2306 return; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2307 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2308 if (CTAGS) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2309 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2310 if (np->left != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2311 invalidate_nodes (badfdp, &np->left); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2312 if (np->fdp == badfdp) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2313 np->valid = FALSE; |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2314 if (np->right != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2315 invalidate_nodes (badfdp, &np->right); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2316 } |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2317 else |
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 assert (np->fdp != NULL); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2320 if (np->fdp == badfdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2321 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2322 *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
|
2323 np->left = NULL; /* isolate it */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2324 free_tree (np); /* free it */ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2325 invalidate_nodes (badfdp, npp); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2326 } |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2327 else |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2328 invalidate_nodes (badfdp, &np->left); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2329 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2330 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2331 |
240 | 2332 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2333 static int total_size_of_entries __P((node *)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2334 static int number_len __P((long)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2335 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2336 /* 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
|
2337 static int |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2338 number_len (num) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2339 long num; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2340 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2341 int len = 1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2342 while ((num /= 10) > 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2343 len += 1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2344 return len; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2345 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2346 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2347 /* |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2348 * 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
|
2349 * 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
|
2350 * 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
|
2351 * but is still supplied for backward compatibility. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2352 */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2353 static int |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2354 total_size_of_entries (np) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2355 register node *np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2356 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2357 register int total = 0; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2358 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2359 for (; np != NULL; np = np->right) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2360 if (np->valid) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2361 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2362 total += strlen (np->regex) + 1; /* pat\177 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2363 if (np->name != NULL) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2364 total += strlen (np->name) + 1; /* name\001 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2365 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
|
2366 if (np->cno != invalidcharno) /* cno */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2367 total += number_len (np->cno); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2368 total += 1; /* newline */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2369 } |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2370 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2371 return total; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2372 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2373 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2374 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
|
2375 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
|
2376 register node *np; |
240 | 2377 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2378 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
|
2379 static fdesc *fdp = NULL; |
240 | 2380 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2381 if (np == NULL) |
240 | 2382 return; |
2383 | |
2384 /* Output subentries that precede this one */ | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2385 if (CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2386 put_entries (np->left); |
240 | 2387 |
2388 /* 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
|
2389 if (np->valid) |
240 | 2390 { |
44604
4702b23921b4
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 (!CTAGS) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2392 { |
44604
4702b23921b4
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 /* 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
|
2394 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
|
2395 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2396 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
|
2397 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
|
2398 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
|
2399 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
|
2400 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2401 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
|
2402 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
|
2403 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
|
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 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
|
2406 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
|
2407 } |
4702b23921b4
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 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
|
2409 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
|
2410 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
|
2411 fputs ("\n", tagf); |
240 | 2412 } |
2413 else | |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2414 { |
44604
4702b23921b4
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 /* 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
|
2416 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
|
2417 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
|
2418 |
4702b23921b4
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 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
|
2420 { |
4702b23921b4
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 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
|
2422 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
|
2423 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
|
2424 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
|
2425 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
|
2426 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
|
2427 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2428 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
|
2429 { |
4702b23921b4
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 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
|
2431 |
4702b23921b4
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 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
|
2433 { /* 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
|
2434 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
|
2435 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
|
2436 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2437 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
|
2438 { |
4702b23921b4
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 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
|
2440 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
|
2441 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
|
2442 } |
4702b23921b4
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 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
|
2444 } |
4702b23921b4
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 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
|
2446 { /* 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
|
2447 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
|
2448 } |
4702b23921b4
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 putc ('\n', tagf); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2450 } |
240 | 2451 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2452 } /* if this node contains a valid tag */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2453 |
240 | 2454 /* 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
|
2455 put_entries (np->right); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2456 if (!CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2457 put_entries (np->left); |
240 | 2458 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2459 |
240 | 2460 |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2461 /* C extensions. */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2462 #define C_EXT 0x00fff /* C extensions */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2463 #define C_PLAIN 0x00000 /* C */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2464 #define C_PLPL 0x00001 /* C++ */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2465 #define C_STAR 0x00003 /* C* */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2466 #define C_JAVA 0x00005 /* JAVA */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2467 #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
|
2468 #define YACC 0x10000 /* yacc file */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2469 |
240 | 2470 /* |
2471 * The C symbol tables. | |
2472 */ | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2473 enum sym_type |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2474 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2475 st_none, |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2476 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
|
2477 st_C_gnumacro, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2478 st_C_ignore, st_C_attribute, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2479 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
|
2480 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
|
2481 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
|
2482 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
|
2483 }; |
240 | 2484 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2485 static unsigned int hash __P((const char *, unsigned int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2486 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
|
2487 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
|
2488 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2489 /* 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
|
2490 gperf -m 5 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2491 %[ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2492 %compare-strncmp |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2493 %enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2494 %struct-type |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2495 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
|
2496 %% |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2497 if, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2498 for, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2499 while, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2500 switch, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2501 return, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2502 __attribute__, 0, st_C_attribute |
91499
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2503 GTY, 0, st_C_attribute |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2504 @interface, 0, st_C_objprot |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2505 @protocol, 0, st_C_objprot |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2506 @implementation,0, st_C_objimpl |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2507 @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
|
2508 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
|
2509 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
|
2510 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
|
2511 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
|
2512 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
|
2513 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
|
2514 class, 0, st_C_class |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2515 namespace, C_PLPL, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2516 domain, C_STAR, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2517 union, 0, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2518 struct, 0, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2519 extern, 0, st_C_extern |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2520 enum, 0, st_C_enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2521 typedef, 0, st_C_typedef |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2522 define, 0, st_C_define |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2523 undef, 0, st_C_define |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2524 operator, C_PLPL, st_C_operator |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2525 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
|
2526 # 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
|
2527 DEFUN, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2528 SYSCALL, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2529 ENTRY, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2530 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
|
2531 # 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
|
2532 # 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
|
2533 #EXFUN, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2534 #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
|
2535 %] |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2536 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
|
2537 - remove the #if characterset check |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2538 - 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
|
2539 /*%<*/ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2540 /* 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
|
2541 /* Command-line: gperf -m 5 */ |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2542 /* Computed positions: -k'2-3' */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2543 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2544 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
|
2545 /* 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
|
2546 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2547 #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
|
2548 __inline |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2549 #else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2550 #ifdef __cplusplus |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2551 inline |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2552 #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
|
2553 #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
|
2554 static unsigned int |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2555 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
|
2556 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
|
2557 register unsigned int len; |
240 | 2558 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2559 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
|
2560 { |
71783
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, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2564 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
|
2565 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
|
2566 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
|
2567 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
|
2568 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
|
2569 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
|
2570 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
|
2571 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
|
2572 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
|
2573 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
|
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, 35, 35, 35, 35, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2584 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
|
2585 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
|
2586 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
|
2587 }; |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2588 register int hval = len; |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2589 |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2590 switch (hval) |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2591 { |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2592 default: |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2593 hval += asso_values[(unsigned char)str[2]]; |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2594 /*FALLTHROUGH*/ |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2595 case 2: |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2596 hval += asso_values[(unsigned char)str[1]]; |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2597 break; |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2598 } |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2599 return hval; |
240 | 2600 } |
2601 | |
35766
3584fc1b9b79
(in_word_set): Use `static' in definition (for pcc).
Dave Love <fx@gnu.org>
parents:
35758
diff
changeset
|
2602 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
|
2603 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
|
2604 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
|
2605 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
|
2606 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2607 enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2608 { |
91499
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2609 TOTAL_KEYWORDS = 33, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2610 MIN_WORD_LENGTH = 2, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2611 MAX_WORD_LENGTH = 15, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2612 MIN_HASH_VALUE = 2, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2613 MAX_HASH_VALUE = 34 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2614 }; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2615 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2616 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
|
2617 { |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2618 {""}, {""}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2619 {"if", 0, st_C_ignore}, |
91499
2e2cf64c99ee
Added "GTY" as synonym for __attribute__. Updated
Chong Yidong <cyd@stupidchicken.com>
parents:
87549
diff
changeset
|
2620 {"GTY", 0, st_C_attribute}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2621 {"@end", 0, st_C_objend}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2622 {"union", 0, st_C_struct}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2623 {"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
|
2624 {"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
|
2625 {"template", 0, st_C_template}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2626 {"operator", C_PLPL, st_C_operator}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2627 {"@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
|
2628 {"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
|
2629 {"friend", C_PLPL, st_C_ignore}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2630 {"typedef", 0, st_C_typedef}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2631 {"return", 0, st_C_ignore}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2632 {"@implementation",0, st_C_objimpl}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2633 {"@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
|
2634 {"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
|
2635 {"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
|
2636 {"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
|
2637 {"struct", 0, st_C_struct}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2638 {"domain", C_STAR, st_C_struct}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2639 {"switch", 0, st_C_ignore}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2640 {"enum", 0, st_C_enum}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2641 {"for", 0, st_C_ignore}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2642 {"namespace", C_PLPL, st_C_struct}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2643 {"class", 0, st_C_class}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2644 {"while", 0, st_C_ignore}, |
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2645 {"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
|
2646 {"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
|
2647 {"__attribute__", 0, st_C_attribute}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2648 {"SYSCALL", 0, st_C_gnumacro}, |
71783
b442d7e84235
(absolute_filename): Free unused space (cosmetic change).
Francesco Potortì <pot@gnu.org>
parents:
70342
diff
changeset
|
2649 {"ENTRY", 0, st_C_gnumacro}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2650 {"PSEUDO", 0, st_C_gnumacro}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2651 {"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
|
2652 }; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2653 |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2654 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
|
2655 { |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2656 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
|
2657 |
26262
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 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
|
2659 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2660 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
|
2661 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2662 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
|
2663 return &wordlist[key]; |
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 return 0; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2667 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2668 /*%>*/ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2669 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2670 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
|
2671 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
|
2672 char *str; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2673 int len; |
240 | 2674 int c_ext; |
2675 { | |
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
|
2676 register struct C_stab_entry *se = in_word_set (str, len); |
240 | 2677 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2678 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
|
2679 return st_none; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2680 return se->type; |
240 | 2681 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2682 |
240 | 2683 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2684 /* |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2685 * Ignoring __attribute__ ((list)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2686 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2687 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
|
2688 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2689 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2690 * 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
|
2691 * 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
|
2692 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2693 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2694 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2695 fvnone, /* nothing seen */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2696 fdefunkey, /* Emacs DEFUN keyword seen */ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2697 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
|
2698 foperator, /* func: operator keyword seen (cplpl) */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2699 fvnameseen, /* function or variable name seen */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2700 fstartlist, /* func: just after open parenthesis */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2701 finlist, /* func: in parameter list */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2702 flistseen, /* func: after parameter list */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2703 fignore, /* func: before open brace */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2704 vignore /* var-like: ignore until ';' */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2705 } fvdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2706 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2707 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
|
2708 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2709 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2710 * 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
|
2711 * typdef is its state variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2712 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2713 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2714 { |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
2715 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
|
2716 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
|
2717 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
|
2718 tinbody, /* inside typedef body */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2719 tend, /* just before typedef tag */ |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2720 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
|
2721 } typdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2722 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2723 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2724 * 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
|
2725 * 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
|
2726 * variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2727 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2728 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2729 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2730 snone, /* nothing seen yet, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2731 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
|
2732 skeyseen, /* struct-like keyword seen */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2733 stagseen, /* struct-like tag seen */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2734 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
|
2735 } structdef; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2736 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2737 /* |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2738 * 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
|
2739 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2740 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
|
2741 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2742 /* |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2743 * 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
|
2744 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2745 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2746 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2747 dnone, /* nothing seen */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2748 dsharpseen, /* '#' seen as first char on line */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2749 ddefineseen, /* '#' and 'define' seen */ |
5044
d3bd7baee39f
(FUNCST, TYPEDST, STRUCTST, DEFINEST): Delete excess commas.
Richard M. Stallman <rms@gnu.org>
parents:
4937
diff
changeset
|
2750 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
|
2751 } definedef; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2752 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2753 /* |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2754 * 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
|
2755 * 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
|
2756 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2757 static enum |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2758 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2759 onone, /* nothing seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2760 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
|
2761 oimplementation, /* @implementations seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2762 otagseen, /* class name seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2763 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
|
2764 ocatseen, /* category name seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2765 oinbody, /* in @implementation body */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2766 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
|
2767 omethodtag, /* after method name */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2768 omethodcolon, /* after method colon */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2769 omethodparm, /* after method parameter */ |
14230
6b836f84bccf
(enum sym_type, anonymous enum): Delete final comma.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
2770 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
|
2771 } objdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2772 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2773 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2774 /* |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2775 * 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
|
2776 * 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
|
2777 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2778 static struct tok |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2779 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2780 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
|
2781 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
|
2782 int length; /* token length */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2783 /* |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2784 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
|
2785 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
|
2786 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
|
2787 tag. |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2788 */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2789 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
|
2790 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
|
2791 reset prematurely */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2792 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
|
2793 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
|
2794 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
|
2795 } 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
|
2796 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2797 /* |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2798 * 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
|
2799 * 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
|
2800 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2801 static void pushclass_above __P((int, char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2802 static void popclass_above __P((int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2803 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
|
2804 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2805 static struct { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2806 char **cname; /* nested class names */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2807 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
|
2808 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
|
2809 int size; /* length of the array */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2810 } cstack; /* stack for nested declaration tags */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2811 /* 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
|
2812 #define nestlev (cstack.nl) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
2813 /* 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
|
2814 #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
|
2815 && 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
|
2816 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2817 static void |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2818 pushclass_above (bracelev, str, len) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2819 int bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2820 char *str; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2821 int len; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2822 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2823 int nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2824 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2825 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2826 nl = cstack.nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2827 if (nl >= cstack.size) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2828 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2829 int size = cstack.size *= 2; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2830 xrnew (cstack.cname, size, char *); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2831 xrnew (cstack.bracelev, size, int); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2832 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2833 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
|
2834 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
|
2835 cstack.bracelev[nl] = bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2836 cstack.nl = nl + 1; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2837 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2838 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2839 static void |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2840 popclass_above (bracelev) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2841 int bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2842 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2843 int nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2844 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2845 for (nl = cstack.nl - 1; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2846 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
|
2847 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 if (cstack.cname[nl] != NULL) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2850 free (cstack.cname[nl]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2851 cstack.nl = nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2852 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2853 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2854 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2855 static void |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2856 write_classname (cn, qualifier) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2857 linebuffer *cn; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2858 char *qualifier; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2859 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2860 int i, len; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2861 int qlen = strlen (qualifier); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2862 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2863 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
|
2864 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2865 len = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2866 cn->len = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2867 cn->buffer[0] = '\0'; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2868 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2869 else |
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 len = strlen (cstack.cname[0]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2872 linebuffer_setlen (cn, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2873 strcpy (cn->buffer, cstack.cname[0]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2874 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2875 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
|
2876 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2877 char *s; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2878 int slen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2879 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2880 s = cstack.cname[i]; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2881 if (s == NULL) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2882 continue; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2883 slen = strlen (s); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2884 len += slen + qlen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2885 linebuffer_setlen (cn, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2886 strncat (cn->buffer, qualifier, qlen); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2887 strncat (cn->buffer, s, slen); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2888 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2889 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2890 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2891 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2892 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
|
2893 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
|
2894 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2895 /* |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2896 * consider_token () |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2897 * 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
|
2898 * 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
|
2899 * 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
|
2900 * |
78472 | 2901 * *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
|
2902 * 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
|
2903 * |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2904 * Globals |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2905 * fvdef IN OUT |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2906 * structdef IN OUT |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2907 * definedef IN OUT |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2908 * typdef IN OUT |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2909 * objdef IN OUT |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2910 */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2911 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2912 static bool |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2913 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
|
2914 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
|
2915 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
|
2916 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
|
2917 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
|
2918 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
|
2919 int parlev; /* IN: parenthesis level */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2920 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
|
2921 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2922 /* 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
|
2923 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
|
2924 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
|
2925 static enum sym_type structtype; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2926 static int structbracelev; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2927 static enum sym_type toktype; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2928 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2929 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2930 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
|
2931 |
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 * Skip __attribute__ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2934 */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2935 if (toktype == st_C_attribute) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2936 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2937 inattribute = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2938 return FALSE; |
57084
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 |
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 * Advance the definedef state machine. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2943 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2944 switch (definedef) |
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 case dnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2947 /* 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
|
2948 if (toktype == st_C_gnumacro) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2949 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2950 fvdef = fdefunkey; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2951 return FALSE; |
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 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2954 case dsharpseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2955 if (toktype == st_C_define) |
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 = ddefineseen; |
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 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2960 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2961 definedef = dignorerest; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2962 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2963 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2964 case ddefineseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2965 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2966 * 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
|
2967 * and constantypedefs is FALSE. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2968 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2969 definedef = dignorerest; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2970 *is_func_or_var = (c == '('); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2971 if (!*is_func_or_var && !constantypedefs) |
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 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2974 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2975 case dignorerest: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2976 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2977 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2978 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
|
2979 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2980 |
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 * Now typedefs |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2983 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2984 switch (typdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2985 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2986 case tnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2987 if (toktype == st_C_typedef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2988 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2989 if (typedefs) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2990 typdef = tkeyseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2991 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2992 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2993 return FALSE; |
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 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2996 case tkeyseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2997 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2998 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2999 case st_none: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3000 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3001 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3002 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3003 typdef = ttypeseen; |
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 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3006 case ttypeseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3007 if (structdef == snone && fvdef == fvnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3008 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3009 fvdef = fvnameseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3010 return TRUE; |
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 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3013 case tend: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3014 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3015 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3016 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3017 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3018 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3019 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3020 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3021 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3022 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3023 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3024 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3025 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3026 case st_C_javastruct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3027 if (structdef == stagseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3028 structdef = scolonseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3029 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3030 case st_C_template: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3031 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3032 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
|
3033 && bracelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3034 && definedef == dnone && structdef == snone |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3035 && typdef == tnone && fvdef == fvnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3036 *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
|
3037 if (toktype == st_C_template) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3038 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3039 /* FALLTHRU */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3040 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3041 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3042 if (parlev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3043 && fvdef != vignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3044 && (typdef == tkeyseen |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3045 || (typedefs_or_cplusplus && structdef == snone))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3046 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3047 structdef = skeyseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3048 structtype = toktype; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3049 structbracelev = bracelev; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3050 if (fvdef == fvnameseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3051 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3052 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3053 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3054 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3055 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3056 if (structdef == skeyseen) |
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 structdef = stagseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3059 return TRUE; |
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 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3062 if (typdef != tnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3063 definedef = dnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3064 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3065 /* Detect Objective C constructs. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3066 switch (objdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3067 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3068 case onone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3069 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3070 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3071 case st_C_objprot: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3072 objdef = oprotocol; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3073 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3074 case st_C_objimpl: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3075 objdef = oimplementation; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3076 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3077 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3078 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3079 case oimplementation: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3080 /* 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
|
3081 objtag = savenstr (str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3082 objdef = oinbody; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3083 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3084 case oprotocol: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3085 /* Save the class tag for categories. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3086 objtag = savenstr (str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3087 objdef = otagseen; |
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 oparenseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3091 objdef = ocatseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3092 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3093 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3094 case oinbody: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3095 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3096 case omethodsign: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3097 if (parlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3098 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3099 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3100 objdef = omethodtag; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3101 linebuffer_setlen (&token_name, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3102 strncpy (token_name.buffer, str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3103 token_name.buffer[len] = '\0'; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3104 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3105 } |
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 omethodcolon: |
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 objdef = omethodparm; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3110 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3111 case omethodparm: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3112 if (parlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3113 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3114 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3115 objdef = omethodtag; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3116 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
|
3117 strncat (token_name.buffer, str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3118 return TRUE; |
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 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3121 case oignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3122 if (toktype == st_C_objend) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3123 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3124 /* 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
|
3125 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
|
3126 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
|
3127 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
|
3128 class tags. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3129 free (objtag); */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3130 objdef = onone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3131 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3132 return FALSE; |
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 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3135 /* A function, variable or enum constant? */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3136 switch (toktype) |
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 st_C_extern: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3139 fvextern = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3140 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3141 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3142 case finlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3143 case flistseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3144 case fignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3145 case vignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3146 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3147 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3148 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3149 } |
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_ignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3152 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3153 fvdef = vignore; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3154 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3155 case st_C_operator: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3156 fvdef = foperator; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3157 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3158 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3159 case st_none: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3160 if (constantypedefs |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3161 && structdef == snone |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3162 && structtype == st_C_enum && bracelev > structbracelev) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3163 return TRUE; /* enum constant */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3164 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3165 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3166 case fdefunkey: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3167 if (bracelev > 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3168 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3169 fvdef = fdefunname; /* GNU macro */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3170 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3171 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3172 case fvnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3173 switch (typdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3174 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3175 case ttypeseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3176 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3177 case tnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3178 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
|
3179 || (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
|
3180 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3181 fvdef = vignore; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3182 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3183 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3184 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3185 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3186 /* FALLTHRU */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3187 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
|
3188 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
|
3189 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3190 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
|
3191 *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
|
3192 fvdef = foperator; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3193 *is_func_or_var = TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3194 return TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3195 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3196 if (bracelev > 0 && !instruct) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3197 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3198 fvdef = fvnameseen; /* function or variable */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3199 *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
|
3200 return TRUE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3201 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3202 break; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3203 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3204 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3205 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3206 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3207 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3208 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3209 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3210 * 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
|
3211 * 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
|
3212 * them at end of line, it is possible to use those pointers. |
240 | 3213 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
3214 static struct |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3215 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3216 long linepos; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3217 linebuffer lb; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3218 } lbs[2]; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3219 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3220 #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
|
3221 #define switch_line_buffers() (curndx = 1 - curndx) |
240 | 3222 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3223 #define curlb (lbs[curndx].lb) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3224 #define newlb (lbs[newndx].lb) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3225 #define curlinepos (lbs[curndx].linepos) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3226 #define newlinepos (lbs[newndx].linepos) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3227 |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3228 #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
|
3229 #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
|
3230 #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
|
3231 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3232 #define CNL_SAVE_DEFINEDEF() \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3233 do { \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3234 curlinepos = charno; \ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
3235 readline (&curlb, inf); \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3236 lp = curlb.buffer; \ |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3237 quotednl = FALSE; \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3238 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
|
3239 } while (0) |
240 | 3240 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3241 #define CNL() \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3242 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
|
3243 CNL_SAVE_DEFINEDEF(); \ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3244 if (savetoken.valid) \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3245 { \ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3246 token = savetoken; \ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3247 savetoken.valid = FALSE; \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3248 } \ |
240 | 3249 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
|
3250 } while (0) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3251 |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3252 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3253 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3254 make_C_tag (isfun) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3255 bool isfun; |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3256 { |
74768
75794203c470
(C_entries): DEFUN names were longer by one: corrected.
Francesco Potortì <pot@gnu.org>
parents:
74298
diff
changeset
|
3257 /* 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
|
3258 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
|
3259 if (token.valid) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3260 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
|
3261 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
|
3262 else if (DEBUG) |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3263 { /* 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
|
3264 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
|
3265 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
|
3266 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
|
3267 error ("INVALID TOKEN", NULL); |
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
3268 } |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3269 |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3270 token.valid = FALSE; |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3271 } |
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3272 |
240 | 3273 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3274 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3275 * C_entries () |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3276 * This routine finds functions, variables, typedefs, |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3277 * #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
|
3278 * 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
|
3279 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
3280 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3281 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
|
3282 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
|
3283 FILE *inf; /* input file */ |
240 | 3284 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3285 register char c; /* latest char read; '\0' for end of line */ |
240 | 3286 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
|
3287 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
|
3288 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
|
3289 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
|
3290 char *qualifier; /* string used to qualify names */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3291 int qlen; /* length of qualifier */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3292 int bracelev; /* current brace level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3293 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
|
3294 int parlev; /* current parenthesis level */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3295 int attrparlev; /* __attribute__ parenthesis level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3296 int templatelev; /* current template level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3297 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
|
3298 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
|
3299 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
|
3300 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
|
3301 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3302 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
3303 linebuffer_init (&lbs[0].lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
3304 linebuffer_init (&lbs[1].lb); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3305 if (cstack.size == 0) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3306 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3307 cstack.size = (DEBUG) ? 1 : 4; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3308 cstack.nl = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3309 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
|
3310 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
|
3311 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3312 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3313 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
|
3314 curndx = newndx = 0; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3315 lp = curlb.buffer; |
240 | 3316 *lp = 0; |
3317 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3318 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
|
3319 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
|
3320 yacc_rules = FALSE; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3321 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
|
3322 token.valid = savetoken.valid = FALSE; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3323 bracelev = bracketlev = parlev = attrparlev = templatelev = 0; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3324 if (cjava) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3325 { qualifier = "."; qlen = 1; } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3326 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3327 { qualifier = "::"; qlen = 2; } |
240 | 3328 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3329 |
240 | 3330 while (!feof (inf)) |
3331 { | |
3332 c = *lp++; | |
3333 if (c == '\\') | |
3334 { | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3335 /* 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
|
3336 '\0'; do not skip it, because it is what tells us |
621 | 3337 to read the next line. */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3338 if (*lp == '\0') |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3339 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3340 quotednl = TRUE; |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3341 continue; |
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3342 } |
401 | 3343 lp++; |
240 | 3344 c = ' '; |
3345 } | |
3346 else if (incomm) | |
3347 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3348 switch (c) |
240 | 3349 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3350 case '*': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3351 if (*lp == '/') |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3352 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3353 c = *lp++; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3354 incomm = FALSE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3355 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3356 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3357 case '\0': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3358 /* 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
|
3359 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
|
3360 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3361 break; |
240 | 3362 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3363 continue; |
240 | 3364 } |
3365 else if (inquote) | |
3366 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3367 switch (c) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3368 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3369 case '"': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3370 inquote = FALSE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3371 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3372 case '\0': |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3373 /* 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
|
3374 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
|
3375 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
|
3376 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3377 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3378 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3379 continue; |
240 | 3380 } |
3381 else if (inchar) | |
3382 { | |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3383 switch (c) |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3384 { |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3385 case '\0': |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3386 /* 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
|
3387 CNL (); |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3388 /* FALLTHRU */ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3389 case '\'': |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3390 inchar = FALSE; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3391 break; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3392 } |
240 | 3393 continue; |
3394 } | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3395 else if (bracketlev > 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3396 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3397 switch (c) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3398 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3399 case ']': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3400 if (--bracketlev > 0) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3401 continue; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3402 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3403 case '\0': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3404 CNL_SAVE_DEFINEDEF (); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3405 break; |
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 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3408 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3409 else switch (c) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3410 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3411 case '"': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3412 inquote = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3413 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3414 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3415 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3416 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3417 case fdefunkey: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3418 case fstartlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3419 case finlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3420 case fignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3421 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
|
3422 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3423 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3424 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3425 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3426 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3427 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3428 case '\'': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3429 inchar = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3430 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3431 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3432 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
|
3433 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3434 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3435 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3436 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3437 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3438 case '/': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3439 if (*lp == '*') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3440 { |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
3441 incomm = TRUE; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3442 lp++; |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
3443 c = ' '; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3444 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3445 else if (/* cplpl && */ *lp == '/') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3446 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3447 c = '\0'; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3448 } |
79467
a41c68c29da3
(default_C_help) [CTAGS]: differentiate the help string,
Francesco Potortì <pot@gnu.org>
parents:
79457
diff
changeset
|
3449 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3450 case '%': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3451 if ((c_ext & YACC) && *lp == '%') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3452 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3453 /* 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
|
3454 lp++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3455 definedef = dnone; fvdef = fvnone; fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3456 typdef = tnone; structdef = snone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3457 midtoken = inquote = inchar = incomm = quotednl = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3458 bracelev = 0; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3459 yacc_rules = !yacc_rules; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3460 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3461 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3462 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3463 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3464 case '#': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3465 if (definedef == dnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3466 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3467 char *cp; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3468 bool cpptoken = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3469 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3470 /* 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
|
3471 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
|
3472 token. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3473 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
|
3474 if (!iswhite (*cp)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3475 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3476 if (*cp == '*' && *(cp+1) == '/') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3477 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3478 cp++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3479 cpptoken = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3480 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3481 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3482 cpptoken = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3483 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3484 if (cpptoken) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3485 definedef = dsharpseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3486 } /* if (definedef == dnone) */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3487 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3488 case '[': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3489 bracketlev++; |
240 | 3490 continue; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3491 } /* switch (c) */ |
240 | 3492 |
3493 | |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3494 /* 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
|
3495 if (typdef != tignore |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3496 && definedef != dignorerest |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3497 && fvdef != finlist |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3498 && templatelev == 0 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3499 && (definedef != dnone |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3500 || structdef != scolonseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3501 && !inattribute) |
240 | 3502 { |
3503 if (midtoken) | |
3504 { | |
3505 if (endtoken (c)) | |
3506 { | |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3507 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
|
3508 /* This handles :: in the middle, |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3509 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
|
3510 Also, space-separated :: is not recognised. */ |
240 | 3511 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3512 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
|
3513 c_ext = (c_ext | C_PLPL) & ~C_AUTO; |
240 | 3514 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
|
3515 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
|
3516 c = lp[-1]; |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
3517 goto still_in_token; |
240 | 3518 } |
3519 else | |
3520 { | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3521 bool funorvar = FALSE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3522 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3523 if (yacc_rules |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3524 || 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
|
3525 &c_ext, bracelev, parlev, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3526 &funorvar)) |
240 | 3527 { |
26262
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 (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
|
3529 { |
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 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
|
3531 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
|
3532 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
|
3533 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
|
3534 while (*lp != '\0' |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
3535 && !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
|
3536 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
|
3537 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
|
3538 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
|
3539 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3540 token.named = FALSE; |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3541 if (!plainc |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3542 && nestlev > 0 && definedef == dnone) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3543 /* 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
|
3544 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3545 write_classname (&token_name, qualifier); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3546 linebuffer_setlen (&token_name, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3547 token_name.len+qlen+toklen); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3548 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
|
3549 strncat (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3550 newlb.buffer + tokoff, toklen); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3551 token.named = TRUE; |
240 | 3552 } |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3553 else if (objdef == ocatseen) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3554 /* Objective C category */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3555 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3556 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
|
3557 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
|
3558 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
|
3559 strcat (token_name.buffer, "("); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3560 strncat (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3561 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
|
3562 strcat (token_name.buffer, ")"); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3563 token.named = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3564 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3565 else if (objdef == omethodtag |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3566 || objdef == omethodparm) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3567 /* Objective C method */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3568 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3569 token.named = TRUE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3570 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3571 else if (fvdef == fdefunname) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3572 /* GNU DEFUN and similar macros */ |
35574
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 bool defun = (newlb.buffer[tokoff] == 'F'); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3575 int off = tokoff; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3576 int len = toklen; |
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 /* 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
|
3579 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
|
3580 if (defun) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3581 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3582 off += 1; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3583 len -= 1; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3584 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3585 linebuffer_setlen (&token_name, len); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3586 strncpy (token_name.buffer, |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3587 newlb.buffer + off, len); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3588 token_name.buffer[len] = '\0'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3589 if (defun) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3590 while (--len >= 0) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3591 if (token_name.buffer[len] == '_') |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3592 token_name.buffer[len] = '-'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3593 token.named = defun; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3594 } |
240 | 3595 else |
3596 { | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3597 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
|
3598 strncpy (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3599 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
|
3600 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
|
3601 /* Name macros and members. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3602 token.named = (structdef == stagseen |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3603 || typdef == ttypeseen |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3604 || typdef == tend |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3605 || (funorvar |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3606 && definedef == dignorerest) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3607 || (funorvar |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3608 && definedef == dnone |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3609 && structdef == snone |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3610 && bracelev > 0)); |
240 | 3611 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3612 token.lineno = lineno; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3613 token.offset = tokoff; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3614 token.length = toklen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3615 token.line = newlb.buffer; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3616 token.linepos = newlinepos; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3617 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
|
3618 |
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
|
3619 if (definedef == dnone |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3620 && (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
|
3621 || 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
|
3622 || structdef == stagseen |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3623 || typdef == tend |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3624 || typdef == ttypeseen |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3625 || objdef != onone)) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3626 { |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3627 if (current_lb_is_new) |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3628 switch_line_buffers (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3629 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3630 else if (definedef != dnone |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3631 || fvdef == fdefunname |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3632 || instruct) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3633 make_C_tag (funorvar); |
240 | 3634 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3635 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
|
3636 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3637 if (inattribute && fvdef == fignore) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3638 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3639 /* 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
|
3640 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
|
3641 function again. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3642 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3643 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3644 } |
240 | 3645 midtoken = FALSE; |
3646 } | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3647 } /* if (endtoken (c)) */ |
240 | 3648 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
|
3649 still_in_token: |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3650 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3651 toklen++; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3652 continue; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3653 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3654 } /* if (midtoken) */ |
240 | 3655 else if (begtoken (c)) |
3656 { | |
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 switch (definedef) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3658 { |
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
|
3659 case dnone: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3660 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
|
3661 { |
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
|
3662 case fstartlist: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3663 /* This prevents tagging fb in |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3664 void (__attribute__((noreturn)) *fb) (void); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3665 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
|
3666 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
|
3667 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
|
3668 case flistseen: |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3669 if (plainc || declarations) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3670 { |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3671 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
|
3672 fvdef = fignore; |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3673 } |
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
|
3674 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
|
3675 } |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
3676 if (structdef == stagseen && !cjava) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3677 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3678 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3679 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3680 } |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3681 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
|
3682 case dsharpseen: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3683 savetoken = token; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
3684 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3685 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3686 if (!yacc_rules || lp == newlb.buffer + 1) |
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 tokoff = lp - 1 - newlb.buffer; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3689 toklen = 1; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3690 midtoken = TRUE; |
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 continue; |
10623
8a73e71a55e3
* etags.c (pfnote): Initialise been_warned in the node.
Francesco Potortì <pot@gnu.org>
parents:
10449
diff
changeset
|
3693 } /* if (begtoken) */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3694 } /* if must look at token */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3695 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3696 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3697 /* 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
|
3698 after having handled a token.*/ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3699 switch (c) |
401 | 3700 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3701 case ':': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3702 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3703 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3704 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
|
3705 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3706 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
|
3707 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3708 } |
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
|
3709 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
|
3710 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3711 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3712 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3713 case otagseen: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3714 objdef = oignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3715 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
|
3716 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3717 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3718 case omethodparm: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3719 objdef = omethodcolon; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3720 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
|
3721 strcat (token_name.buffer, ":"); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3722 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3723 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3724 if (structdef == stagseen) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3725 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3726 structdef = scolonseen; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3727 break; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3728 } |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3729 /* 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
|
3730 if (cplpl && fvdef == flistseen) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3731 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3732 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
|
3733 fvdef = fignore; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3734 break; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3735 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3736 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3737 case ';': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3738 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
|
3739 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3740 switch (typdef) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
3741 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3742 case tend: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3743 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3744 make_C_tag (FALSE); /* a typedef */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3745 typdef = tnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3746 fvdef = fvnone; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3747 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3748 case tnone: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3749 case tinbody: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3750 case tignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3751 switch (fvdef) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3752 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3753 case fignore: |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3754 if (typdef == tignore || cplpl) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3755 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3756 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3757 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3758 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
|
3759 || (members && instruct)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3760 make_C_tag (FALSE); /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3761 fvextern = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3762 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3763 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3764 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3765 case flistseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3766 if ((declarations |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3767 && (cplpl || !instruct) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3768 && (typdef == tnone || (typdef != tignore && instruct))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3769 || (members |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3770 && plainc && instruct)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3771 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
|
3772 /* FALLTHRU */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3773 default: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3774 fvextern = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3775 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3776 if (declarations |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3777 && cplpl && structdef == stagseen) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3778 make_C_tag (FALSE); /* forward declaration */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3779 else |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3780 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3781 } /* switch (fvdef) */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3782 /* FALLTHRU */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3783 default: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3784 if (!instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3785 typdef = tnone; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
3786 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3787 if (structdef == stagseen) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3788 structdef = snone; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3789 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3790 case ',': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3791 if (definedef != dnone || inattribute) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3792 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3793 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3794 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3795 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3796 case omethodparm: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3797 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
|
3798 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3799 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3800 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3801 switch (fvdef) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3802 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3803 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
|
3804 case foperator: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3805 case fstartlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3806 case finlist: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3807 case fignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3808 case vignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3809 break; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3810 case fdefunname: |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3811 fvdef = fignore; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3812 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3813 case fvnameseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3814 if (parlev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3815 && ((globals |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3816 && bracelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3817 && templatelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3818 && (!fvextern || declarations)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3819 || (members && instruct))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3820 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
|
3821 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3822 case flistseen: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3823 if ((declarations && typdef == tnone && !instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3824 || (members && typdef != tignore && instruct)) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3825 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3826 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
|
3827 fvdef = fvnameseen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3828 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3829 else if (!declarations) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3830 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3831 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3832 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3833 default: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3834 fvdef = fvnone; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3835 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3836 if (structdef == stagseen) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3837 structdef = snone; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3838 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3839 case ']': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3840 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
|
3841 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3842 if (structdef == stagseen) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3843 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3844 switch (typdef) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3845 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3846 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3847 case tend: |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3848 typdef = tignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3849 make_C_tag (FALSE); /* a typedef */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3850 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3851 case tnone: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3852 case tinbody: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3853 switch (fvdef) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3854 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3855 case foperator: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3856 case finlist: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3857 case fignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3858 case vignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3859 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3860 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3861 if ((members && bracelev == 1) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3862 || (globals && bracelev == 0 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3863 && (!fvextern || declarations))) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3864 make_C_tag (FALSE); /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3865 /* FALLTHRU */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3866 default: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3867 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3868 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3869 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3870 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3871 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3872 case '(': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3873 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3874 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3875 attrparlev++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3876 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3877 } |
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
|
3878 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
|
3879 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3880 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
|
3881 objdef = oparenseen; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3882 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
|
3883 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3884 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
|
3885 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
|
3886 && *lp != '*' |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3887 && !instruct) |
9193
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3888 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3889 /* 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
|
3890 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
|
3891 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
|
3892 typdef = tignore; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3893 fvdef = fignore; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3894 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
|
3895 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3896 /* 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
|
3897 case foperator: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3898 fvdef = fstartlist; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3899 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3900 case flistseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3901 fvdef = finlist; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3902 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
|
3903 } |
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
|
3904 parlev++; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3905 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3906 case ')': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3907 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3908 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3909 if (--attrparlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3910 inattribute = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3911 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3912 } |
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
|
3913 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
|
3914 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3915 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
|
3916 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3917 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
|
3918 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3919 } |
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
|
3920 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
|
3921 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3922 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
|
3923 { |
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 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
|
3925 case finlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3926 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
|
3927 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
|
3928 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3929 if (!instruct |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3930 && (typdef == tend |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3931 || typdef == ttypeseen)) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3932 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3933 typdef = tignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3934 make_C_tag (FALSE); /* a typedef */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3935 } |
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
|
3936 } |
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 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
|
3938 parlev = 0; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3939 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3940 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
|
3941 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
|
3942 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
|
3943 if (typdef == ttypeseen) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3944 { |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3945 /* 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
|
3946 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
|
3947 typdef = tinbody; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3948 typdefbracelev = bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3949 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3950 switch (fvdef) |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3951 { |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3952 case flistseen: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3953 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
|
3954 /* FALLTHRU */ |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3955 case fignore: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3956 fvdef = fvnone; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3957 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3958 case fvnone: |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3959 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3960 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3961 case otagseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3962 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
|
3963 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3964 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3965 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3966 case omethodparm: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3967 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
|
3968 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3969 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3970 default: |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
3971 /* Neutralize `extern "C" {' grot. */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3972 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
|
3973 && typdef == tnone) |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3974 bracelev = -1; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3975 } |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
3976 break; |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3977 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3978 switch (structdef) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3979 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3980 case skeyseen: /* unnamed struct */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3981 pushclass_above (bracelev, NULL, 0); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3982 structdef = snone; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3983 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3984 case stagseen: /* named struct or enum */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3985 case scolonseen: /* a class */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3986 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
|
3987 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3988 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
|
3989 break; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3990 } |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
3991 bracelev += 1; |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3992 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3993 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
|
3994 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
|
3995 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3996 if (fvdef == fstartlist) |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3997 { |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3998 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
|
3999 token.valid = FALSE; |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
4000 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4001 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4002 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
|
4003 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
|
4004 break; |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4005 bracelev -= 1; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
4006 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
|
4007 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4008 if (bracelev != 0) |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4009 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
|
4010 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
|
4011 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
|
4012 } |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4013 else if (bracelev < 0) |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4014 { |
86096
9a9aff4cf7e6
Make prototypes for extern definitions, and add all
Francesco Potortì <pot@gnu.org>
parents:
86087
diff
changeset
|
4015 token.valid = FALSE; /* something gone amiss, token unreliable */ |
79457
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4016 bracelev = 0; |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4017 } |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4018 if (bracelev == 0 && fvdef == vignore) |
24f4925384aa
Backporting bug corrections from trunk.
Francesco Potortì <pot@gnu.org>
parents:
78472
diff
changeset
|
4019 fvdef = fvnone; /* end of function */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4020 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4021 structdef = snone; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4022 /* 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
|
4023 if (typdef == tinbody && bracelev <= typdefbracelev) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4024 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4025 assert (bracelev == typdefbracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4026 typdef = tend; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4027 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4028 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4029 case '=': |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4030 if (definedef != dnone) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4031 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4032 switch (fvdef) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4033 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4034 case foperator: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4035 case finlist: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4036 case fignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4037 case vignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4038 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4039 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4040 if ((members && bracelev == 1) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4041 || (globals && bracelev == 0 && (!fvextern || declarations))) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4042 make_C_tag (FALSE); /* a variable */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4043 /* FALLTHRU */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4044 default: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4045 fvdef = vignore; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4046 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4047 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4048 case '<': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4049 if (cplpl |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4050 && (structdef == stagseen || fvdef == fvnameseen)) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4051 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4052 templatelev++; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4053 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4054 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4055 goto resetfvdef; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4056 case '>': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4057 if (templatelev > 0) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4058 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4059 templatelev--; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4060 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4061 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4062 goto resetfvdef; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4063 case '+': |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4064 case '-': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4065 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
|
4066 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4067 objdef = omethodsign; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4068 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4069 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4070 /* FALLTHRU */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4071 resetfvdef: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4072 case '#': case '~': case '&': case '%': case '/': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4073 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
|
4074 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
|
4075 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
|
4076 /* 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
|
4077 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
|
4078 { |
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 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
|
4080 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
|
4081 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
|
4082 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
|
4083 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
|
4084 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
|
4085 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
|
4086 } |
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
|
4087 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4088 case '\0': |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4089 if (objdef == otagseen) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4090 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4091 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
|
4092 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4093 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4094 /* 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
|
4095 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
|
4096 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4097 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
|
4098 CNL (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4099 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4100 } /* switch (c) */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4101 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4102 } /* while not eof */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4103 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4104 free (lbs[0].lb.buffer); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4105 free (lbs[1].lb.buffer); |
240 | 4106 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4107 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4108 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4109 * 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
|
4110 * 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
|
4111 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4112 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
|
4113 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
|
4114 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4115 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4116 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
|
4117 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4118 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4119 /* 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
|
4120 static void |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4121 plain_C_entries (inf) |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4122 FILE *inf; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4123 { |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4124 C_entries (0, inf); |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4125 } |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4126 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4127 /* Always do C++. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4128 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
|
4129 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
|
4130 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4131 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4132 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
|
4133 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4134 |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4135 /* Always do Java. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4136 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4137 Cjava_entries (inf) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4138 FILE *inf; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4139 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4140 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
|
4141 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4142 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4143 /* Always do C*. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4144 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
|
4145 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
|
4146 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4147 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4148 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
|
4149 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4150 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4151 /* Always do Yacc. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4152 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
|
4153 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
|
4154 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4155 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4156 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
|
4157 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4158 |
240 | 4159 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4160 /* 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
|
4161 #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
|
4162 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
|
4163 !feof (file_pointer) /* loop test */ \ |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4164 && /* instructions at start of loop */ \ |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4165 (readline (&line_buffer, file_pointer), \ |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4166 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
|
4167 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
|
4168 ) |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4169 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4170 #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
|
4171 ((assert("" kw), TRUE) /* syntax error if not a literal string */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4172 && strneq ((cp), kw, sizeof(kw)-1) /* cp points at kw */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4173 && notinname ((cp)[sizeof(kw)-1]) /* end of kw */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4174 && ((cp) = skip_spaces((cp)+sizeof(kw)-1))) /* skip spaces */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4175 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4176 /* 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
|
4177 #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
|
4178 ((assert("" kw), TRUE) /* syntax error if not a literal string */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4179 && strncaseeq ((cp), kw, sizeof(kw)-1) /* cp points at kw */ \ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
4180 && ((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
|
4181 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4182 /* |
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 * 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
|
4184 * 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
|
4185 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4186 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
|
4187 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
|
4188 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
|
4189 { |
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 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
|
4191 |
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 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
|
4193 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
|
4194 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4195 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4196 |
240 | 4197 /* Fortran parsing */ |
4198 | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4199 static void F_takeprec __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4200 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
|
4201 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4202 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4203 F_takeprec () |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4204 { |
26262
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); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4206 if (*dbp != '*') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4207 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4208 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
|
4209 dbp = skip_spaces (dbp); |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4210 if (strneq (dbp, "(*)", 3)) |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4211 { |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4212 dbp += 3; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4213 return; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4214 } |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4215 if (!ISDIGIT (*dbp)) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4216 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4217 --dbp; /* force failure */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4218 return; |
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 do |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4221 dbp++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4222 while (ISDIGIT (*dbp)); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4223 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4224 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4225 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4226 F_getit (inf) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4227 FILE *inf; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4228 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4229 register char *cp; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4230 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4231 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4232 if (*dbp == '\0') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4233 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4234 readline (&lb, inf); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4235 dbp = lb.buffer; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4236 if (dbp[5] != '&') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4237 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4238 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
|
4239 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4240 } |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4241 if (!ISALPHA (*dbp) && *dbp != '_' && *dbp != '$') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4242 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
|
4243 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
|
4244 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4245 make_tag (dbp, cp-dbp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4246 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
|
4247 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4248 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4249 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4250 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4251 Fortran_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4252 FILE *inf; |
240 | 4253 { |
26262
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 LOOP_ON_INPUT_LINES (inf, lb, dbp) |
240 | 4255 { |
4256 if (*dbp == '%') | |
4257 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
|
4258 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4259 if (*dbp == '\0') |
240 | 4260 continue; |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4261 switch (lowcase (*dbp)) |
240 | 4262 { |
4263 case 'i': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4264 if (nocase_tail ("integer")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4265 F_takeprec (); |
240 | 4266 break; |
4267 case 'r': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4268 if (nocase_tail ("real")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4269 F_takeprec (); |
240 | 4270 break; |
4271 case 'l': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4272 if (nocase_tail ("logical")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4273 F_takeprec (); |
240 | 4274 break; |
4275 case 'c': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4276 if (nocase_tail ("complex") || nocase_tail ("character")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4277 F_takeprec (); |
240 | 4278 break; |
4279 case 'd': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4280 if (nocase_tail ("double")) |
240 | 4281 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4282 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4283 if (*dbp == '\0') |
240 | 4284 continue; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4285 if (nocase_tail ("precision")) |
240 | 4286 break; |
4287 continue; | |
4288 } | |
4289 break; | |
4290 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4291 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4292 if (*dbp == '\0') |
240 | 4293 continue; |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4294 switch (lowcase (*dbp)) |
240 | 4295 { |
4296 case 'f': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4297 if (nocase_tail ("function")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4298 F_getit (inf); |
240 | 4299 continue; |
4300 case 's': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4301 if (nocase_tail ("subroutine")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4302 F_getit (inf); |
240 | 4303 continue; |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
4304 case 'e': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4305 if (nocase_tail ("entry")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4306 F_getit (inf); |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
4307 continue; |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4308 case 'b': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4309 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
|
4310 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4311 dbp = skip_spaces (dbp); |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4312 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
|
4313 make_tag ("blockdata", 9, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4314 lb.buffer, dbp - lb.buffer, lineno, linecharno); |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4315 else |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4316 F_getit (inf); /* look for name */ |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4317 } |
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4318 continue; |
240 | 4319 } |
4320 } | |
4321 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4322 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4323 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4324 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4325 * Ada parsing |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4326 * Original code by |
51267
c21ab9f401a9
Remove Philippe Waroquier's email address, at his request.
Francesco Potortì <pot@gnu.org>
parents:
49360
diff
changeset
|
4327 * 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
|
4328 */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4329 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4330 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
|
4331 |
26262
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 /* 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
|
4333 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
|
4334 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4335 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
|
4336 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
|
4337 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
|
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 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
|
4340 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
|
4341 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
|
4342 |
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 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
|
4344 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4345 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
|
4346 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
|
4347 || (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
|
4348 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4349 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
|
4350 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
|
4351 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4352 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
|
4353 { |
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 case 'b': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4355 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
|
4356 { |
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 /* 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
|
4358 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
|
4359 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
|
4360 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
|
4361 } |
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 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
|
4363 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
|
4364 /* Skipping type of task type or protected type ... */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4365 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
|
4366 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
|
4367 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
|
4368 } |
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 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
|
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 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
|
4372 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
|
4373 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
|
4374 } |
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 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
|
4376 { |
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 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
|
4378 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
|
4379 (*cp != '\0' |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4380 && (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
|
4381 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
|
4382 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
|
4383 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
|
4384 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
|
4385 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4386 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
|
4387 *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
|
4388 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
|
4389 *cp = c; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4390 make_tag (name, strlen (name), TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4391 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
|
4392 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
|
4393 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
|
4394 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
|
4395 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
|
4396 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4397 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4398 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4399 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
|
4400 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
|
4401 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
|
4402 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4403 bool inquote = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4404 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
|
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 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
|
4407 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4408 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
|
4409 { |
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 /* 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
|
4411 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
|
4412 { |
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 = 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
|
4414 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
|
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 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
|
4417 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
|
4418 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
|
4419 } |
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 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
|
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 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
|
4423 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
|
4424 } |
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 } |
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 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
|
4428 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
|
4429 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
|
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 /* 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
|
4432 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
|
4433 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
|
4434 { |
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 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
|
4436 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
|
4437 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
|
4438 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
|
4439 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4440 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4441 if (skip_till_semicolumn) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4442 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4443 if (*dbp == ';') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4444 skip_till_semicolumn = FALSE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4445 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4446 continue; /* advance char */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4447 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4448 |
26262
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 /* 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
|
4450 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
|
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 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
|
4453 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
|
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 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4456 /* We are at the beginning of a token. */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4457 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
|
4458 { |
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 case 'f': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4460 if (!packages_only && nocase_tail ("function")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4461 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
|
4462 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
|
4463 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
|
4464 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
|
4465 case 'p': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4466 if (!packages_only && nocase_tail ("procedure")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4467 Ada_getit (inf, "/p"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4468 else if (nocase_tail ("package")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4469 Ada_getit (inf, "/s"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4470 else if (nocase_tail ("protected")) /* protected type */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4471 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
|
4472 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
|
4473 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
|
4474 continue; /* advance char */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4475 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4476 case 'u': |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4477 if (typedefs && !packages_only && nocase_tail ("use")) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4478 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4479 /* 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
|
4480 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
|
4481 skip_till_semicolumn = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4482 continue; /* advance char */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4483 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4484 |
26262
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 case 't': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4486 if (!packages_only && nocase_tail ("task")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4487 Ada_getit (inf, "/k"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4488 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
|
4489 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4490 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
|
4491 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
|
4492 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
|
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 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
|
4495 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
|
4496 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
|
4497 } |
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 /* 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
|
4500 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
|
4501 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
|
4502 |
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 } /* 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
|
4504 } /* 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
|
4505 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4506 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4507 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4508 /* |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4509 * Unix and microcontroller assembly tag handling |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4510 * Labels: /^[a-zA-Z_.$][a-zA_Z0-9_.$]*[: ^I^J]/ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4511 * 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
|
4512 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4513 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4514 Asm_labels (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4515 FILE *inf; |
240 | 4516 { |
4517 register char *cp; | |
4518 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4519 LOOP_ON_INPUT_LINES (inf, lb, cp) |
240 | 4520 { |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4521 /* 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
|
4522 following identifier. */ |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4523 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
|
4524 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4525 /* Read past label. */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4526 cp++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4527 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
|
4528 cp++; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4529 if (*cp == ':' || iswhite (*cp)) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4530 /* 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
|
4531 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
|
4532 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
|
4533 } |
240 | 4534 } |
4535 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4536 |
240 | 4537 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4538 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4539 * Perl support |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4540 * 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
|
4541 * Perl variable names: /^(my|local).../ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4542 * Original code by Bart Robinson <lomew@cs.utah.edu> (1995) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4543 * Additions by Michael Ernst <mernst@alum.mit.edu> (1997) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4544 * 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
|
4545 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4546 static void |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4547 Perl_functions (inf) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4548 FILE *inf; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4549 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4550 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
|
4551 register char *cp; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4552 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4553 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
|
4554 { |
80230
9c2ef4f2ad6a
(Perl_functions): Fix call to skip_spaces.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80017
diff
changeset
|
4555 cp = skip_spaces (cp); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4556 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4557 if (LOOKING_AT (cp, "package")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4558 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4559 free (package); |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4560 get_tag (cp, &package); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4561 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4562 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
|
4563 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4564 char *pos; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4565 char *sp = cp; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4566 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4567 while (!notinname (*cp)) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4568 cp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4569 if (cp == sp) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4570 continue; /* nothing found */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4571 if ((pos = etags_strchr (sp, ':')) != NULL |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4572 && pos < cp && pos[1] == ':') |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4573 /* The name is already qualified. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4574 make_tag (sp, cp - sp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4575 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4576 else |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4577 /* Qualify it. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4578 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4579 char savechar, *name; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4580 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4581 savechar = *cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4582 *cp = '\0'; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4583 name = concat (package, "::", sp); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4584 *cp = savechar; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4585 make_tag (name, strlen(name), TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4586 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
|
4587 free (name); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4588 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4589 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4590 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
|
4591 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4592 /* Skip a qualifier, if any. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4593 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
|
4594 /* 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
|
4595 char *varstart = cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4596 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4597 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
|
4598 && (*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
|
4599 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4600 varstart += 1; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4601 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
|
4602 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4603 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
|
4604 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4605 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
|
4606 { |
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 /* 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
|
4608 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
|
4609 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
|
4610 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
|
4611 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4612 else |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4613 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4614 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4615 make_tag (varstart, cp - varstart, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4616 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
|
4617 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4618 } |
70342
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
4619 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
|
4620 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4621 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4622 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4623 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4624 * Python support |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4625 * 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
|
4626 * 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
|
4627 * 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
|
4628 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4629 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
|
4630 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
|
4631 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
|
4632 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4633 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
|
4634 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4635 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
|
4636 { |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4637 cp = skip_spaces (cp); |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4638 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
|
4639 { |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4640 char *name = cp; |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4641 while (!notinname (*cp) && *cp != ':') |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4642 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4643 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4644 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
|
4645 } |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4646 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4647 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4648 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4649 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4650 /* |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4651 * PHP support |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4652 * Look for: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4653 * - /^[ \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
|
4654 * - /^[ \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
|
4655 * - /^[ \t]*define\(\"[^\"]+/ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4656 * Only with --members: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4657 * - /^[ \t]*var[ \t\n]+\$[^ \t\n=;]/ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4658 * 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
|
4659 */ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4660 static void |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4661 PHP_functions (inf) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4662 FILE *inf; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4663 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4664 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
|
4665 bool search_identifier = FALSE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4666 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4667 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
|
4668 { |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4669 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
|
4670 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4671 if (search_identifier |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4672 && *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
|
4673 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4674 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
|
4675 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4676 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4677 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
|
4678 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
|
4679 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4680 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
|
4681 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4682 if(*cp == '&') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4683 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
|
4684 if(*cp != '\0') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4685 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4686 name = cp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4687 while (!notinname (*cp)) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4688 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4689 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4690 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
|
4691 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4692 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4693 search_identifier = TRUE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4694 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4695 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
|
4696 { |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4697 if (*cp != '\0') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4698 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4699 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4700 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
|
4701 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4702 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4703 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
|
4704 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4705 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4706 search_identifier = TRUE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4707 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4708 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
|
4709 && (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
|
4710 && *cp++ == '(' |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4711 && (*cp == '"' || *cp == '\'')) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4712 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4713 char quote = *cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4714 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4715 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
|
4716 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4717 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4718 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
|
4719 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4720 else if (members |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4721 && LOOKING_AT (cp, "var") |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4722 && *cp == '$') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4723 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4724 name = cp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4725 while (!notinname(*cp)) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4726 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4727 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4728 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
|
4729 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4730 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4731 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4732 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4733 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4734 /* |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4735 * Cobol tag functions |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4736 * 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
|
4737 * 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
|
4738 * Idea by Corny de Souza (1993) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4739 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4740 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4741 Cobol_paragraphs (inf) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4742 FILE *inf; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4743 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4744 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
|
4745 |
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 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
|
4747 { |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4748 if (lb.len < 9) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4749 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
|
4750 bp += 8; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4751 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4752 /* 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
|
4753 if (bp[-1] != ' ' || !ISALNUM (bp[0])) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4754 continue; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4755 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4756 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
|
4757 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
|
4758 if (*ep++ == '.') |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4759 make_tag (bp, ep - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4760 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
|
4761 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4762 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4763 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4764 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4765 /* |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4766 * Makefile support |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4767 * 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
|
4768 */ |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4769 static void |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4770 Makefile_targets (inf) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4771 FILE *inf; |
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 register char *bp; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4774 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4775 LOOP_ON_INPUT_LINES (inf, lb, bp) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4776 { |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4777 if (*bp == '\t' || *bp == '#') |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4778 continue; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4779 while (*bp != '\0' && *bp != '=' && *bp != ':') |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4780 bp++; |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4781 if (*bp == ':' || (globals && *bp == '=')) |
74951
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4782 { |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4783 /* 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
|
4784 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
|
4785 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
|
4786 while (--bp > namestart) |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4787 if (!notinname (*bp)) |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4788 break; |
96636bda161b
(readline): When creating a relative file name from a
Francesco Potortì <pot@gnu.org>
parents:
74768
diff
changeset
|
4789 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
|
4790 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
|
4791 } |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4792 } |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4793 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4794 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
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 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4797 * Pascal parsing |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4798 * Original code by Mosur K. Mohan (1989) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4799 * |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4800 * 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
|
4801 * 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
|
4802 * "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
|
4803 * the tag is skipped. |
240 | 4804 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4805 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4806 Pascal_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4807 FILE *inf; |
240 | 4808 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4809 linebuffer tline; /* mostly copied from C_entries */ |
240 | 4810 long save_lcno; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4811 int save_lineno, namelen, taglen; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4812 char c, *name; |
240 | 4813 |
78472 | 4814 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
|
4815 incomment, /* point is inside a comment */ |
240 | 4816 inquote, /* point is inside '..' string */ |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4817 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
|
4818 keyword, so next item = potential tag */ |
240 | 4819 found_tag, /* point is after a potential tag */ |
4820 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
|
4821 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
|
4822 next token will determine whether this |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4823 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
|
4824 whether it is a real tag */ |
240 | 4825 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4826 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
|
4827 name = NULL; /* keep compiler quiet */ |
240 | 4828 dbp = lb.buffer; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4829 *dbp = '\0'; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4830 linebuffer_init (&tline); |
240 | 4831 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4832 incomment = inquote = FALSE; |
240 | 4833 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
|
4834 get_tagname = FALSE; /* found "procedure" keyword */ |
240 | 4835 inparms = FALSE; /* found '(' after "proc" */ |
4836 verify_tag = FALSE; /* check if "extern" is ahead */ | |
4837 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4838 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4839 while (!feof (inf)) /* long main loop to get next char */ |
240 | 4840 { |
4841 c = *dbp++; | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4842 if (c == '\0') /* if end of line */ |
240 | 4843 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4844 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
|
4845 dbp = lb.buffer; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4846 if (*dbp == '\0') |
240 | 4847 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
|
4848 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
|
4849 || get_tagname)) |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4850 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
|
4851 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
|
4852 the procedure or function */ |
240 | 4853 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4854 if (incomment) |
240 | 4855 { |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4856 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
|
4857 incomment = FALSE; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4858 else if (c == '*' && *dbp == ')') /* within (* *) comments */ |
240 | 4859 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4860 dbp++; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4861 incomment = FALSE; |
240 | 4862 } |
4863 continue; | |
4864 } | |
4865 else if (inquote) | |
4866 { | |
4867 if (c == '\'') | |
4868 inquote = FALSE; | |
4869 continue; | |
4870 } | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4871 else |
240 | 4872 switch (c) |
4873 { | |
4874 case '\'': | |
4875 inquote = TRUE; /* found first quote */ | |
4876 continue; | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4877 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
|
4878 incomment = TRUE; |
240 | 4879 continue; |
4880 case '(': | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4881 if (*dbp == '*') /* found open (* comment */ |
240 | 4882 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4883 incomment = TRUE; |
240 | 4884 dbp++; |
4885 } | |
4886 else if (found_tag) /* found '(' after tag, i.e., parm-list */ | |
4887 inparms = TRUE; | |
4888 continue; | |
4889 case ')': /* end of parms list */ | |
4890 if (inparms) | |
4891 inparms = FALSE; | |
4892 continue; | |
4893 case ';': | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4894 if (found_tag && !inparms) /* end of proc or fn stmt */ |
240 | 4895 { |
4896 verify_tag = TRUE; | |
4897 break; | |
4898 } | |
4899 continue; | |
4900 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4901 if (found_tag && verify_tag && (*dbp != ' ')) |
240 | 4902 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4903 /* 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
|
4904 if (*dbp == '\0') |
240 | 4905 continue; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4906 if (lowcase (*dbp == 'e')) |
240 | 4907 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4908 if (nocase_tail ("extern")) /* superfluous, really! */ |
240 | 4909 { |
4910 found_tag = FALSE; | |
4911 verify_tag = FALSE; | |
4912 } | |
4913 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4914 else if (lowcase (*dbp) == 'f') |
240 | 4915 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4916 if (nocase_tail ("forward")) /* check for forward reference */ |
240 | 4917 { |
4918 found_tag = FALSE; | |
4919 verify_tag = FALSE; | |
4920 } | |
4921 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4922 if (found_tag && verify_tag) /* not external proc, so make tag */ |
240 | 4923 { |
4924 found_tag = FALSE; | |
4925 verify_tag = FALSE; | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4926 make_tag (name, namelen, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4927 tline.buffer, taglen, save_lineno, save_lcno); |
240 | 4928 continue; |
4929 } | |
4930 } | |
4931 if (get_tagname) /* grab name of proc or fn */ | |
4932 { | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4933 char *cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4934 |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4935 if (*dbp == '\0') |
240 | 4936 continue; |
4937 | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4938 /* Find block name. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4939 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
|
4940 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4941 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4942 /* 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
|
4943 linebuffer_setlen (&tline, lb.len); |
240 | 4944 strcpy (tline.buffer, lb.buffer); |
4945 save_lineno = lineno; | |
4946 save_lcno = linecharno; | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4947 name = tline.buffer + (dbp - lb.buffer); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4948 namelen = cp - dbp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4949 taglen = cp - lb.buffer + 1; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4950 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4951 dbp = cp; /* set dbp to e-o-token */ |
240 | 4952 get_tagname = FALSE; |
4953 found_tag = TRUE; | |
4954 continue; | |
4955 | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4956 /* And proceed to check for "extern". */ |
240 | 4957 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4958 else if (!incomment && !inquote && !found_tag) |
240 | 4959 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4960 /* Check for proc/fn keywords. */ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4961 switch (lowcase (c)) |
240 | 4962 { |
4963 case 'p': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4964 if (nocase_tail ("rocedure")) /* c = 'p', dbp has advanced */ |
240 | 4965 get_tagname = TRUE; |
4966 continue; | |
4967 case 'f': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4968 if (nocase_tail ("unction")) |
240 | 4969 get_tagname = TRUE; |
4970 continue; | |
4971 } | |
4972 } | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4973 } /* while not eof */ |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
4974 |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4975 free (tline.buffer); |
240 | 4976 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4977 |
240 | 4978 |
4979 /* | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4980 * Lisp tag functions |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4981 * look for (def or (DEF, quote or QUOTE |
240 | 4982 */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4983 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4984 static void L_getit __P((void)); |
240 | 4985 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4986 static void |
240 | 4987 L_getit () |
4988 { | |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4989 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
|
4990 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
|
4991 else if (*dbp == '(') |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4992 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4993 dbp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4994 /* Try to skip "(quote " */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4995 if (!LOOKING_AT (dbp, "quote") && !LOOKING_AT (dbp, "QUOTE")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4996 /* Ok, then skip "(" before name in (defstruct (foo)) */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4997 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
|
4998 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4999 get_tag (dbp, NULL); |
240 | 5000 } |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5001 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5002 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5003 Lisp_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5004 FILE *inf; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5005 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5006 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
|
5007 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5008 if (dbp[0] != '(') |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5009 continue; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5010 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5011 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
|
5012 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5013 dbp = skip_non_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5014 dbp = skip_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5015 L_getit (); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5016 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5017 else |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5018 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5019 /* Check for (foo::defmumble name-defined ... */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5020 do |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5021 dbp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5022 while (!notinname (*dbp) && *dbp != ':'); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5023 if (*dbp == ':') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5024 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5025 do |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5026 dbp++; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5027 while (*dbp == ':'); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5028 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5029 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
|
5030 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5031 dbp = skip_non_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5032 dbp = skip_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5033 L_getit (); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5034 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5035 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5036 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5037 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5038 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5039 |
240 | 5040 |
5041 /* | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5042 * Lua script language parsing |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5043 * 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
|
5044 * |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5045 * "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
|
5046 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5047 static void |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5048 Lua_functions (inf) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5049 FILE *inf; |
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 register char *bp; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5052 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5053 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
|
5054 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5055 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
|
5056 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5057 |
74298
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
5058 (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
|
5059 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5060 if (LOOKING_AT (bp, "function")) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5061 get_tag (bp, NULL); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5062 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5063 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5064 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5065 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
5066 /* |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5067 * Postscript tags |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5068 * 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
|
5069 * Also look at "defineps" for PSWrap |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5070 * Ideas by: |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5071 * Richard Mlynarik <mly@adoc.xerox.com> (1997) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5072 * 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
|
5073 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5074 static void |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
5075 PS_functions (inf) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5076 FILE *inf; |
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 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
|
5079 |
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 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
|
5081 { |
26262
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 if (bp[0] == '/') |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5083 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5084 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
|
5085 *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
|
5086 ep++) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5087 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5088 make_tag (bp, ep - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5089 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
|
5090 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5091 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
|
5092 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
|
5093 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5094 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5095 |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5096 |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5097 /* |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5098 * Forth tags |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5099 * Ignore anything after \ followed by space or in ( ) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5100 * Look for words defined by : |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5101 * Look for constant, code, create, defer, value, and variable |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5102 * OBP extensions: Look for buffer:, field, |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5103 * Ideas by Eduardo Horvath <eeh@netbsd.org> (2004) |
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 static void |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5106 Forth_words (inf) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5107 FILE *inf; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5108 { |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5109 register char *bp; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5110 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5111 LOOP_ON_INPUT_LINES (inf, lb, bp) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5112 while ((bp = skip_spaces (bp))[0] != '\0') |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5113 if (bp[0] == '\\' && iswhite(bp[1])) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5114 break; /* read next line */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5115 else if (bp[0] == '(' && iswhite(bp[1])) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5116 do /* skip to ) or eol */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5117 bp++; |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5118 while (*bp != ')' && *bp != '\0'); |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5119 else if ((bp[0] == ':' && iswhite(bp[1]) && bp++) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5120 || LOOKING_AT_NOCASE (bp, "constant") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5121 || LOOKING_AT_NOCASE (bp, "code") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5122 || LOOKING_AT_NOCASE (bp, "create") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5123 || LOOKING_AT_NOCASE (bp, "defer") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5124 || LOOKING_AT_NOCASE (bp, "value") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5125 || LOOKING_AT_NOCASE (bp, "variable") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5126 || LOOKING_AT_NOCASE (bp, "buffer:") |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5127 || LOOKING_AT_NOCASE (bp, "field")) |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5128 get_tag (skip_spaces (bp), NULL); /* Yay! A definition! */ |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5129 else |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5130 bp = skip_non_spaces (bp); |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5131 } |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5132 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5133 |
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5134 /* |
240 | 5135 * Scheme tag functions |
5136 * look for (def... xyzzy | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5137 * (def... (xyzzy |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5138 * (def ... ((...(xyzzy .... |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5139 * (set! xyzzy |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5140 * Original code by Ken Haase (1985?) |
240 | 5141 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5142 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5143 Scheme_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5144 FILE *inf; |
240 | 5145 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5146 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
|
5147 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5148 LOOP_ON_INPUT_LINES (inf, lb, bp) |
240 | 5149 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5150 if (strneq (bp, "(def", 4) || strneq (bp, "(DEF", 4)) |
240 | 5151 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5152 bp = skip_non_spaces (bp+4); |
240 | 5153 /* Skip over open parens and white space */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5154 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
|
5155 bp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5156 get_tag (bp, NULL); |
240 | 5157 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5158 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
|
5159 get_tag (bp, NULL); |
240 | 5160 } |
5161 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5162 |
240 | 5163 |
5164 /* Find tags in TeX and LaTeX input files. */ | |
5165 | |
5166 /* 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
|
5167 * Each entry records one such control sequence. |
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 * Original code from who knows whom. |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5170 * Ideas by: |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5171 * Stefan Monnier (2002) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5172 */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5173 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5174 static linebuffer *TEX_toktab = NULL; /* Table with tag tokens */ |
240 | 5175 |
5176 /* Default set of control sequences to put into TEX_toktab. | |
5177 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
|
5178 static char *TEX_defenv = "\ |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
5179 :chapter:section:subsection:subsubsection:eqno:label:ref:cite:bibitem\ |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5180 :part:appendix:entry:index:def\ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5181 :newcommand:renewcommand:newenvironment:renewenvironment"; |
240 | 5182 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5183 static void TEX_mode __P((FILE *)); |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5184 static void TEX_decode_env __P((char *, char *)); |
240 | 5185 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5186 static char TEX_esc = '\\'; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5187 static char TEX_opgrp = '{'; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5188 static char TEX_clgrp = '}'; |
240 | 5189 |
5190 /* | |
5191 * TeX/LaTeX scanning loop. | |
5192 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5193 static void |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5194 TeX_commands (inf) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5195 FILE *inf; |
240 | 5196 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5197 char *cp; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5198 linebuffer *key; |
240 | 5199 |
5200 /* 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
|
5201 TEX_mode (inf); |
240 | 5202 |
5203 /* Initialize token table once from environment. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5204 if (TEX_toktab == NULL) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5205 TEX_decode_env ("TEXTAGS", TEX_defenv); |
240 | 5206 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5207 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
|
5208 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5209 /* Look at each TEX keyword in line. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5210 for (;;) |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
5211 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5212 /* Look for a TEX escape. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5213 while (*cp++ != TEX_esc) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5214 if (cp[-1] == '\0' || cp[-1] == '%') |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5215 goto tex_next_line; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5216 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5217 for (key = TEX_toktab; key->buffer != NULL; key++) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5218 if (strneq (cp, key->buffer, key->len)) |
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 register char *p; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5221 int namelen, linelen; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5222 bool opgrp = FALSE; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5223 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5224 cp = skip_spaces (cp + key->len); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5225 if (*cp == TEX_opgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5226 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5227 opgrp = TRUE; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5228 cp++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5229 } |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5230 for (p = cp; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5231 (!iswhite (*p) && *p != '#' && |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5232 *p != TEX_opgrp && *p != TEX_clgrp); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5233 p++) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5234 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5235 namelen = p - cp; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5236 linelen = lb.len; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5237 if (!opgrp || *p == TEX_clgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5238 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5239 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
|
5240 p++; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5241 linelen = p - lb.buffer + 1; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5242 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5243 make_tag (cp, namelen, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5244 lb.buffer, linelen, lineno, linecharno); |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5245 goto tex_next_line; /* We only tag a line once */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5246 } |
240 | 5247 } |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5248 tex_next_line: |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5249 ; |
240 | 5250 } |
5251 } | |
5252 | |
5253 #define TEX_LESC '\\' | |
5254 #define TEX_SESC '!' | |
5255 | |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5256 /* 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
|
5257 chars accordingly. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5258 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5259 TEX_mode (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5260 FILE *inf; |
240 | 5261 { |
5262 int c; | |
5263 | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5264 while ((c = getc (inf)) != EOF) |
240 | 5265 { |
5266 /* 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
|
5267 if (c == '%') |
72314
b0755f0706c2
* etags.c (TEX_mode): Check getc retruns EOF.
Jan Djärv <jan.h.d@swipnet.se>
parents:
72192
diff
changeset
|
5268 while (c != '\n' && c != EOF) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5269 c = getc (inf); |
240 | 5270 else if (c == TEX_LESC || c == TEX_SESC ) |
5271 break; | |
5272 } | |
5273 | |
5274 if (c == TEX_LESC) | |
5275 { | |
5276 TEX_esc = TEX_LESC; | |
5277 TEX_opgrp = '{'; | |
5278 TEX_clgrp = '}'; | |
5279 } | |
5280 else | |
5281 { | |
5282 TEX_esc = TEX_SESC; | |
5283 TEX_opgrp = '<'; | |
5284 TEX_clgrp = '>'; | |
5285 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5286 /* 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
|
5287 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
|
5288 rewind (inf); |
240 | 5289 } |
5290 | |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5291 /* 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
|
5292 Build token table. */ |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5293 static void |
240 | 5294 TEX_decode_env (evarname, defenv) |
5295 char *evarname; | |
5296 char *defenv; | |
5297 { | |
5298 register char *env, *p; | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5299 int i, len; |
240 | 5300 |
5301 /* Append default string to environment. */ | |
5302 env = getenv (evarname); | |
5303 if (!env) | |
5304 env = defenv; | |
5305 else | |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5306 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5307 char *oldenv = env; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5308 env = concat (oldenv, defenv, ""); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5309 } |
240 | 5310 |
5311 /* Allocate a token table */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5312 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
|
5313 if ((p = etags_strchr (p, ':')) && *++p != '\0') |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5314 len++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5315 TEX_toktab = xnew (len, linebuffer); |
240 | 5316 |
5317 /* Unpack environment string into token table. Be careful about */ | |
5318 /* zero-length strings (leading ':', "::" and trailing ':') */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5319 for (i = 0; *env != '\0';) |
240 | 5320 { |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
5321 p = etags_strchr (env, ':'); |
240 | 5322 if (!p) /* End of environment string. */ |
5323 p = env + strlen (env); | |
5324 if (p - env > 0) | |
5325 { /* Only non-zero strings. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5326 TEX_toktab[i].buffer = savenstr (env, p - env); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5327 TEX_toktab[i].len = p - env; |
240 | 5328 i++; |
5329 } | |
5330 if (*p) | |
5331 env = p + 1; | |
5332 else | |
5333 { | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5334 TEX_toktab[i].buffer = NULL; /* Mark end of table. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5335 TEX_toktab[i].len = 0; |
240 | 5336 break; |
5337 } | |
5338 } | |
5339 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5340 |
240 | 5341 |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5342 /* Texinfo support. Dave Love, Mar. 2000. */ |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5343 static void |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5344 Texinfo_nodes (inf) |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5345 FILE * inf; |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5346 { |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5347 char *cp, *start; |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5348 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
|
5349 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
|
5350 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5351 start = cp; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5352 while (*cp != '\0' && *cp != ',') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5353 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5354 make_tag (start, cp - start, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5355 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
|
5356 } |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5357 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5358 |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5359 |
47081
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 * HTML support. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5362 * 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
|
5363 * 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
|
5364 * |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5365 * Francesco Potort́, 2002. |
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 static void |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5368 HTML_labels (inf) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5369 FILE * inf; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5370 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5371 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
|
5372 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
|
5373 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
|
5374 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
|
5375 char *end; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5376 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5377 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5378 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
|
5379 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5380 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
|
5381 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
|
5382 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5383 if (skiptag) /* skip HTML tag */ |
47081
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 while (*dbp != '\0' && *dbp != '>') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5386 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5387 if (*dbp == '>') |
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 dbp += 1; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5390 skiptag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5391 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5392 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5393 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5394 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5395 |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5396 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
|
5397 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5398 while (*dbp != '\0' && *dbp != '>' |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5399 && lowcase (*dbp) != 'n' && lowcase (*dbp) != 'i') |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5400 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5401 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5402 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5403 if (*dbp == '>') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5404 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5405 dbp += 1; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5406 intag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5407 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5408 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5409 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
|
5410 || LOOKING_AT_NOCASE (dbp, "id=")) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5411 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5412 bool quoted = (dbp[0] == '"'); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5413 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5414 if (quoted) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5415 for (end = ++dbp; *end != '\0' && *end != '"'; end++) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5416 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5417 else |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5418 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
|
5419 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5420 linebuffer_setlen (&token_name, end - dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5421 strncpy (token_name.buffer, dbp, end - dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5422 token_name.buffer[end - dbp] = '\0'; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5423 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5424 dbp = end; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5425 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
|
5426 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
|
5427 getnext = TRUE; /* then grab the text */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5428 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5429 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5430 dbp += 1; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5431 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5432 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5433 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
|
5434 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5435 dbp = skip_spaces (dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5436 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5437 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5438 if (*dbp == '<') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5439 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5440 intag = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5441 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
|
5442 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5443 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5444 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5445 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
|
5446 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5447 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
|
5448 dbp, end - dbp, lineno, linecharno); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5449 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
|
5450 getnext = FALSE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5451 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5452 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5453 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5454 else /* look for an interesting HTML tag */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5455 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5456 while (*dbp != '\0' && *dbp != '<') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5457 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5458 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5459 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
|
5460 intag = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5461 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
|
5462 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5463 inanchor = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5464 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
|
5465 } |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5466 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
|
5467 || LOOKING_AT_NOCASE (dbp, "<h1>") |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5468 || LOOKING_AT_NOCASE (dbp, "<h2>") |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5469 || LOOKING_AT_NOCASE (dbp, "<h3>")) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5470 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5471 intag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5472 getnext = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5473 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5474 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5475 dbp += 1; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5476 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5477 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5478 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5479 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5480 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5481 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5482 * Prolog support |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5483 * |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5484 * Assumes that the predicate or rule starts at column 0. |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5485 * 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
|
5486 * Original code by Sunichirou Sugou (1989) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5487 * 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
|
5488 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5489 static int prolog_pr __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5490 static void prolog_skip_comment __P((linebuffer *, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5491 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
|
5492 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5493 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5494 Prolog_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5495 FILE *inf; |
240 | 5496 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5497 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
|
5498 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5499 int allocated; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5500 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5501 allocated = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5502 len = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5503 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5504 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5505 LOOP_ON_INPUT_LINES (inf, lb, cp) |
240 | 5506 { |
26262
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 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
|
5508 continue; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
5509 else if (iswhite (cp[0])) /* Not a predicate */ |
240 | 5510 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
|
5511 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
|
5512 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
|
5513 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
|
5514 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5515 /* Predicate or rule. Store the function name so that we |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5516 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
|
5517 if (last == NULL) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5518 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
|
5519 else if (len + 1 > allocated) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5520 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
|
5521 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
|
5522 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
|
5523 last[len] = '\0'; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5524 } |
240 | 5525 } |
70342
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5526 if (last != NULL) |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5527 free (last); |
240 | 5528 } |
5529 | |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5530 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5531 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5532 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
|
5533 linebuffer *plb; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5534 FILE *inf; |
240 | 5535 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5536 char *cp; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5537 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5538 do |
240 | 5539 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5540 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
|
5541 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
|
5542 return; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5543 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
|
5544 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5545 while (!feof(inf)); |
240 | 5546 } |
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 /* |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5549 * 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
|
5550 * <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
|
5551 * 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
|
5552 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5553 * 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
|
5554 * 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
|
5555 * |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5556 * 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
|
5557 * 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
|
5558 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
5559 static int |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5560 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
|
5561 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5562 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
|
5563 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5564 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5565 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5566 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5567 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
|
5568 if (pos < 1) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5569 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5570 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5571 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
|
5572 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
|
5573 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5574 if ((s[pos] == '.' |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5575 || (s[pos] == '(' && (pos += 1)) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5576 || (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
|
5577 && (last == NULL /* save only the first clause */ |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
5578 || 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
|
5579 || !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
|
5580 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5581 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
|
5582 return len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5583 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5584 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5585 return 0; |
14859
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 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5588 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5589 * 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
|
5590 * 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
|
5591 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5592 * 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
|
5593 * - 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
|
5594 * - 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
|
5595 * Backslash quotes everything. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5596 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5597 static int |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5598 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
|
5599 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5600 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5601 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5602 int origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5603 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5604 origpos = pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5605 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5606 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
|
5607 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5608 /* 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
|
5609 pos++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5610 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
|
5611 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5612 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5613 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5614 return pos - origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5615 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5616 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
|
5617 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5618 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5619 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
5620 for (;;) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5621 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5622 if (s[pos] == '\'') |
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 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5625 if (s[pos] != '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5626 break; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5627 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
|
5628 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5629 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
|
5630 /* 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
|
5631 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5632 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
|
5633 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5634 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
|
5635 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5636 pos += 2; |
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 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5640 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5641 return pos - origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5642 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5643 else |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5644 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5645 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5646 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5647 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5648 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5649 * 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
|
5650 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5651 * 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
|
5652 * Assumes that Erlang functions start at column 0. |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5653 * 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
|
5654 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5655 static int erlang_func __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5656 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
|
5657 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
|
5658 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5659 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5660 Erlang_functions (inf) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5661 FILE *inf; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5662 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5663 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
|
5664 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5665 int allocated; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5666 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5667 allocated = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5668 len = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5669 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5670 |
26262
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 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
|
5672 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5673 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
|
5674 continue; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
5675 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
|
5676 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
|
5677 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
|
5678 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
|
5679 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
|
5680 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
|
5681 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
|
5682 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5683 erlang_attribute (cp); |
70342
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5684 if (last != NULL) |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5685 { |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5686 free (last); |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5687 last = NULL; |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5688 } |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5689 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5690 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
|
5691 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5692 /* |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5693 * 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
|
5694 * 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
|
5695 */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5696 if (last == NULL) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5697 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
|
5698 else if (len + 1 > allocated) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5699 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
|
5700 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
|
5701 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
|
5702 last[len] = '\0'; |
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 } |
70342
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5705 if (last != NULL) |
f483d24dc1dd
(Perl_functions): Free space allocated for var package.
Francesco Potortì <pot@gnu.org>
parents:
70282
diff
changeset
|
5706 free (last); |
14859
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 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5709 |
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 * 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
|
5712 * <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
|
5713 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5714 * 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
|
5715 * 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
|
5716 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5717 * 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
|
5718 * was found. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5719 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
5720 static int |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5721 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
|
5722 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5723 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
|
5724 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5725 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5726 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5727 |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5728 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
|
5729 if (pos < 1) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5730 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5731 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5732 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
|
5733 pos = skip_spaces (s + pos) - s; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5734 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5735 /* Save only the first clause. */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5736 if (s[pos++] == '(' |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5737 && (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
|
5738 || len != (int)strlen (last) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5739 || !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
|
5740 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5741 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
|
5742 return len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5743 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5744 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5745 return 0; |
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 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5748 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5749 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5750 * 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
|
5751 * and records. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5752 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5753 * 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
|
5754 * -define(foo, bar). |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5755 * -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
|
5756 * -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
|
5757 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5758 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5759 erlang_attribute (s) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5760 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5761 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5762 char *cp = s; |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5763 |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5764 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
|
5765 && *cp++ == '(') |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5766 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5767 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
|
5768 if (len > 0) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5769 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
|
5770 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5771 return; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5772 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5773 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5774 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5775 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5776 * 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
|
5777 * 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
|
5778 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5779 static int |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5780 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
|
5781 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5782 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5783 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
|
5784 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5785 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
|
5786 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5787 /* The atom is unquoted. */ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5788 do |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5789 pos++; |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5790 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
|
5791 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5792 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
|
5793 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5794 for (pos++; s[pos] != '\''; pos++) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5795 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
|
5796 || (s[pos] == '\\' && s[++pos] == '\0')) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5797 return 0; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5798 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5799 } |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5800 |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5801 return pos; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5802 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5803 |
240 | 5804 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5805 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
|
5806 static void add_regex __P((char *, language *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5807 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
|
5808 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5809 /* |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5810 * 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
|
5811 * 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
|
5812 * 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
|
5813 * 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
|
5814 * 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
|
5815 * 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
|
5816 * unterminated regexps. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5817 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5818 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
|
5819 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
|
5820 char *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 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
|
5823 char *copyto = name; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5824 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
|
5825 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5826 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
|
5827 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5828 if (quoted) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5829 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5830 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
|
5831 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5832 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
|
5833 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
|
5834 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
|
5835 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
|
5836 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
|
5837 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
|
5838 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
|
5839 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
|
5840 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
|
5841 default: |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5842 if (*name == sep) |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5843 *copyto++ = sep; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5844 else |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5845 { |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5846 /* Something else is quoted, so preserve the quote. */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5847 *copyto++ = '\\'; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5848 *copyto++ = *name; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5849 } |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5850 break; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5851 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5852 quoted = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5853 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5854 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
|
5855 quoted = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5856 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
|
5857 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5858 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5859 *copyto++ = *name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5860 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5861 if (*name != sep) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5862 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
|
5863 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5864 /* 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
|
5865 *copyto = '\0'; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5866 return name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5867 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5868 |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5869 /* 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
|
5870 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
|
5871 static void |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5872 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
|
5873 char *regex_arg; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5874 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5875 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
|
5876 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5877 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
|
5878 return; |
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5879 } |
26262
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 |
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 /* 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
|
5882 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
|
5883 { |
26262
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 /* 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
|
5885 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
|
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 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
|
5888 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
|
5889 |
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 /* 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
|
5891 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
|
5892 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
|
5893 { |
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 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
|
5895 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
|
5896 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
|
5897 |
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 /* 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
|
5899 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
|
5900 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
|
5901 { |
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 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
|
5903 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
|
5904 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5905 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
|
5906 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
|
5907 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
|
5908 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
|
5909 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
|
5910 } |
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 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
|
5912 |
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 /* 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
|
5914 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
|
5915 { |
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 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
|
5917 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
|
5918 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
|
5919 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5920 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
|
5921 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
|
5922 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5923 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
|
5924 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
|
5925 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5926 *cp++ = '\0'; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5927 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
|
5928 if (lang == NULL) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5929 return; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5930 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
|
5931 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5932 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
|
5933 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5934 /* 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
|
5935 default: |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5936 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
|
5937 break; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5938 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5939 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5940 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5941 /* Separate the regexp pattern, compile it, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5942 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
|
5943 static void |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5944 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
|
5945 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
|
5946 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
|
5947 { |
37719
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
5948 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
|
5949 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
|
5950 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
|
5951 struct re_pattern_buffer *patbuf; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5952 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5953 bool |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5954 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
|
5955 ignore_case = FALSE, /* case is significant */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5956 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
|
5957 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
|
5958 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5959 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5960 if (strlen(regexp_pattern) < 3) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5961 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5962 error ("null regexp", (char *)NULL); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5963 return; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5964 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5965 sep = regexp_pattern[0]; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5966 name = scan_separators (regexp_pattern); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5967 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
|
5968 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5969 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
|
5970 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5971 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5972 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
|
5973 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5974 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
|
5975 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5976 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5977 modifiers = scan_separators (name); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5978 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
|
5979 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5980 modifiers = name; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5981 name = ""; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5982 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5983 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5984 modifiers += 1; /* skip separator */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5985 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5986 /* Parse regex modifiers. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5987 for (; modifiers[0] != '\0'; modifiers++) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5988 switch (modifiers[0]) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5989 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5990 case 'N': |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5991 if (modifiers == name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5992 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
|
5993 force_explicit_name = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5994 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5995 case 'i': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5996 ignore_case = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5997 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5998 case 's': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5999 single_line = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6000 /* FALLTHRU */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6001 case 'm': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6002 multi_line = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6003 need_filebuf = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6004 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6005 default: |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6006 { |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6007 char wrongmod [2]; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6008 wrongmod[0] = modifiers[0]; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6009 wrongmod[1] = '\0'; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6010 error ("invalid regexp modifier `%s', ignoring", wrongmod); |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6011 } |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
6012 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6013 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6014 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6015 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
|
6016 *patbuf = zeropattern; |
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
6017 if (ignore_case) |
45798
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 static char lc_trans[CHARS]; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6020 int i; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6021 for (i = 0; i < CHARS; i++) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6022 lc_trans[i] = lowcase (i); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6023 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
|
6024 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6025 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6026 if (multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6027 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
|
6028 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6029 pat = regexp_pattern; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6030 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6031 if (single_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6032 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
|
6033 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6034 re_set_syntax (RE_SYNTAX_EMACS); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6035 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6036 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
|
6037 if (multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6038 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
|
6039 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
|
6040 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6041 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
|
6042 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6043 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6044 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6045 rp = p_head; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6046 p_head = xnew (1, regexp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6047 p_head->pattern = savestr (regexp_pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6048 p_head->p_next = rp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6049 p_head->lang = lang; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6050 p_head->pat = patbuf; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6051 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
|
6052 p_head->error_signaled = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6053 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
|
6054 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
|
6055 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
|
6056 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6057 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6058 /* |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
6059 * 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
|
6060 * arguments. |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6061 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6062 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
|
6063 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
|
6064 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
|
6065 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
|
6066 { |
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
|
6067 char *result, *t; |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6068 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
|
6069 |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6070 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
|
6071 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
|
6072 |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6073 /* 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
|
6074 if (out[size - 1] == '\\') |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6075 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
|
6076 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
|
6077 t != NULL; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6078 t = etags_strchr (t + 2, '\\')) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
6079 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
|
6080 { |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6081 dig = t[1] - '0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6082 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
|
6083 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
|
6084 } |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6085 else |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6086 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
|
6087 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6088 /* 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
|
6089 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
|
6090 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
|
6091 |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6092 for (t = result; *out != '\0'; out++) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
6093 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
|
6094 { |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6095 dig = *out - '0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6096 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
|
6097 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
|
6098 t += diglen; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6099 } |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6100 else |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6101 *t++ = *out; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6102 *t = '\0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6103 |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6104 assert (t <= result + size); |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6105 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
|
6106 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6107 return result; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6108 } |
26262
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 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6110 /* Deallocate all regexps. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6111 static void |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6112 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
|
6113 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6114 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
|
6115 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
|
6116 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6117 rp = p_head->p_next; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6118 free (p_head->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6119 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
|
6120 free (p_head); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6121 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
|
6122 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6123 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
|
6124 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6125 |
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 * 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
|
6128 * 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
|
6129 * readline already dealt with normal regexps. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6130 * |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6131 * 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
|
6132 */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6133 static void |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6134 regex_tag_multiline () |
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 char *buffer = filebuf.buffer; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6137 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6138 char *name; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6139 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6140 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
|
6141 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6142 int match = 0; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6143 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6144 if (!rp->multi_line) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6145 continue; /* skip normal regexps */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6146 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6147 /* 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
|
6148 lineno = 1; /* reset global line number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6149 charno = 0; /* reset global char number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6150 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
|
6151 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6152 /* 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
|
6153 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
|
6154 continue; |
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 while (match >= 0 && match < filebuf.len) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6157 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6158 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
|
6159 filebuf.len - match, &rp->regs); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6160 switch (match) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6161 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6162 case -2: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6163 /* Some error. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6164 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6165 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6166 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
|
6167 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6168 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6169 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6170 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6171 case -1: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6172 /* No match. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6173 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6174 default: |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6175 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
|
6176 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6177 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6178 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6179 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
|
6180 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6181 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6182 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6183 match = -3; /* exit from while loop */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6184 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6185 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6186 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6187 /* Match occurred. Construct a tag. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6188 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
|
6189 if (buffer[charno++] == '\n') |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6190 lineno++, linecharno = charno; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6191 name = rp->name; |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6192 if (name[0] == '\0') |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6193 name = NULL; |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6194 else /* make a named tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6195 name = substitute (buffer, rp->name, &rp->regs); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6196 if (rp->force_explicit_name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6197 /* 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
|
6198 pfnote (name, TRUE, buffer + linecharno, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6199 charno - linecharno + 1, lineno, linecharno); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6200 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6201 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
|
6202 charno - linecharno + 1, lineno, linecharno); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6203 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6204 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6205 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6206 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6207 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6208 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6209 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6210 static bool |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6211 nocase_tail (cp) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6212 char *cp; |
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 register int len = 0; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6215 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6216 while (*cp != '\0' && lowcase (*cp) == lowcase (dbp[len])) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6217 cp++, len++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6218 if (*cp == '\0' && !intoken (dbp[len])) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6219 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6220 dbp += len; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6221 return TRUE; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6222 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6223 return FALSE; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6224 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6225 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6226 static void |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6227 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
|
6228 register char *bp; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6229 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
|
6230 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6231 register char *cp = bp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6232 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6233 if (*bp != '\0') |
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 /* 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
|
6236 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
|
6237 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6238 make_tag (bp, cp - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6239 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
|
6240 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6241 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6242 if (namepp != NULL) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6243 *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
|
6244 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6245 |
240 | 6246 /* |
26262
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 * 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
|
6248 * 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
|
6249 * `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
|
6250 * |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6251 * 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
|
6252 * 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
|
6253 * 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
|
6254 * file). |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6255 * |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6256 * 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
|
6257 * appended to `filebuf'. |
240 | 6258 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6259 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
|
6260 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
|
6261 linebuffer *lbp; |
240 | 6262 register FILE *stream; |
6263 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6264 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
|
6265 register char *p = lbp->buffer; |
240 | 6266 register char *pend; |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6267 int chars_deleted; |
240 | 6268 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6269 pend = p + lbp->size; /* Separate to avoid 386/IX compiler bug. */ |
240 | 6270 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
6271 for (;;) |
240 | 6272 { |
6273 register int c = getc (stream); | |
6274 if (p == pend) | |
6275 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6276 /* 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
|
6277 lbp->size *= 2; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6278 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
|
6279 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
|
6280 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
|
6281 lbp->buffer = buffer; |
240 | 6282 } |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6283 if (c == EOF) |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6284 { |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
6285 *p = '\0'; |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6286 chars_deleted = 0; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6287 break; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6288 } |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6289 if (c == '\n') |
240 | 6290 { |
10990
c0ceaa45ded7
* etags.c (process_file): free (filename) after using it.
Francesco Potortì <pot@gnu.org>
parents:
10801
diff
changeset
|
6291 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
|
6292 { |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6293 p -= 1; |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6294 #ifdef DOS_NT |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
6295 /* 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
|
6296 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
|
6297 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
|
6298 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
|
6299 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
|
6300 chars_deleted = 1; |
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6301 #else |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6302 chars_deleted = 2; |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6303 #endif |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6304 } |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6305 else |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6306 { |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6307 chars_deleted = 1; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6308 } |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6309 *p = '\0'; |
240 | 6310 break; |
6311 } | |
6312 *p++ = c; | |
6313 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6314 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
|
6315 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6316 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
|
6317 && chars_deleted > 0) /* not at EOF */ |
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 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
|
6320 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6321 /* Expand filebuf. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6322 filebuf.size *= 2; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6323 xrnew (filebuf.buffer, filebuf.size, char); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6324 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6325 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
|
6326 filebuf.len += lbp->len; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6327 filebuf.buffer[filebuf.len++] = '\n'; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6328 filebuf.buffer[filebuf.len] = '\0'; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6329 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6330 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6331 return lbp->len + chars_deleted; |
240 | 6332 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6333 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6334 /* |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6335 * 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
|
6336 * 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
|
6337 * directives. |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6338 */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6339 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
|
6340 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
|
6341 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
|
6342 FILE *stream; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6343 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6344 long result; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6345 |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6346 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
|
6347 result = readline_internal (lbp, stream); /* read line */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6348 lineno += 1; /* increment global line number */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6349 charno += result; /* increment global char number */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6350 |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
6351 /* 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
|
6352 if (!no_line_directive) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6353 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6354 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
|
6355 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6356 /* 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
|
6357 if (result > 12 && strneq (lbp->buffer, "#line ", 6)) |
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 unsigned int lno; |
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6360 int start = 0; |
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6361 |
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6362 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
|
6363 && start > 0) /* double quote character found */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6364 { |
74298
e3d189507be0
Previous changes checked in by jhd checked and cleaned up:
Francesco Potortì <pot@gnu.org>
parents:
72329
diff
changeset
|
6365 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
|
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 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
|
6368 && 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
|
6369 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
|
6370 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
|
6371 /* 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
|
6372 { |
44604
4702b23921b4
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 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
|
6374 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
|
6375 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
|
6376 |
4702b23921b4
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 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
|
6378 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
|
6379 *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
|
6380 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
|
6381 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
|
6382 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
|
6383 || 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
|
6384 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
|
6385 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
|
6386 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
|
6387 |
4702b23921b4
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 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
|
6389 /* 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
|
6390 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
|
6391 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
|
6392 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
|
6393 /* 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
|
6394 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
|
6395 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
|
6396 { |
4702b23921b4
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 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
|
6398 |
4702b23921b4
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 /* 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
|
6400 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
|
6401 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
|
6402 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
|
6403 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
|
6404 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
|
6405 && 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
|
6406 /* 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
|
6407 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
|
6408 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
|
6409 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
|
6410 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
|
6411 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
|
6412 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
|
6413 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
|
6414 { |
4702b23921b4
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 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
|
6416 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
|
6417 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
|
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 /* 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
|
6420 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
|
6421 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
|
6422 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
|
6423 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
|
6424 { |
4702b23921b4
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 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
|
6426 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
|
6427 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
|
6428 } |
4702b23921b4
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 /* 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
|
6430 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
|
6431 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
|
6432 { |
4702b23921b4
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 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
|
6434 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
|
6435 *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
|
6436 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
|
6437 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
|
6438 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
|
6439 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
|
6440 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
|
6441 fdhead->usecharno = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6442 fdhead->prop = NULL; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6443 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
|
6444 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
|
6445 } |
4702b23921b4
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 } |
4702b23921b4
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 free (taggedabsname); |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6448 lineno = lno - 1; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6449 readline (lbp, stream); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6450 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
|
6451 } /* 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
|
6452 } /* 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
|
6453 } /* 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
|
6454 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6455 /* 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
|
6456 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
|
6457 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6458 if (result > 0) |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6459 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6460 /* 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
|
6461 of the line buffer. */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6462 readline (lbp, stream); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6463 return; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6464 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6465 /* 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
|
6466 discard_until_line_directive = FALSE; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6467 return; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6468 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6469 } /* 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
|
6470 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6471 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6472 int match; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6473 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6474 char *name; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6475 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6476 /* Match against relevant regexps. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6477 if (lbp->len > 0) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6478 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
|
6479 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6480 /* 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
|
6481 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
|
6482 regex_tag_multiline. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6483 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
|
6484 || rp->multi_line) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6485 continue; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6486 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6487 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
|
6488 switch (match) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6489 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6490 case -2: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6491 /* Some error. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6492 if (!rp->error_signaled) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6493 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6494 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
|
6495 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6496 rp->error_signaled = TRUE; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6497 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6498 break; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6499 case -1: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6500 /* No match. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6501 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6502 case 0: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6503 /* Empty string matched. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6504 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6505 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6506 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
|
6507 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6508 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6509 break; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6510 default: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6511 /* Match occurred. Construct a tag. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6512 name = rp->name; |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6513 if (name[0] == '\0') |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6514 name = NULL; |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6515 else /* make a named tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6516 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
|
6517 if (rp->force_explicit_name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6518 /* 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
|
6519 pfnote (name, TRUE, lbp->buffer, match, lineno, linecharno); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6520 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6521 make_tag (name, strlen (name), TRUE, |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6522 lbp->buffer, match, lineno, linecharno); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6523 break; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6524 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6525 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6526 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6527 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6528 |
240 | 6529 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6530 /* |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6531 * 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
|
6532 * 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
|
6533 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6534 static char * |
240 | 6535 savestr (cp) |
6536 char *cp; | |
6537 { | |
6538 return savenstr (cp, strlen (cp)); | |
6539 } | |
6540 | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6541 /* |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6542 * 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
|
6543 * 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
|
6544 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6545 static char * |
240 | 6546 savenstr (cp, len) |
6547 char *cp; | |
6548 int len; | |
6549 { | |
6550 register char *dp; | |
6551 | |
6552 dp = xnew (len + 1, char); | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6553 strncpy (dp, cp, len); |
240 | 6554 dp[len] = '\0'; |
6555 return dp; | |
6556 } | |
6557 | |
6558 /* | |
6559 * Return the ptr in sp at which the character c last | |
6560 * appears; NULL if not found | |
6561 * | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6562 * Identical to POSIX strrchr, included for portability. |
240 | 6563 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6564 static char * |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6565 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
|
6566 register const char *sp; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6567 register int c; |
240 | 6568 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6569 register const char *r; |
240 | 6570 |
6571 r = NULL; | |
6572 do | |
6573 { | |
6574 if (*sp == c) | |
6575 r = sp; | |
6576 } while (*sp++); | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6577 return (char *)r; |
240 | 6578 } |
6579 | |
6580 /* | |
6581 * Return the ptr in sp at which the character c first | |
6582 * appears; NULL if not found | |
6583 * | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6584 * Identical to POSIX strchr, included for portability. |
240 | 6585 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6586 static char * |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6587 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
|
6588 register const char *sp; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6589 register int c; |
240 | 6590 { |
6591 do | |
6592 { | |
6593 if (*sp == c) | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6594 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
|
6595 } while (*sp++); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6596 return NULL; |
240 | 6597 } |
6598 | |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6599 /* |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6600 * 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
|
6601 * |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6602 * 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
|
6603 */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6604 static int |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6605 etags_strcasecmp (s1, s2) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6606 register const char *s1; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6607 register const char *s2; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6608 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6609 while (*s1 != '\0' |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6610 && (ISALPHA (*s1) && ISALPHA (*s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6611 ? lowcase (*s1) == lowcase (*s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6612 : *s1 == *s2)) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6613 s1++, s2++; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6614 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6615 return (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6616 ? lowcase (*s1) - lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6617 : *s1 - *s2); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6618 } |
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 /* |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6621 * 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
|
6622 * Stop after a given number of characters |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6623 * |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6624 * 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
|
6625 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6626 static int |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6627 etags_strncasecmp (s1, s2, n) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6628 register const char *s1; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6629 register const char *s2; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6630 register int n; |
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 while (*s1 != '\0' && n-- > 0 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6633 && (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6634 ? lowcase (*s1) == lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6635 : *s1 == *s2)) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6636 s1++, s2++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6637 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6638 if (n < 0) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6639 return 0; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6640 else |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6641 return (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6642 ? lowcase (*s1) - lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6643 : *s1 - *s2); |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6644 } |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6645 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
6646 /* 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
|
6647 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
|
6648 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
|
6649 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
|
6650 { |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
6651 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
|
6652 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 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
|
6654 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6655 |
65708
824d09eb82bf
Preliminary Forth support.
Francesco Potortì <pot@gnu.org>
parents:
64769
diff
changeset
|
6656 /* 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
|
6657 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
|
6658 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
|
6659 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
|
6660 { |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
6661 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
|
6662 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
|
6663 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
|
6664 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6665 |
240 | 6666 /* Print error message and exit. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6667 void |
240 | 6668 fatal (s1, s2) |
6669 char *s1, *s2; | |
6670 { | |
6671 error (s1, s2); | |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6672 exit (EXIT_FAILURE); |
240 | 6673 } |
6674 | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6675 static void |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6676 pfatal (s1) |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6677 char *s1; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6678 { |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6679 perror (s1); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6680 exit (EXIT_FAILURE); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6681 } |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6682 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6683 static void |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6684 suggest_asking_for_help () |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6685 { |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
6686 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
|
6687 progname, NO_LONG_OPTIONS ? "-h" : "--help"); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6688 exit (EXIT_FAILURE); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6689 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6690 |
240 | 6691 /* 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
|
6692 static void |
240 | 6693 error (s1, s2) |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6694 const char *s1, *s2; |
240 | 6695 { |
6696 fprintf (stderr, "%s: ", progname); | |
6697 fprintf (stderr, s1, s2); | |
6698 fprintf (stderr, "\n"); | |
6699 } | |
6700 | |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6701 /* Return a newly-allocated string whose contents |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6702 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
|
6703 static char * |
240 | 6704 concat (s1, s2, s3) |
6705 char *s1, *s2, *s3; | |
6706 { | |
6707 int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3); | |
6708 char *result = xnew (len1 + len2 + len3 + 1, char); | |
6709 | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6710 strcpy (result, s1); |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6711 strcpy (result + len1, s2); |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6712 strcpy (result + len1 + len2, s3); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6713 result[len1 + len2 + len3] = '\0'; |
240 | 6714 |
6715 return result; | |
6716 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6717 |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6718 |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6719 /* 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
|
6720 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
|
6721 static char * |
7227
6fa038c33a0f
[MSDOS]: #include <sys/param.h> for the following.
Richard M. Stallman <rms@gnu.org>
parents:
7049
diff
changeset
|
6722 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
|
6723 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6724 #ifdef HAVE_GETCWD |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6725 int bufsize = 200; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6726 char *path = xnew (bufsize, char); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6727 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6728 while (getcwd (path, bufsize) == NULL) |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6729 { |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
6730 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
|
6731 pfatal ("getcwd"); |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
6732 bufsize *= 2; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
6733 free (path); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6734 path = xnew (bufsize, char); |
8789
81a2817b99b2
(etags_getcwd): Use getcwd if available.
Karl Heuer <kwzh@gnu.org>
parents:
8180
diff
changeset
|
6735 } |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6736 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6737 canonicalize_filename (path); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6738 return path; |
16394
675944d1abc9
(etags_getcwd) [WINDOWSNT]: Convert backslashes to slashes.
Richard M. Stallman <rms@gnu.org>
parents:
16373
diff
changeset
|
6739 |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6740 #else /* not HAVE_GETCWD */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
6741 #if MSDOS |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6742 |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6743 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
|
6744 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6745 getwd (path); |
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 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
|
6748 if (*p == '\\') |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6749 *p = '/'; |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6750 else |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6751 *p = lowcase (*p); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6752 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6753 return strdup (path); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6754 #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
|
6755 linebuffer path; |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6756 FILE *pipe; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6757 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6758 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
|
6759 pipe = (FILE *) popen ("pwd 2>/dev/null", "r"); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6760 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
|
6761 pfatal ("pwd"); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6762 pclose (pipe); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6763 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6764 return path.buffer; |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6765 #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
|
6766 #endif /* not HAVE_GETCWD */ |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6767 } |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
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 /* 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
|
6770 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
|
6771 static char * |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6772 relative_filename (file, dir) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6773 char *file, *dir; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6774 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6775 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
|
6776 int i; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6777 |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
6778 /* 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
|
6779 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
|
6780 fp = afn; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6781 dp = dir; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6782 while (*fp++ == *dp++) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6783 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
|
6784 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
|
6785 #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
|
6786 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
|
6787 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
|
6788 #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
|
6789 do /* look at the equal chars until '/' */ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
6790 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
|
6791 while (*fp != '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6792 |
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
|
6793 /* 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
|
6794 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
|
6795 while ((dp = etags_strchr (dp + 1, '/')) != NULL) |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6796 i += 1; |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
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 */ |