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