Lines Matching refs:integer
88 sfsprintf(buf, sizeof(buf), "%I*x", sizeof(v.integer), v.integer);
145 fmt->value.integer = 0;
211 *((Sflong_t*)vp) = fmt->value.integer;
305 if (v.integer < 0 || v.integer >= elementsof(ex->file) || !(sp = ex->file[v.integer]) && !(sp = ex->file[v.integer] = sfnew(NiL, NiL, SF_UNBOUND, v.integer, SF_READ|SF_WRITE)))
307 exerror("printf: %d: invalid descriptor", v.integer);
385 exerror("scanf: %s: integer variable address argument expected", node->data.variable.symbol->name);
418 v.integer = 0;
419 if (v.integer < 0 || v.integer >= elementsof(ex->file) || !(sp = ex->file[v.integer]) && !(sp = ex->file[v.integer] = sfnew(NiL, NiL, SF_UNBOUND, v.integer, SF_READ|SF_WRITE)))
421 exerror("scanf: %d: invalid descriptor", v.integer);
556 v.integer = 1;
565 ex->loopcount = v.integer;
580 i.integer = EX_SCALAR;
581 r = (*ex->disc->getf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)i.integer, ex->disc);
591 v.integer += n;
615 i.integer = EX_SCALAR;
616 if ((*ex->disc->setf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)i.integer, v, ex->disc) < 0)
626 exit((int)v.integer);
628 v.integer = -1;
632 if (v.integer)
636 v.integer = 1;
644 if (!r.integer)
646 v.integer = 1;
654 v.integer = 0;
664 i.integer = x->type;
665 r.integer = 0;
676 switch ((int)i.integer)
680 if ((*t)->integer == v.integer)
699 r.integer = 1;
718 v.integer = 0;
724 v.integer++;
728 expr->data.generate.index->value->data.constant.value.integer = strtol(assoc->name, NiL, 0);
732 v.integer = 0;
740 for (v.integer = 0; v.integer < r.integer; v.integer++)
742 expr->data.generate.index->value->data.constant.value.integer = v.integer;
746 v.integer = 0;
785 i.integer = EX_SCALAR;
786 return (*ex->disc->getf)(ex, expr, expr->data.variable.symbol, expr->data.variable.reference, env, (int)i.integer, ex->disc);
791 v.integer = print(ex, expr, env, NiL);
795 v.integer = !astquery(2, "");
804 v.integer = scan(ex, expr, env, NiL);
822 v.integer = EX_SCALAR;
823 v = (*ex->disc->getf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)v.integer, ex->disc);
846 if ((r.integer = r.floating) == 0)
849 v.floating = ((Sflong_t)v.floating) % r.integer;
879 v.integer += r.integer;
882 v.integer -= r.integer;
885 v.integer *= r.integer;
888 if (r.integer == 0)
889 exerror("integer divide by 0");
891 v.integer /= r.integer;
894 if (r.integer == 0)
895 exerror("integer 0 modulus");
897 v.integer %= r.integer;
900 v.integer &= r.integer;
903 v.integer |= r.integer;
906 v.integer ^= r.integer;
909 v.integer <<= r.integer;
912 v.integer = (Sfulong_t)v.integer >> r.integer;
965 return v.integer ? eval(ex, expr->data.operand.right->data.operand.left, env) : eval(ex, expr->data.operand.right->data.operand.right, env);
968 return v.integer ? eval(ex, expr->data.operand.right, env) : v;
971 return v.integer ? v : eval(ex, expr->data.operand.right, env);
982 v.integer = v.floating;
1037 if ((r.integer = r.floating) == 0)
1040 v.floating = (Sflong_t)v.floating % r.integer;
1043 v.integer = v.floating < r.floating;
1046 v.integer = v.floating <= r.floating;
1049 v.integer = v.floating == r.floating;
1052 v.integer = v.floating != r.floating;
1055 v.integer = v.floating >= r.floating;
1058 v.integer = v.floating > r.floating;
1064 v.integer = ((Sfulong_t)v.floating) >> (Sflong_t)r.floating;
1082 exerror("%s: cannot convert value to integer", expr->data.operand.left->data.variable.symbol->name);
1093 goto integer;
1098 v.integer = (Sfulong_t)v.integer < (Sfulong_t)r.integer;
1101 v.integer = (Sfulong_t)v.integer <= (Sfulong_t)r.integer;
1104 v.integer = (Sfulong_t)v.integer >= (Sfulong_t)r.integer;
1107 v.integer = (Sfulong_t)v.integer > (Sfulong_t)r.integer;
1112 integer:
1117 v.floating = v.integer;
1120 v.floating = (Sfulong_t)v.integer;
1122 v.floating = v.integer;
1131 sfprintf(ex->tmp, "%I*u", sizeof(v.integer), v.integer);
1133 sfprintf(ex->tmp, "%I*d", sizeof(v.integer), v.integer);
1144 exerror("%s: cannot convert integer value to external", tmp.data.variable.symbol->name);
1148 v.integer = !v.integer;
1151 v.integer = ~v.integer;
1155 v.integer -= r.integer;
1157 v.integer = -v.integer;
1160 v.integer += r.integer;
1163 v.integer &= r.integer;
1166 v.integer |= r.integer;
1169 v.integer ^= r.integer;
1172 v.integer *= r.integer;
1175 if (r.integer == 0)
1176 exerror("integer divide by 0");
1178 v.integer /= r.integer;
1181 if (r.integer == 0)
1182 exerror("integer 0 modulus");
1184 v.integer %= r.integer;
1187 v.integer = v.integer == r.integer;
1190 v.integer = v.integer != r.integer;
1193 v.integer = v.integer << r.integer;
1196 v.integer = ((Sfulong_t)v.integer) >> r.integer;
1199 v.integer = v.integer < r.integer;
1202 v.integer = v.integer <= r.integer;
1205 v.integer = v.integer >= r.integer;
1208 v.integer = v.integer > r.integer;
1216 v.integer = *v.string != 0;
1234 tmp.data.constant.value.integer = strtoll(v.string, &e, 0);
1236 tmp.data.constant.value.integer = *v.string != 0;
1249 v.integer = ((v.string && r.string) ? ((ex->disc->version >= 19981111L && ex->disc->matchf) ? (*ex->disc->matchf)(ex, expr->data.operand.left, v.string, expr->data.operand.right, r.string, env, ex->disc) : strmatch(v.string, r.string)) : (v.string == r.string)) == (expr->op == EQ);
1270 v.integer = strcoll(v.string, r.string);
1274 v.integer = v.integer < 0;
1277 v.integer = v.integer <= 0;
1280 v.integer = v.integer >= 0;
1283 v.integer = v.integer > 0;
1306 if (expr->compiled.integer)
1317 v.integer = (*expr->compiled.integer)(ex->disc->data);