Lines Matching refs:va
56 awka_argval(int fn_idx, a_VAR *var, int arg_no, int arg_count, a_VARARG *va) in awka_argval() argument
68 if (va->used == 0 || var->type != a_VARARR) in awka_argval()
71 if (va->used == 1) in awka_argval()
73 va->var[0], in awka_argval()
78 va, in awka_argval()
630 awka_varcpy( a_VAR *va, a_VAR *vb ) in awka_varcpy() argument
636 if (vb->type == a_VARARR || va->type == a_VARARR) in awka_varcpy()
639 _awka_set_FW(va); in awka_varcpy()
640 if (va == vb) return va; in awka_varcpy()
642 va->dval = vb->dval; in awka_varcpy()
643 va->type2 = vb->type2; in awka_varcpy()
649 prev_len = va->slen; in awka_varcpy()
653 if (va->type == a_VARREG) in awka_varcpy()
654 _awka_re2null(va); in awka_varcpy()
655 ptr = va->ptr; in awka_varcpy()
656 allc = va->allc; in awka_varcpy()
657 va->ptr = vb->ptr; in awka_varcpy()
658 va->allc = vb->allc; in awka_varcpy()
659 va->slen = vb->slen; in awka_varcpy()
670 awka_forcestr(va); in awka_varcpy()
671 if (va->ptr && va->allc <= vb->slen) in awka_varcpy()
672 va->allc = realloc( &va->ptr, vb->slen+1 ); in awka_varcpy()
673 else if (!va->ptr) in awka_varcpy()
674 va->allc = malloc( &va->ptr, vb->slen+1 ); in awka_varcpy()
675 memcpy(va->ptr, vb->ptr, vb->slen+1); in awka_varcpy()
676 va->slen = vb->slen; in awka_varcpy()
678 va->type = vb->type; in awka_varcpy()
679 va->type2 = vb->type2; in awka_varcpy()
683 if (va->ptr) awka_killvar(va); in awka_varcpy()
684 va->ptr = vb->ptr; in awka_varcpy()
690 if (!va->ptr || !va->allc) in awka_varcpy()
691 va->allc = malloc( &va->ptr, vb->slen+1 ); in awka_varcpy()
692 else if (va->ptr && va->allc <= vb->slen) in awka_varcpy()
693 va->allc = realloc( &va->ptr, vb->slen+1 ); in awka_varcpy()
694 memcpy(va->ptr, vb->ptr, vb->slen+1); in awka_varcpy()
695 va->slen = vb->slen; in awka_varcpy()
698 va->type = vb->type; in awka_varcpy()
711 if (va == a_bivar[a_DOL0]) in awka_varcpy()
716 return va; in awka_varcpy()
720 _awka_checkunk(a_VAR *va) in _awka_checkunk() argument
722 if (va->type2 == 0 && va->ptr) in _awka_checkunk()
724 if (!isalpha(va->ptr[0]) && in _awka_checkunk()
725 _awka_isnumber(va->ptr) == TRUE) in _awka_checkunk()
727 va->type2 = a_DBLSET; in _awka_checkunk()
728 va->dval = strtod(va->ptr, NULL); in _awka_checkunk()
738 awka_varcmp( a_VAR *va, a_VAR *vb ) in awka_varcmp() argument
742 if (vb->type == a_VARARR || va->type == a_VARARR) in awka_varcmp()
745 if (va == vb) return 0; in awka_varcmp()
746 if (va->type == a_VARUNK && va->type2 == 0 && va->ptr) in awka_varcmp()
747 _awka_checkunk(va); in awka_varcmp()
750 if ((va->type <= a_VARDBL || in awka_varcmp()
751 (va->type == a_VARUNK && va->type2 == a_DBLSET)) && in awka_varcmp()
756 if (va->dval == vb->dval) in awka_varcmp()
759 return ((va->dval < vb->dval) ? -1 : 1); in awka_varcmp()
762 i = strcmp(awka_gets1(va), awka_gets1(vb)); in awka_varcmp()
791 awka_var2dblcmp( a_VAR *va, double d ) in awka_var2dblcmp() argument
795 if (va->type == a_VARARR) in awka_var2dblcmp()
798 if (va->type == a_VARUNK && va->type2 == 0 && va->ptr) in awka_var2dblcmp()
799 _awka_checkunk(va); in awka_var2dblcmp()
801 if (va->type <= a_VARDBL || (va->type == a_VARUNK && va->type2 == a_DBLSET)) in awka_var2dblcmp()
802 return (va->dval == d ? 0 : (va->dval < d ? -1 : 1)); in awka_var2dblcmp()
803 if (!(i = strcmp(awka_gets1(va), awka_tmp_dbl2str(d)))) in awka_var2dblcmp()
809 awka_dbl2varcmp( double d, a_VAR *va ) in awka_dbl2varcmp() argument
813 if (va->type == a_VARARR) in awka_dbl2varcmp()
816 if (va->type2 == 0 && va->ptr && va->type == a_VARUNK) in awka_dbl2varcmp()
817 _awka_checkunk(va); in awka_dbl2varcmp()
819 if (va->type <= a_VARDBL || (va->type == a_VARUNK && va->type2 == a_DBLSET)) in awka_dbl2varcmp()
821 i = (d == va->dval ? 0 : (d < va->dval ? -1 : 1)); in awka_dbl2varcmp()
824 if (!(i = strcmp(awka_tmp_dbl2str(d), awka_gets1(va)))) in awka_dbl2varcmp()