summaryrefslogtreecommitdiff
path: root/gcc/scan-decls.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/scan-decls.c')
-rwxr-xr-xgcc/scan-decls.c253
1 files changed, 0 insertions, 253 deletions
diff --git a/gcc/scan-decls.c b/gcc/scan-decls.c
deleted file mode 100755
index 2c6f12a..0000000
--- a/gcc/scan-decls.c
+++ /dev/null
@@ -1,253 +0,0 @@
-/* scan-decls.c - Extracts declarations from cpp output.
- Copyright (C) 1993, 1995, 1997, 1998 Free Software Foundation, Inc.
-
-This program is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 2, or (at your option) any
-later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
- Written by Per Bothner <bothner@cygnus.com>, July 1993. */
-
-#include "hconfig.h"
-#include "system.h"
-#include "cpplib.h"
-#include "scan.h"
-
-int brace_nesting = 0;
-
-/* The first extern_C_braces_length elements of extern_C_braces
- indicate the (brace nesting levels of) left braces that were
- prefixed by extern "C". */
-int extern_C_braces_length = 0;
-char extern_C_braces[20];
-#define in_extern_C_brace (extern_C_braces_length>0)
-
-/* True if the function declaration currently being scanned is
- prefixed by extern "C". */
-int current_extern_C = 0;
-
-static void
-skip_to_closing_brace (pfile)
- cpp_reader *pfile;
-{
- int nesting = 1;
- for (;;)
- {
- enum cpp_token token = cpp_get_token (pfile);
- if (token == CPP_EOF)
- break;
- if (token == CPP_LBRACE)
- nesting++;
- if (token == CPP_RBRACE && --nesting == 0)
- break;
- }
-}
-
-/* This function scans a C source file (actually, the output of cpp),
- reading from FP. It looks for function declarations, and
- external variable declarations.
-
- The following grammar (as well as some extra stuff) is recognized:
-
- declaration:
- (decl-specifier)* declarator ("," declarator)* ";"
- decl-specifier:
- identifier
- keyword
- extern "C"
- declarator:
- (ptr-operator)* dname [ "(" argument-declaration-list ")" ]
- ptr-operator:
- ("*" | "&") ("const" | "volatile")*
- dname:
- identifier
-
-Here dname is the actual name being declared.
-*/
-
-int
-scan_decls (pfile, argc, argv)
- cpp_reader *pfile;
- int argc ATTRIBUTE_UNUSED;
- char **argv ATTRIBUTE_UNUSED;
-{
- int saw_extern, saw_inline;
- int start_written;
- /* If declarator_start is non-zero, it marks the start of the current
- declarator. If it is zero, we are either still parsing the
- decl-specs, or prev_id_start marks the start of the declarator. */
- int declarator_start;
- int prev_id_start, prev_id_end;
- enum cpp_token token;
-
- new_statement:
- CPP_SET_WRITTEN (pfile, 0);
- start_written = 0;
- token = cpp_get_token (pfile);
-
- handle_statement:
- current_extern_C = 0;
- saw_extern = 0;
- saw_inline = 0;
- if (token == CPP_RBRACE)
- {
- /* Pop an 'extern "C"' nesting level, if appropriate. */
- if (extern_C_braces_length
- && extern_C_braces[extern_C_braces_length - 1] == brace_nesting)
- extern_C_braces_length--;
- brace_nesting--;
- goto new_statement;
- }
- if (token == CPP_LBRACE)
- {
- brace_nesting++;
- goto new_statement;
- }
- if (token == CPP_EOF)
- return 0;
- if (token == CPP_SEMICOLON)
- goto new_statement;
- if (token != CPP_NAME)
- goto new_statement;
-
- prev_id_start = 0;
- declarator_start = 0;
- for (;;)
- {
- switch (token)
- {
- case CPP_LPAREN:
- /* Looks like this is the start of a formal parameter list. */
- if (prev_id_start)
- {
- int nesting = 1;
- int have_arg_list = 0;
- cpp_buffer *fbuf = cpp_file_buffer (pfile);
- long func_lineno;
- cpp_buf_line_and_col (fbuf, &func_lineno, NULL);
- for (;;)
- {
- token = cpp_get_token (pfile);
- if (token == CPP_LPAREN)
- nesting++;
- else if (token == CPP_RPAREN)
- {
- nesting--;
- if (nesting == 0)
- break;
- }
- else if (token == CPP_EOF)
- break;
- else if (token == CPP_NAME || token == CPP_3DOTS)
- have_arg_list = 1;
- }
- recognized_function (pfile->token_buffer + prev_id_start,
- prev_id_end - prev_id_start,
- (saw_inline ? 'I'
- : in_extern_C_brace || current_extern_C
- ? 'F' : 'f'),
- pfile->token_buffer, prev_id_start,
- have_arg_list,
- fbuf->nominal_fname, func_lineno);
- token = cpp_get_non_space_token (pfile);
- if (token == CPP_LBRACE)
- {
- /* skip body of (normally) inline function */
- skip_to_closing_brace (pfile);
- goto new_statement;
- }
- goto maybe_handle_comma;
- }
- break;
- case CPP_OTHER:
- if (CPP_WRITTEN (pfile) == (size_t) start_written + 1
- && (CPP_PWRITTEN (pfile)[-1] == '*'
- || CPP_PWRITTEN (pfile)[-1] == '&'))
- declarator_start = start_written;
- else
- goto handle_statement;
- break;
- case CPP_COMMA:
- case CPP_SEMICOLON:
- if (prev_id_start && saw_extern)
- {
- recognized_extern (pfile->token_buffer + prev_id_start,
- prev_id_end - prev_id_start,
- pfile->token_buffer,
- prev_id_start);
- }
- /* ... fall through ... */
- maybe_handle_comma:
- if (token != CPP_COMMA)
- goto new_statement;
- handle_comma:
- /* Handle multiple declarators in a single declaration,
- as in: extern char *strcpy (), *strcat (), ... ; */
- if (declarator_start == 0)
- declarator_start = prev_id_start;
- CPP_SET_WRITTEN (pfile, declarator_start);
- break;
- case CPP_NAME:
- /* "inline" and "extern" are recognized but skipped */
- if (strcmp (pfile->token_buffer, "inline") == 0)
- {
- saw_inline = 1;
- CPP_SET_WRITTEN (pfile, start_written);
- }
- if (strcmp (pfile->token_buffer, "extern") == 0)
- {
- saw_extern = 1;
- CPP_SET_WRITTEN (pfile, start_written);
- token = cpp_get_non_space_token (pfile);
- if (token == CPP_STRING
- && strcmp (pfile->token_buffer, "\"C\"") == 0)
- {
- CPP_SET_WRITTEN (pfile, start_written);
- current_extern_C = 1;
- token = cpp_get_non_space_token (pfile);
- if (token == CPP_LBRACE)
- {
- brace_nesting++;
- extern_C_braces[extern_C_braces_length++]
- = brace_nesting;
- goto new_statement;
- }
- }
- else
- continue;
- break;
- }
- /* This may be the name of a variable or function. */
- prev_id_start = start_written;
- prev_id_end = CPP_WRITTEN (pfile);
- break;
-
- case CPP_EOF:
- return 0;
-
- case CPP_LBRACE: case CPP_RBRACE: case CPP_DIRECTIVE:
- goto new_statement; /* handle_statement? */
-
- case CPP_HSPACE: case CPP_VSPACE: case CPP_COMMENT: case CPP_POP:
- /* Skip initial white space. */
- if (start_written == 0)
- CPP_SET_WRITTEN (pfile, 0);
- break;
-
- default:
- prev_id_start = 0;
- }
-
- start_written = CPP_WRITTEN (pfile);
- token = cpp_get_token (pfile);
- }
-}
generated by cgit v1.2.3 (git 2.25.1) at 2025-05-06 13:41:46 +0000