1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 1990-2011 AT&T Intellectual Property *
* and is licensed under the *
* Eclipse Public License, Version 1.0 *
* by AT&T Intellectual Property *
* *
* A copy of the License is available at *
* http://www.eclipse.org/org/documents/epl-v10.html *
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* *
***********************************************************************/
#pragma prototyped
/*
* Glenn Fowler
* at&t Research
*
* coshell export var set/unset
*/
#include "colib.h"
/*
* set or unset coshell export variable
*/
int
coexport(Coshell_t* co, const char* name, const char* value)
{
Coexport_t* ex;
char* v;
if (!co->export)
{
if (!(co->exdisc = vmnewof(co->vm, 0, Dtdisc_t, 1, 0)))
return -1;
co->exdisc->link = offsetof(Coexport_t, link);
co->exdisc->key = offsetof(Coexport_t, name);
co->exdisc->size = 0;
if (!(co->export = dtnew(co->vm, co->exdisc, Dtset)))
{
vmfree(co->vm, co->exdisc);
return -1;
}
}
if (!(ex = (Coexport_t*)dtmatch(co->export, name)))
{
if (!value)
return 0;
if (!(ex = vmnewof(co->vm, 0, Coexport_t, 1, strlen(name))))
return -1;
strcpy(ex->name, name);
dtinsert(co->export, ex);
}
if (ex->value)
{
vmfree(co->vm, ex->value);
ex->value = 0;
}
if (value)
{
if (!(v = vmstrdup(co->vm, value)))
return -1;
ex->value = v;
}
else
{
dtdelete(co->export, ex);
vmfree(co->vm, ex);
}
co->init.sync = 1;
return 0;
}
|
