contrib/bmake/var.c

212 #define VAR_REEXPORT	32	    /* Indicate if var needs re-export.
240 #define VAR_MATCH_END	0x10	/* Match at end of word */
283     regex_t	   re;
291 /* struct passed to VarSelectWords() for ":[start..end]" */
294     int		end;		/* last word to select */
634 	     * Flag this as something we need to re-export.
644 	     * This isn't going to end well, just skip it.
1509 			 * Also anchored at end and matches to the end (word
1523 		     * Doesn't match to end -- copy word wholesale
1548 	     * Anchored at end, Find only place match could occur (leftLen
1549 	     * characters from the end of the word) and see if it does. Note
1550 	     * that because the $ will be left at the end of the lhs, we have
1573 		 * Had to match at end and didn't. Copy entire word.
1708 	xrv = regexec(&pat->re, wp, pat->nsub, pat->matches, flags);
1785 	VarREError(xrv, &pat->re, "Unexpected regex error");
1850  *	Implements the :[start..end] modifier.
1852  *	to scan the list backwards if start > end.
1877     int start, end, step;
1895      * If seldata->start or seldata->end are negative, convert them to
1901     if (seldata->end < 0)
1902 	seldata->end = ac + seldata->end + 1;
1907     if (seldata->start > seldata->end) {
1909 	end = MAX(0, seldata->end - 1);
1913 	end = MIN(ac, seldata->end);
1918 	 (step < 0 && i >= end) || (step > 0 && i < end);
2082 	} /* end of switch */
2246 		     * Unescaped $ at end of pattern => anchor
2247 		     * pattern at end.
2271 			 * Find the end of this variable reference
2475  *	  :[start..end]	Select multiple words from the value.
2486  *    	  :lhs=rhs  	Like :S, but the rhs goes to the end of
2969 		     * separated by ".." for :[start..end].
2980 			seldata.end = seldata.start;
2985 			seldata.end = strtol(ep, &ep, 0);
3001 		    if (seldata.start == 0 && seldata.end == 0) {
3009 			       seldata.end == 0) {
3141 			 * re-expanded without the spaces.
3200 		const char *endpat; /* points just after end of pattern */
3423 		char           *re;
3434 		if ((re = VarGetPattern(ctxt, &parsestate, flags, &cp, delim,
3441 		    free(re);
3462 		error = regcomp(&pattern.re, re, REG_EXTENDED);
3463 		free(re);
3466 		    VarREError(error, &pattern.re, "RE substitution error");
3471 		pattern.nsub = pattern.re.re_nsub + 1;
3481 		regfree(&pattern.re);
3644 		 * string. Note the pattern is anchored at the end.
3755     Boolean 	    dynamic;	/* TRUE if the variable is local and we're
3825 	 * Skip to the end character or a colon, whichever comes first.
3864 	     * If we never did find the end character, return NULL
3866 	     * the end of the string, since that's what make does.
3881 	 * to the char just after the end of the variable name -- this
3887 	 * Check also for bogus D and F forms of local variables since we're
3965 		 * Still need to get to the end of the variable specification,
4122 	     * Skip as many characters as possible -- either to the end of
4153 			 * Scan up to the end of the variable name.
4197 	     * variable invocation (from $ to end character...)