2140 	struct variables *cur;  local
2150 	for (cur = top_vars; cur; cur=cur->next)
2151 		if(strcmp(cur->name, s)==0)
2152 			return cur->value;
2164 	struct variables *cur;  local
2192 	for(cur = top_vars; cur; cur = cur->next) {
2193 		if(strcmp(cur->name, name)==0)
2197 	if(cur) {
2198 		if(strcmp(cur->value, value)==0) {
2199 			if(flg_export>0 && cur->flg_export==0)
2200 				cur->flg_export=flg_export;
2204 			if(cur->flg_read_only) {
2208 				if(flg_export>0 || cur->flg_export>1)
2209 					cur->flg_export=1;
2210 				free(cur->value);
2212 				cur->value = strdup(value);
2216 		cur = malloc(sizeof(struct variables));
2217 		if(!cur) {
2220 			cur->name = strdup(name);
2221 			if (cur->name == NULL) {
2222 				free(cur);
2226 				cur->value = strdup(value);
2227 				cur->next = NULL;
2228 				cur->flg_export = flg_export;
2229 				cur->flg_read_only = 0;
2231 				bottom->next = cur;
2237 	if(result==0 && cur->flg_export==1) {
2253 	struct variables *cur;  local
2256 		for (cur = top_vars; cur; cur=cur->next) {
2257 			if(strcmp(cur->name, name)==0)
2260 		if (cur != NULL) {
2262 			if(cur->flg_read_only) {
2267 				if(cur->flg_export)
2268 					unenv_set(cur->name);
2270 				free(cur->name);
2271 				free(cur->value);
2272 				while (next->next != cur)
2274 				next->next = cur->next;
2276 			free(cur);
3502 		struct variables *cur, *tmp;  local
3503 		for(cur = top_vars; cur; cur = tmp) {
3504 			tmp = cur->next;
3505 			if (!cur->flg_read_only) {
3506 				free(cur->name);
3507 				free(cur->value);
3508 				free(cur);
3673 	struct variables *cur;  local
3676 		for (cur = top_vars; cur; cur = cur->next) {
3677 			printf ("%s=%s\n", cur->name, cur->value);
3689 		for (cur = top_vars; cur; cur = cur->next) {
3690 			if(strcmp (cur->name, name) == 0) {
3692 				printf ("%s=%s\n", cur->name, cur->value);