Cross Reference: /src/bin/ksh/var.c

Lines Matching defs:vq
72 	struct tbl *vp, **vpp = l->vars.tbls, *vq;
78 			if ((vq = global(vp->name))->flag & ISSET)
79 				setspec(vq);
81 				unsetspec(vq);
278 		struct tbl *vq = (struct tbl *) 0;
280 		while ((ll = ll->next) && !(vq = mytsearch(&ll->vars, n, h)))
282 		if (vq) {
283 			vp->flag |= vq->flag & (EXPORT|INTEGER|RDONLY
286 			if (vq->flag & INTEGER)
287 				vp->type = vq->type;
288 			vp->u2.field = vq->u2.field;
369 setstr(vq, s, error_ok)
370 	struct tbl *vq;
377 	if ((vq->flag & RDONLY) && !no_ro_check) {
378 		warningf(true, "%s: is read only", vq->name);
383 	if (!(vq->flag&INTEGER)) { /* string dest */
384 		if ((vq->flag&ALLOC)) {
386 			if (s >= vq->val.s
387 			    && s <= vq->val.s + strlen(vq->val.s))
390 				    vq->name, s);
391 			afree((void*)vq->val.s, vq->areap);
393 		vq->flag &= ~(ISSET|ALLOC);
394 		vq->type = 0;
395 		if (s && (vq->flag & (UCASEV_AL|LCASEV|LJUST|RJUST)))
396 			s = fs = formatstr(vq, s);
397 		if ((vq->flag&EXPORT))
398 			export(vq, s);
400 			vq->val.s = str_save(s, vq->areap);
401 			vq->flag |= ALLOC;
404 		if (!v_evaluate(vq, s, error_ok))
406 	vq->flag |= ISSET;
407 	if ((vq->flag&SPECIAL))
408 		setspec(vq);
416 setint(vq, n)
417 	struct tbl *vq;
420 	if (!(vq->flag&INTEGER)) {
427 		setstr(vq, str_val(vp), KSH_RETURN_ERROR);
429 		vq->val.i = n;
430 	vq->flag |= ISSET;
431 	if ((vq->flag&SPECIAL))
432 		setspec(vq);
498 /* convert variable vq to integer variable, setting its value from vp
499  * (vq and vp may be the same)
502 setint_v(vq, vp)
503 	struct tbl *vq, *vp;
510 	if (!(vq->flag & INTEGER) && (vq->flag & ALLOC)) {
511 		vq->flag &= ~ALLOC;
512 		afree(vq->val.s, vq->areap);
514 	vq->val.i = num;
515 	if (vq->type == 0) /* default base */
516 		vq->type = base;
517 	vq->flag |= ISSET|INTEGER;
518 	if (vq->flag&SPECIAL)
519 		setspec(vq);
520 	return vq;
1238 	struct tbl *vp, *vq;
1256 		vq = arraysearch(vp, i);
1258 		setstr(vq, vals[i], KSH_RETURN_ERROR);
OpenGrok
