usr.bin/make/var.c

110 	const char	*ptr;		/* current parser pos in input str */
402 	const char	*ptr;
410 	if ((ptr = Str_SYSVMatch(word, Buf_Data(pat->lhs), &len)) != NULL)
411 		Str_SYSVSubst(buf, Buf_Data(pat->rhs), ptr, len);
1287 	while (*vp->ptr != '\0') {
1288 		if (*vp->ptr == delim) {
1291 		} else if ((vp->ptr[0] == '\\') &&
1292 		    ((vp->ptr[1] == delim) ||
1293 		     (vp->ptr[1] == '\\') ||
1294 		     (vp->ptr[1] == '$') ||
1295 		     (vp->ptr[1] == '&' && patt != NULL))) {
1296 			vp->ptr++;		/* consume backslash */
1297 			Buf_AddByte(buf, (Byte)vp->ptr[0]);
1298 			vp->ptr++;
1300 		} else if (vp->ptr[0] == '$') {
1301 			if (vp->ptr[1] == delim) {
1303 					Buf_AddByte(buf, (Byte)vp->ptr[0]);
1304 					vp->ptr++;
1311 					vp->ptr++;
1315 					vp->ptr,
1316 					vp->ptr,
1334 				vp->ptr = subvp.ptr;
1336 		} else if (vp->ptr[0] == '&' && patt != NULL) {
1338 			vp->ptr++;
1340 			Buf_AddByte(buf, (Byte)vp->ptr[0]);
1341 			vp->ptr++;
1397 	char	*ptr;
1401 	modifier = vp->ptr[0];
1402 	vp->ptr++;	/* consume 'M' or 'N' */
1409 	patt = estrdup(vp->ptr);
1410 	ptr = patt;
1411 	while (vp->ptr[0] != '\0') {
1412 		if (vp->ptr[0] == endc || vp->ptr[0] == ':') {
1415 		if (vp->ptr[0] == '\\' &&
1416 		    (vp->ptr[1] == endc || vp->ptr[1] == ':')) {
1417 			vp->ptr++;	/* consume backslash */
1419 		*ptr = vp->ptr[0];
1420 		ptr++;
1421 		vp->ptr++;
1423 	*ptr = '\0';
1449 	vp->ptr++;		/* consume 'S' */
1451 	delim = *vp->ptr;	/* used to find end of pattern */
1452 	vp->ptr++;		/* consume 1st delim */
1458 	if (*vp->ptr == '^') {
1460 		vp->ptr++;
1472 	vp->ptr++;	/* consume 2nd delim */
1483 	vp->ptr++;	/* consume last delim */
1489 	if (vp->ptr[0] == 'g') {
1491 		vp->ptr++;
1525 	vp->ptr++;		/* consume 'C' */
1527 	delim = *vp->ptr;	/* delimiter between sections */
1529 	vp->ptr++;		/* consume 1st delim */
1537 	vp->ptr++;		/* consume 2st delim */
1545 	vp->ptr++;		/* consume last delim */
1547 	switch (*vp->ptr) {
1550 		vp->ptr++;		/* consume 'g' */
1554 		vp->ptr++;		/* consume '1' */
1609 	cp = vp->ptr;
1632 		vp->ptr++;	/* consume '=' */
1651 		Error("Unknown modifier '%c'\n", *vp->ptr);
1652 		vp->ptr++;
1653 		while (*vp->ptr != '\0') {
1654 			if (*vp->ptr == endc && *vp->ptr == ':') {
1657 			vp->ptr++;
1729 	vp->ptr++;	/* consume first colon */
1731 	while (*vp->ptr != '\0') {
1734 		if (*vp->ptr == endc) {
1738 		DEBUGF(VAR, ("Applying :%c to \"%s\"\n", *vp->ptr, value));
1739 		switch (*vp->ptr) {
1752 			switch (vp->ptr[1]) {
1754 				vp->ptr++;
1758 				vp->ptr++;
1764 			if (vp->ptr[1] != endc && vp->ptr[1] != ':') {
1766 				if ((vp->ptr[0] == 's') &&
1767 				    (vp->ptr[1] == 'h') &&
1768 				    (vp->ptr[2] == endc || vp->ptr[2] == ':')) {
1780 					vp->ptr += 2;
1789 			switch (vp->ptr[0]) {
1801 				vp->ptr++;
1806 				vp->ptr++;
1810 				vp->ptr++;
1814 				vp->ptr++;
1827 				vp->ptr++;
1832 				vp->ptr++;
1836 				vp->ptr++;
1840 				vp->ptr++;
1844 				vp->ptr++;
1861 		if (vp->ptr[0] == ':') {
1862 			vp->ptr++;	/* consume colon */
1899 		consumed = vp->ptr - vp->input + 1;
1993 		size_t	consumed = vp->ptr - vp->input + 1;
2083 	startc = vp->ptr[0];
2084 	vp->ptr++;		/* consume opening paren or brace */
2092 	while (*vp->ptr != '\0') {
2093 		if (*vp->ptr == endc) {
2095 			vp->ptr++;	/* consume closing paren or brace */
2099 		} else if (*vp->ptr == ':') {
2101 			vp->ptr++;	/* consume closing paren or brace */
2105 		} else if (*vp->ptr == '$') {
2107 				vp->ptr,
2108 				vp->ptr,
2123 			vp->ptr = subvp.ptr;
2125 			Buf_AddByte(buf, (Byte)*vp->ptr);
2126 			vp->ptr++;
2146 	vname[0] = vp->ptr[0];
2149 	vp->ptr++;	/* consume single letter */
2197 	vp->ptr++;	/* consume '$' or last letter of conditional */
2199 	if (vp->ptr[0] == '\0') {
2204 	} else if (vp->ptr[0] == OPEN_PAREN || vp->ptr[0] == OPEN_BRACE) {
2242 	*consumed += vp.ptr - vp.input;
2273 	return (vp.ptr - vp.input);
2391 					str = subvp.ptr;
2401 							    "Undefined variable \"%.*s\"", subvp.ptr - subvp.input, str);
2404 					str = subvp.ptr;
2418 				str = subvp.ptr;
2493 						str = subvp.ptr;
2505 								    "Undefined variable \"%.*s\"", subvp.ptr - subvp.input, str);
2508 						str = subvp.ptr;
2523 					str = subvp.ptr;
2544 	char	**ptr;
2553 	for (ptr = env; *ptr != NULL; ++ptr) {
2554 		char		*tmp = estrdup(*ptr);