diff options
author | kcook <kcook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-18 01:59:45 +0000 |
---|---|---|
committer | kcook <kcook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-18 01:59:45 +0000 |
commit | e8b212b8ab7e454dda69088b37952d12aa313766 (patch) | |
tree | c03c3ff40ade5a2a4cd1e88cba60f77e40759d7f /gcc/opt-functions.awk | |
parent | e24e8df7f2b15e0e0378aa8b65d85f1d3b8a348e (diff) | |
download | gcc-e8b212b8ab7e454dda69088b37952d12aa313766.tar.gz |
2004-06-18 Kelley Cook <kcook@gcc.gnu.org>
* opts.sh: Delete. Break out generated code to next four files.
* opt-gather.awk: New file.
* optc-gen.awk: New file.
* opth-gen.awk: New file.
* opt-functions.awk: New common file.
* Makefile.in: Update for above.
* configure.ac: Update comment.
* configure: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83333 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/opt-functions.awk')
-rw-r--r-- | gcc/opt-functions.awk | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/gcc/opt-functions.awk b/gcc/opt-functions.awk new file mode 100644 index 00000000000..a21f29d4b12 --- /dev/null +++ b/gcc/opt-functions.awk @@ -0,0 +1,76 @@ +# Copyright (C) 2003,2004 Free Software Foundation, Inc. +# Contributed by Kelley Cook, June 2004. +# Original code from Neil Booth, May 2003. +# +# 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. + +# Some common subroutines for use by opt[ch]-gen.awk. + +function switch_flags (flags) +{ + flags = " " flags " " + result = "0" + for (j = 0; j < n_langs; j++) { + regex = " " langs[j] " " + gsub ( "\\+", "\\+", regex ) + if (flags ~ regex) + result = result " | " macros[j] + } + if (flags ~ " Common ") result = result " | CL_COMMON" + if (flags ~ " Joined ") result = result " | CL_JOINED" + if (flags ~ " JoinedOrMissing ") \ + result = result " | CL_JOINED | CL_MISSING_OK" + if (flags ~ " Separate ") result = result " | CL_SEPARATE" + if (flags ~ " RejectNegative ") result = result " | CL_REJECT_NEGATIVE" + if (flags ~ " UInteger ") result = result " | CL_UINTEGER" + if (flags ~ " Undocumented ") result = result " | CL_UNDOCUMENTED" + if (flags ~ " Report ") result = result " | CL_REPORT" + sub( "^0 \\| ", "", result ) + return result +} + +function var_args(flags) +{ + if (flags !~ "Var\\(") + return "" + sub(".*Var\\(", "", flags) + sub("\\).*", "", flags) + + return flags +} +function var_name(flags) +{ + s = var_args(flags) + if (s == "") + return ""; + sub( ",.*", "", s) + return s +} +function var_set(flags) +{ + s = var_args(flags) + if (s !~ ",") + return "0, 0" + sub( "[^,]*,", "", s) + return "1, " s +} +function var_ref(flags) +{ + name = var_name(flags) + if (name == "") + return "0" + else + return "&" name +} |