Lines Matching refs:jcl
23 * jcl symbol support
35 jclsym(Jcl_t* jcl, const char* name, const char* value, int flags)
56 imported = (flags & JCL_SYM_SET) && (jcl->flags & JCL_IMPORT);
60 if (!(v = vmnewof(jcl->vs, 0, Jclsym_t, 1, n + strlen(value) + 2)))
62 nospace(jcl, NiL);
68 if (o = (Jclsym_t*)dtsearch(jcl->step->syms, v))
72 vmfree(jcl->vs, v);
76 dtdelete(jcl->step->syms, o);
77 vmfree(jcl->vs, o);
81 vmfree(jcl->vs, v);
82 if (!(v = vmnewof(jcl->vs, 0, Jclsym_t, 1, strlen(e) + 1)))
84 nospace(jcl, NiL);
92 dtinsert(jcl->step->syms, v);
96 if (jcl->flags & JCL_EXEC)
98 if (!(set = vmstrdup(jcl->vs, set)) || !setenviron(set))
100 nospace(jcl, NiL);
104 else if (jcl->flags & JCL_VERBOSE)