xref: /illumos-gate/usr/src/cmd/make/bin/macro.cc (revision fa4a3e77edc40df6d92e8da6fc4961d275e9896d)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2004 Sun Microsystems, Inc. All rights reserved.
23  * Use is subject to license terms.
24  */
25 
26 /*
27  *	macro.cc
28  *
29  *	Handle expansion of make macros
30  */
31 
32 /*
33  * Included files
34  */
35 #include <mk/defs.h>
36 #include <mksh/macro.h>		/* getvar(), expand_value() */
37 #include <mksh/misc.h>		/* getmem() */
38 
39 /*
40  * Defined macros
41  */
42 
43 /*
44  * typedefs & structs
45  */
46 
47 /*
48  * Static variables
49  */
50 
51 /*
52  * File table of contents
53  */
54 
55 void
56 setvar_append(register Name name, register Name value)
57 {
58 	register Property	macro_apx = get_prop(name->prop, macro_append_prop);
59 	register Property	macro = get_prop(name->prop, macro_prop);
60 	int			length;
61 	String_rec		destination;
62 	wchar_t			buffer[STRING_BUFFER_LENGTH];
63 	register Chain		chain;
64 	Name			val = NULL;
65 
66 	if(macro_apx == NULL) {
67 		macro_apx = append_prop(name, macro_append_prop);
68 		if(macro != NULL) {
69 			macro_apx->body.macro_appendix.value = macro->body.macro.value;
70 		}
71 	}
72 
73 	val = macro_apx->body.macro_appendix.value_to_append;
74 
75 	INIT_STRING_FROM_STACK(destination, buffer);
76 	buffer[0] = 0;
77 	if (val != NULL) {
78 		APPEND_NAME(val,
79 			      &destination,
80 			      (int) val->hash.length);
81 		if (value != NULL) {
82 			MBTOWC(wcs_buffer, " ");
83 			append_char(wcs_buffer[0], &destination);
84 		}
85 	}
86 	if (value != NULL) {
87 		APPEND_NAME(value,
88 			      &destination,
89 			      (int) value->hash.length);
90 	}
91 	value = GETNAME(destination.buffer.start, FIND_LENGTH);
92 	if (destination.free_after_use) {
93 		retmem(destination.buffer.start);
94 	}
95 	macro_apx->body.macro_appendix.value_to_append = value;
96 
97 	SETVAR(name, empty_name, true);
98 }
99 
100 /*
101  *	setvar_envvar()
102  *
103  *	This function scans the list of environment variables that have
104  *	dynamic values and sets them.
105  *
106  *	Parameters:
107  *
108  *	Global variables used:
109  *		envvar		A list of environment vars with $ in value
110  */
111 void
112 setvar_envvar(void)
113 {
114 	wchar_t			buffer[STRING_BUFFER_LENGTH];
115 	int			length;
116 	register	char	*mbs, *tmp_mbs_buffer = NULL;
117 	register	char	*env, *tmp_mbs_buffer2 = NULL;
118 	Envvar			p;
119 	String_rec		value;
120 
121 	for (p = envvar; p != NULL; p = p->next) {
122 		if (p->already_put
123 		    ) {
124 			continue;
125 		}
126 		INIT_STRING_FROM_STACK(value, buffer);
127 		expand_value(p->value, &value, false);
128 		if ((length = wcslen(value.buffer.start)) >= MAXPATHLEN) {
129 			mbs = tmp_mbs_buffer = getmem((length + 1) * MB_LEN_MAX);
130 			(void) wcstombs(mbs,
131 			                value.buffer.start,
132 			                (length + 1) * MB_LEN_MAX);
133 		} else {
134 			mbs = mbs_buffer;
135 			WCSTOMBS(mbs, value.buffer.start);
136 		}
137 		length = 2 + strlen(p->name->string_mb) + strlen(mbs);
138 		if (!p->already_put || length > (MAXPATHLEN * MB_LEN_MAX)) {
139 			env = tmp_mbs_buffer2 = getmem(length);
140 		} else {
141 			env = mbs_buffer2;
142 		}
143 		(void) sprintf(env,
144 			       "%s=%s",
145 			       p->name->string_mb,
146 			       mbs);
147 		if (!p->already_put) {
148 			(void) putenv(env);
149 			p->already_put = true;
150 			if (p->env_string) {
151 				retmem_mb(p->env_string);
152 			}
153 			p->env_string = env;
154 			tmp_mbs_buffer2 = NULL; // We should not return this memory now
155 		}
156 		if (tmp_mbs_buffer2) {
157 			retmem_mb(tmp_mbs_buffer2);
158 			tmp_mbs_buffer2 = NULL;
159 		}
160 		if (tmp_mbs_buffer) {
161 			retmem_mb(tmp_mbs_buffer);
162 			tmp_mbs_buffer = NULL;
163 		}
164 	}
165 }
166 
167 
168