head 1.1; access; symbols pkgsrc-2026Q1:1.1.0.184 pkgsrc-2026Q1-base:1.1 pkgsrc-2025Q4:1.1.0.182 pkgsrc-2025Q4-base:1.1 pkgsrc-2025Q3:1.1.0.180 pkgsrc-2025Q3-base:1.1 pkgsrc-2025Q2:1.1.0.178 pkgsrc-2025Q2-base:1.1 pkgsrc-2025Q1:1.1.0.176 pkgsrc-2025Q1-base:1.1 pkgsrc-2024Q4:1.1.0.174 pkgsrc-2024Q4-base:1.1 pkgsrc-2024Q3:1.1.0.172 pkgsrc-2024Q3-base:1.1 pkgsrc-2024Q2:1.1.0.170 pkgsrc-2024Q2-base:1.1 pkgsrc-2024Q1:1.1.0.168 pkgsrc-2024Q1-base:1.1 pkgsrc-2023Q4:1.1.0.166 pkgsrc-2023Q4-base:1.1 pkgsrc-2023Q3:1.1.0.164 pkgsrc-2023Q3-base:1.1 pkgsrc-2023Q2:1.1.0.162 pkgsrc-2023Q2-base:1.1 pkgsrc-2023Q1:1.1.0.160 pkgsrc-2023Q1-base:1.1 pkgsrc-2022Q4:1.1.0.158 pkgsrc-2022Q4-base:1.1 pkgsrc-2022Q3:1.1.0.156 pkgsrc-2022Q3-base:1.1 pkgsrc-2022Q2:1.1.0.154 pkgsrc-2022Q2-base:1.1 pkgsrc-2022Q1:1.1.0.152 pkgsrc-2022Q1-base:1.1 pkgsrc-2021Q4:1.1.0.150 pkgsrc-2021Q4-base:1.1 pkgsrc-2021Q3:1.1.0.148 pkgsrc-2021Q3-base:1.1 pkgsrc-2021Q2:1.1.0.146 pkgsrc-2021Q2-base:1.1 pkgsrc-2021Q1:1.1.0.144 pkgsrc-2021Q1-base:1.1 pkgsrc-2020Q4:1.1.0.142 pkgsrc-2020Q4-base:1.1 pkgsrc-2020Q3:1.1.0.140 pkgsrc-2020Q3-base:1.1 pkgsrc-2020Q2:1.1.0.136 pkgsrc-2020Q2-base:1.1 pkgsrc-2020Q1:1.1.0.116 pkgsrc-2020Q1-base:1.1 pkgsrc-2019Q4:1.1.0.138 pkgsrc-2019Q4-base:1.1 pkgsrc-2019Q3:1.1.0.134 pkgsrc-2019Q3-base:1.1 pkgsrc-2019Q2:1.1.0.132 pkgsrc-2019Q2-base:1.1 pkgsrc-2019Q1:1.1.0.130 pkgsrc-2019Q1-base:1.1 pkgsrc-2018Q4:1.1.0.128 pkgsrc-2018Q4-base:1.1 pkgsrc-2018Q3:1.1.0.126 pkgsrc-2018Q3-base:1.1 pkgsrc-2018Q2:1.1.0.124 pkgsrc-2018Q2-base:1.1 pkgsrc-2018Q1:1.1.0.122 pkgsrc-2018Q1-base:1.1 pkgsrc-2017Q4:1.1.0.120 pkgsrc-2017Q4-base:1.1 pkgsrc-2017Q3:1.1.0.118 pkgsrc-2017Q3-base:1.1 pkgsrc-2017Q2:1.1.0.114 pkgsrc-2017Q2-base:1.1 pkgsrc-2017Q1:1.1.0.112 pkgsrc-2017Q1-base:1.1 pkgsrc-2016Q4:1.1.0.110 pkgsrc-2016Q4-base:1.1 pkgsrc-2016Q3:1.1.0.108 pkgsrc-2016Q3-base:1.1 pkgsrc-2016Q2:1.1.0.106 pkgsrc-2016Q2-base:1.1 pkgsrc-2016Q1:1.1.0.104 pkgsrc-2016Q1-base:1.1 pkgsrc-2015Q4:1.1.0.102 pkgsrc-2015Q4-base:1.1 pkgsrc-2015Q3:1.1.0.100 pkgsrc-2015Q3-base:1.1 pkgsrc-2015Q2:1.1.0.98 pkgsrc-2015Q2-base:1.1 pkgsrc-2015Q1:1.1.0.96 pkgsrc-2015Q1-base:1.1 pkgsrc-2014Q4:1.1.0.94 pkgsrc-2014Q4-base:1.1 pkgsrc-2014Q3:1.1.0.92 pkgsrc-2014Q3-base:1.1 pkgsrc-2014Q2:1.1.0.90 pkgsrc-2014Q2-base:1.1 pkgsrc-2014Q1:1.1.0.88 pkgsrc-2014Q1-base:1.1 pkgsrc-2013Q4:1.1.0.86 pkgsrc-2013Q4-base:1.1 pkgsrc-2013Q3:1.1.0.84 pkgsrc-2013Q3-base:1.1 pkgsrc-2013Q2:1.1.0.82 pkgsrc-2013Q2-base:1.1 pkgsrc-2013Q1:1.1.0.80 pkgsrc-2013Q1-base:1.1 pkgsrc-2012Q4:1.1.0.78 pkgsrc-2012Q4-base:1.1 pkgsrc-2012Q3:1.1.0.76 pkgsrc-2012Q3-base:1.1 pkgsrc-2012Q2:1.1.0.74 pkgsrc-2012Q2-base:1.1 pkgsrc-2012Q1:1.1.0.72 pkgsrc-2012Q1-base:1.1 pkgsrc-2011Q4:1.1.0.70 pkgsrc-2011Q4-base:1.1 pkgsrc-2011Q3:1.1.0.68 pkgsrc-2011Q3-base:1.1 pkgsrc-2011Q2:1.1.0.66 pkgsrc-2011Q2-base:1.1 pkgsrc-2011Q1:1.1.0.64 pkgsrc-2011Q1-base:1.1 pkgsrc-2010Q4:1.1.0.62 pkgsrc-2010Q4-base:1.1 pkgsrc-2010Q3:1.1.0.60 pkgsrc-2010Q3-base:1.1 pkgsrc-2010Q2:1.1.0.58 pkgsrc-2010Q2-base:1.1 pkgsrc-2010Q1:1.1.0.56 pkgsrc-2010Q1-base:1.1 pkgsrc-2009Q4:1.1.0.54 pkgsrc-2009Q4-base:1.1 pkgsrc-2009Q3:1.1.0.52 pkgsrc-2009Q3-base:1.1 pkgsrc-2009Q2:1.1.0.50 pkgsrc-2009Q2-base:1.1 pkgsrc-2009Q1:1.1.0.48 pkgsrc-2009Q1-base:1.1 pkgsrc-2008Q4:1.1.0.46 pkgsrc-2008Q4-base:1.1 pkgsrc-2008Q3:1.1.0.44 pkgsrc-2008Q3-base:1.1 cube-native-xorg:1.1.0.42 cube-native-xorg-base:1.1 pkgsrc-2008Q2:1.1.0.40 pkgsrc-2008Q2-base:1.1 cwrapper:1.1.0.38 pkgsrc-2008Q1:1.1.0.36 pkgsrc-2008Q1-base:1.1 pkgsrc-2007Q4:1.1.0.34 pkgsrc-2007Q4-base:1.1 pkgsrc-2007Q3:1.1.0.32 pkgsrc-2007Q3-base:1.1 pkgsrc-2007Q2:1.1.0.30 pkgsrc-2007Q2-base:1.1 pkgsrc-2007Q1:1.1.0.28 pkgsrc-2007Q1-base:1.1 pkgsrc-2006Q4:1.1.0.26 pkgsrc-2006Q4-base:1.1 pkgsrc-2006Q3:1.1.0.24 pkgsrc-2006Q3-base:1.1 pkgsrc-2006Q2:1.1.0.22 pkgsrc-2006Q2-base:1.1 pkgsrc-2006Q1:1.1.0.20 pkgsrc-2006Q1-base:1.1 pkgsrc-2005Q4:1.1.0.18 pkgsrc-2005Q4-base:1.1 pkgsrc-2005Q3:1.1.0.16 pkgsrc-2005Q3-base:1.1 pkgsrc-2005Q2:1.1.0.14 pkgsrc-2005Q2-base:1.1 pkgsrc-2005Q1:1.1.0.12 pkgsrc-2005Q1-base:1.1 pkgsrc-2004Q4:1.1.0.10 pkgsrc-2004Q4-base:1.1 pkgsrc-2004Q3:1.1.0.8 pkgsrc-2004Q3-base:1.1 pkgsrc-2004Q2:1.1.0.6 pkgsrc-2004Q2-base:1.1 pkgsrc-2004Q1:1.1.0.4 pkgsrc-2004Q1-base:1.1 pkgsrc-2003Q4:1.1.0.2 pkgsrc-2003Q4-base:1.1; locks; strict; comment @# @; 1.1 date 2003.07.12.11.39.53; author jtb; state Exp; branches; next ; desc @@ 1.1 log @Add the patches this time. @ text @$NetBSD$ --- ../gcc-2.95.3/gcc/p/gpc.c.orig +++ ../gcc-2.95.3/gcc/p/gpc.c @@@@ -245,9 +245,13 @@@@ static void clear_failure_queue PROTO((void)); static int check_live_switch PROTO((int, int)); static const char *handle_braces PROTO((const char *)); +static const struct spec_function *lookup_spec_function PROTO((const char *)); +static const char *eval_spec_function PROTO((const char *, const char *)); +static const char *handle_spec_function PROTO((const char *)); static char *save_string PROTO((const char *, int)); extern int do_spec PROTO((const char *)); static int do_spec_1 PROTO((const char *, int, const char *)); +static int do_spec_2 PROTO((const char *)); static const char *find_file PROTO((const char *)); static int is_directory PROTO((const char *, const char *, int)); static void validate_switches PROTO((const char *)); @@@@ -280,6 +284,7 @@@@ static void process_command PROTO ((int, char **)); static int execute PROTO ((void)); static void unused_prefix_warnings PROTO ((struct path_prefix *)); +static void alloc_args PROTO ((void)); static void clear_args PROTO ((void)); static void fatal_error PROTO ((int)); @@@@ -290,6 +295,9 @@@@ extern char *xrealloc PROTO((void *, size_t)); #endif + +static const char *if_exists_spec_function PROTO ((int, const char **)); + /* Specs are strings containing lines, each of which (if not blank) is made up of a program name, and arguments separated by spaces. The program name must be exact and start from root, since no path @@@@ -373,6 +381,12 @@@@ %* substitute the variable part of a matched option. (See below.) Note that each comma in the substituted string is replaced by a single space. + %:function(args) + Call the named function FUNCTION, passing it ARGS. ARGS is + first processed as a nested spec string, then split into an + argument vector in the usual fashion. The function returns + a string which is processed as if it had appeared literally + as part of the current spec. %{S} substitutes the -S switch, if that switch was given to CC. If that switch was not specified, this substitutes nothing. Here S is a metasyntactic variable. @@@@ -1370,6 +1384,24 @@@@ static struct spec_list *specs = (struct spec_list *)0; +/* The mapping of a spec function name to the C function that + implements it. */ +struct spec_function +{ + const char *name; + const char *(*func) PROTO ((int, const char **)); +}; + +/* List of static spec functions. */ + +static const struct spec_function static_spec_functions[] = +{ + { "if-exists", if_exists_spec_function }, + { 0, 0 } +}; + +static int processing_spec_function; + /* Initialize the specs lookup routines. */ static void @@@@ -1598,6 +1630,15 @@@@ static char *multilib_dir; +/* Allocate the argument vector. */ + +static void +alloc_args () +{ + argbuf_length = 10; + argbuf = (char **) xmalloc (argbuf_length * sizeof (char *)); +} + #ifdef GPC /* Print a help screen and exit */ static void print_message_and_exit PROTO((void)); @@@@ -2482,6 +2523,9 @@@@ struct command *commands; /* each command buffer with above info. */ + if (processing_spec_function) + abort (); + /* Count # of piped commands. */ for (n_commands = 1, i = 0; i < argbuf_index; i++) if (strcmp (argbuf[i], "|") == 0) @@@@ -2665,6 +2709,11 @@@@ static int n_infiles; +/* This counts the number of libraries added by lang_specific_driver, so that + we can tell if there were any user supplied any files or libraries. */ + +static int added_libraries; + /* And a vector of corresponding output files is made up later. */ static const char **outfiles; @@@@ -2851,7 +2900,7 @@@@ strncpy (nstore, startp, endp-startp); if (endp == startp) strcpy (nstore, concat (".", dir_separator_str, NULL_PTR)); - else if (endp[-1] != '/' && endp[-1] != DIR_SEPARATOR) + else if (!IS_DIR_SEPARATOR (endp[-1])) { nstore[endp-startp] = DIR_SEPARATOR; nstore[endp-startp+1] = 0; @@@@ -2882,7 +2931,7 @@@@ strncpy (nstore, startp, endp-startp); if (endp == startp) strcpy (nstore, concat (".", dir_separator_str, NULL_PTR)); - else if (endp[-1] != '/' && endp[-1] != DIR_SEPARATOR) + else if (!IS_DIR_SEPARATOR (endp[-1])) { nstore[endp-startp] = DIR_SEPARATOR; nstore[endp-startp+1] = 0; @@@@ -2915,7 +2964,7 @@@@ strncpy (nstore, startp, endp-startp); if (endp == startp) strcpy (nstore, concat (".", dir_separator_str, NULL_PTR)); - else if (endp[-1] != '/' && endp[-1] != DIR_SEPARATOR) + else if (!IS_DIR_SEPARATOR (endp[-1])) { nstore[endp-startp] = DIR_SEPARATOR; nstore[endp-startp+1] = 0; @@@@ -3518,14 +3567,7 @@@@ { int value; - clear_args (); - arg_going = 0; - delete_this_arg = 0; - this_is_output_file = 0; - this_is_library_file = 0; - input_from_pipe = 0; - - value = do_spec_1 (spec, 0, NULL_PTR); + value = do_spec_2 (spec); /* Force out any unfinished command. If -pipe, this forces out the last command if it ended in `|'. */ @@@@ -3541,6 +3583,20 @@@@ return value; } +static int +do_spec_2 (spec) + const char *spec; +{ + clear_args (); + arg_going = 0; + delete_this_arg = 0; + this_is_output_file = 0; + this_is_library_file = 0; + input_from_pipe = 0; + + return do_spec_1 (spec, 0, NULL_PTR); +} + /* Process the sub-spec SPEC as a portion of a larger spec. This is like processing a whole spec except that we do not initialize at the beginning and we do not supply a @@@@ -4258,6 +4314,12 @@@@ return -1; break; + case ':': + p = handle_spec_function (p); + if (p == 0) + return -1; + break; + case '%': obstack_1grow (&obstack, '%'); break; @@@@ -4414,7 +4476,173 @@@@ arg_going = 1; } - return 0; /* End of string */ + /* End of string. If we are processing a spec function, we need to + end any pending argument. */ + if (processing_spec_function && arg_going) + { + obstack_1grow (&obstack, 0); + string = obstack_finish (&obstack); + if (this_is_library_file) + string = find_file (string); + store_arg (string, delete_this_arg, this_is_output_file); + if (this_is_output_file) + outfiles[input_file_number] = string; + arg_going = 0; + } + + return 0; +} + +/* Look up a spec function. */ + +static const struct spec_function * +lookup_spec_function (name) + const char *name; +{ + static const struct spec_function * const spec_function_tables[] = + { + static_spec_functions, + }; + const struct spec_function *sf; + unsigned int i; + + for (i = 0; i < ARRAY_SIZE (spec_function_tables); i++) + { + for (sf = spec_function_tables[i]; sf->name != NULL; sf++) + if (strcmp (sf->name, name) == 0) + return sf; + } + + return NULL; +} + +/* Evaluate a spec function. */ + +static const char * +eval_spec_function (func, args) + const char *func, *args; +{ + const struct spec_function *sf; + const char *funcval; + + /* Saved spec processing context. */ + int save_argbuf_index; + int save_argbuf_length; + char **save_argbuf; + + int save_arg_going; + int save_delete_this_arg; + int save_this_is_output_file; + int save_this_is_library_file; + int save_input_from_pipe; + + + sf = lookup_spec_function (func); + if (sf == NULL) + fatal ("unknown spec function `%s'", func); + + /* Push the spec processing context. */ + save_argbuf_index = argbuf_index; + save_argbuf_length = argbuf_length; + save_argbuf = argbuf; + + save_arg_going = arg_going; + save_delete_this_arg = delete_this_arg; + save_this_is_output_file = this_is_output_file; + save_this_is_library_file = this_is_library_file; + save_input_from_pipe = input_from_pipe; + + /* Create a new spec processing context, and build the function + arguments. */ + + alloc_args (); + if (do_spec_2 (args) < 0) + fatal ("error in args to spec function `%s'", func); + + /* argbuf_index is an index for the next argument to be inserted, and + so contains the count of the args already inserted. */ + + funcval = (*sf->func) (argbuf_index, (const char **) argbuf); + + /* Pop the spec processing context. */ + argbuf_index = save_argbuf_index; + argbuf_length = save_argbuf_length; + free (argbuf); + argbuf = save_argbuf; + + arg_going = save_arg_going; + delete_this_arg = save_delete_this_arg; + this_is_output_file = save_this_is_output_file; + this_is_library_file = save_this_is_library_file; + input_from_pipe = save_input_from_pipe; + + return funcval; +} + +/* Handle a spec function call of the form: + + %:function(args) + + ARGS is processed as a spec in a separate context and split into an + argument vector in the normal fashion. The function returns a string + containing a spec which we then process in the caller's context, or + NULL if no processing is required. */ + +static const char * +handle_spec_function (p) + const char *p; +{ + char *func, *args; + const char *endp, *funcval; + int count; + + processing_spec_function++; + + /* Get the function name. */ + for (endp = p; *endp != '\0'; endp++) + { + if (*endp == '(') /* ) */ + break; + /* Only allow [A-Za-z0-9], -, and _ in function names. */ + if (!ISALNUM (*endp) && !(*endp == '-' || *endp == '_')) + fatal ("malformed spec function name"); + } + if (*endp != '(') /* ) */ + fatal ("no arguments for spec function"); + func = save_string (p, endp - p); + p = ++endp; + + /* Get the arguments. */ + for (count = 0; *endp != '\0'; endp++) + { + /* ( */ + if (*endp == ')') + { + if (count == 0) + break; + count--; + } + else if (*endp == '(') /* ) */ + count++; + } + /* ( */ + if (*endp != ')') + fatal ("malformed spec function arguments"); + args = save_string (p, endp - p); + p = ++endp; + + /* p now points to just past the end of the spec function expression. */ + + funcval = eval_spec_function (func, args); + if (funcval != NULL && do_spec_1 (funcval, 0, NULL) < 0) + p = NULL; + + free (func); + free (args); + + processing_spec_function--; + + return p; } /* Return 0 if we call do_spec_1 and that returns -1. */ @@@@ -5146,7 +5374,8 @@@@ #endif /* GPC */ p = argv[0] + strlen (argv[0]); - while (p != argv[0] && p[-1] != '/' && p[-1] != DIR_SEPARATOR) --p; + while (p != argv[0] && !IS_DIR_SEPARATOR (p[-1])) + --p; programname = p; #ifdef GPC @@@@ -5166,8 +5395,8 @@@@ signal (SIGPIPE, fatal_error); #endif - argbuf_length = 10; - argbuf = (char **) xmalloc (argbuf_length * sizeof (char *)); + /* Allocate the argument vector. */ + alloc_args (); obstack_init (&obstack); @@@@ -5469,7 +5698,7 @@@@ #endif } - if (n_infiles == 0) + if (n_infiles == added_libraries) fatal ("No input files"); /* Make a place to record the compiler output file names @@@@ -6380,3 +6609,25 @@@@ ++p; } } + +/* if-exists built-in spec function. + + Checks to see if the file specified by the absolute pathname in + ARGS exists. Returns that pathname if found. + + The usual use for this function is to check for a library file + (whose name has been expanded with %s). */ + +#define IS_ABSOLUTE_PATHNAME(cp) ((cp)[0] == '/') + +static const char * +if_exists_spec_function (argc, argv) + int argc; + const char **argv; +{ + /* Must have only one argument. */ + if (argc == 1 && IS_ABSOLUTE_PATHNAME (argv[0]) && ! access (argv[0], R_OK)) + return argv[0]; + + return NULL; +} @