bin/ksh/var.c

23  * if (flag&EXPORT), val.s contains "name=value" for E-Z exporting.
29 static int	special		ARGS((const char *name));
30 static void	unspecial	ARGS((const char *name));
76 			if ((vq = global(vp->name))->flag & ISSET)
93 		const char *name;
125 	for (i = 0; names[i].name; i++) {
126 		tp = tenter(&specials, names[i].name, hash(names[i].name));
193 		*vp->name = c;
378 		warningf(TRUE, "%s: is read only", vq->name);
390 				    vq->name, s);
585  * make vp->val.s be "name=value" for quick exporting.
594 	int namelen = strlen(vp->name);
599 	memcpy(vp->val.s = xp, vp->name, namelen);
624 	/* check for valid variable name, search for value */
765  * the name lookup (eg, x[2]).
793 /* return a pointer to the first char past a legal variable name (returns the
794  * argument if there is no legal name, returns * a pointer to the terminating
813 /* Return a pointer to the first character past any legal variable name.  */
846 /* Check if coded string s is a variable name */
885 				unsigned h = hash(vp->name);
889 					vp2 = tsearch(&l2->vars, vp->name, h);
922 /* Test if name is a special parameter */
924 special(name)
925 	register const char * name;
929 	tp = tsearch(&specials, name, hash(name));
935 unspecial(name)
936 	register const char * name;
940 	tp = tsearch(&specials, name, hash(name));
954 	switch (special(vp->name)) {
998 	switch (special(vp->name)) {
1097 	switch (special(vp->name)) {
1131 		unspecial(vp->name);
1158 	size_t namelen = strlen(vp->name) + 1;
1181 	strlcpy(new->name, vp->name, namelen);
1215  * Make a copy of the base of an array name