PN_INT 141 core/ast.c PN_INT(potion_source_line(P, cl, self))); PN_INT 66 core/compile.c int c = PN_INT(v); comma=0; PN_INT 109 core/compile.c pn_printf(P, out, ") %ld registers\n", PN_INT(t->stack)); PN_INT 112 core/compile.c v = PN_TUPLE_AT(t->values, PN_INT(v)); PN_INT 180 core/compile.c if (reg >= PN_INT(f->stack)) \ PN_INT 428 core/compile.c PN_STR_PTR(fname), PN_INT(num), AS_STR(rhs)); PN_INT 78 core/file.c file->fd = PN_INT(fd); PN_INT 105 core/file.c n = PN_INT(n); PN_INT 24 core/internal.c struct PNData *obj = PN_ALLOC_N(PN_TUSER, struct PNData, PN_INT(len)); PN_INT 243 core/internal.c PN_INT(e->line), PN_INT(e->chr), PN_STR_PTR(e->excerpt)); PN_INT 343 core/internal.c printf(" %ld INT\n", PN_INT(*start)); PN_INT 156 core/mt19937ar.c init_genrand(PN_INT(seed)); PN_INT 46 core/number.c return PN_NUM(PN_INT(self) int_math PN_INT(num)); \ PN_INT 87 core/number.c return PN_NUM(PN_INT(self) % PN_INT(num)); PN_INT 98 core/number.c return PN_NUM(~PN_INT(self)); PN_INT 108 core/number.c return PN_NUM(PN_INT(self) << PN_INT(num)); PN_INT 118 core/number.c return PN_NUM(PN_INT(self) >> PN_INT(num)); PN_INT 133 core/number.c sprintf(ints, "%ld", PN_INT(self)); PN_INT 161 core/number.c long i, j = PN_INT(self); PN_INT 176 core/number.c long i, s = 1, j = PN_INT(self), k = PN_INT(end); PN_INT 192 core/number.c long i, j = PN_INT(end), k = PN_INT(step); PN_INT 193 core/number.c for (i = PN_INT(self); i <= j; i += k) { PN_INT 203 core/number.c char c = PN_INT(self); PN_INT 238 core/number.c return PN_NUM(labs(PN_INT(self))); PN_INT 255 core/number.c n1 = PN_INT(self); PN_INT 256 core/number.c n2 = PN_IS_NUM(n) ? PN_INT(n) : PN_INT(potion_send(PN_number, n)); PN_INT 204 core/potion.h #define PN_DBL(num) (PN_IS_NUM(num) ? (double)PN_INT(num) : ((struct PNDecimal *)num)->value) PN_INT 199 core/string.c int i = PN_INT(index); PN_INT 224 core/string.c size_t startoffset = potion_utf8char_offset(str, PN_INT(potion_str_slice_index(start, len, 0))); PN_INT 227 core/string.c endoffset = potion_utf8char_offset(str, PN_INT(potion_str_slice_index(start+end, len, len))); PN_INT 229 core/string.c endoffset = potion_utf8char_offset(str, PN_INT(potion_str_slice_index(end, len, len))); PN_INT 260 core/string.c return potion_str_slice(P, cl, self, index, PN_NUM(PN_INT(index) + 1)); PN_INT 273 core/string.c return PN_NUM(s[PN_INT(index)]); PN_INT 401 core/string.c index = PN_INT(index); PN_INT 218 core/table.c long i = PN_INT(index), len = PN_TUPLE_LEN(self); PN_INT 326 core/table.c long i = PN_INT(key), len = PN_TUPLE_LEN(self); PN_INT 423 core/table.c PN_SIZE i = PN_INT(index); PN_INT 444 core/table.c PN_SIZE i = PN_INT(index); PN_INT 530 core/table.c if (PN_INT(c->method(P, cl, cmp, GET(i), pivot)) > 0) PN_INT 594 core/table.c while (j > 0 && PN_INT(c->method(P, cl, cmp, GET(j-1), GET(j))) > 0) { PN_INT 675 core/table.c return potion_tuple_with_size(P, PN_INT(size)); PN_INT 259 core/vm-x86.c int argx = 0, regs = PN_INT(f->stack); PN_INT 762 core/vm-x86.c ? PN_INT(PN_TUPLE_AT(sig,1)) : 0); PN_INT 175 core/vm.c ? PN_INT(PN_TUPLE_AT(s,1)) : 0); PN_INT 198 core/vm.c PN_TUPLE_AT(ivars, i) = PN_TUPLE_AT(proto->values, PN_INT(v)); PN_INT 243 core/vm.c regs = PN_INT(f->stack); PN_INT 350 core/vm.c reg[op.a] = PN_NUM(PN_INT(reg[op.a]) oper PN_INT(reg[op.b])); \ PN_INT 484 core/vm.c regs = (struct PNTuple *) potion_tuple_with_size(P, PN_INT(f->stack)); PN_INT 485 core/vm.c for (i=0; i < PN_INT(f->stack); i++) { regs->set[i] = reg[i]; } PN_INT 647 core/vm.c CASE(POW, reg[op.a] = PN_NUM((int)pow((double)PN_INT(reg[op.a]), PN_INT 648 core/vm.c (double)PN_INT(reg[op.b])))) PN_INT 654 core/vm.c CASE(CMP, reg[op.a] = PN_NUM(PN_INT(reg[op.b]) - PN_INT(reg[op.a]))) PN_INT 674 core/vm.c reg[op.a] = PN_IS_NUM(reg[op.b]) ? PN_NUM(~PN_INT(reg[op.b])) : potion_obj_bitn(P, reg[op.b])) PN_INT 720 core/vm.c : potion_type_default(PN_INT(PN_TUPLE_AT(s,1))); PN_INT 725 core/vm.c } else if (((reg - stack) + PN_INT(f->stack) + f->upvalsize + f->localsize + 8) >= STACK_MAX) { PN_INT 745 core/vm.c : potion_type_default(PN_INT(PN_TUPLE_AT(s,1))); PN_INT 746 core/vm.c f->stack = PN_NUM(PN_INT(f->stack)+1); PN_INT 752 core/vm.c current = reg + PN_INT(f->stack) + 2; PN_INT 790 core/vm.c reg = current - (PN_INT(f->stack) + 2); PN_INT 78 front/p2.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 79 front/p2.c PN_INT(potion_gc_reserved(P, 0, 0))); PN_INT 113 front/p2.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 114 front/p2.c PN_INT(potion_gc_reserved(P, 0, 0)), P->mem->time *1000, P->mem->pass, PN_INT 124 front/p2.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 125 front/p2.c PN_INT(potion_gc_reserved(P, 0, 0)), P->mem->time * 1000, P->mem->pass, PN_INT 57 front/potion.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 58 front/potion.c PN_INT(potion_gc_reserved(P, 0, 0))); PN_INT 132 front/potion.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 133 front/potion.c PN_INT(potion_gc_reserved(P, 0, 0)), P->mem->time * 1000, P->mem->pass, PN_INT 143 front/potion.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 144 front/potion.c PN_INT(potion_gc_reserved(P, 0, 0)), P->mem->time * 1000, P->mem->pass, PN_INT 300 lib/aio.c if (!uv_udp_set_multicast_ttl(udp, PN_INT(value))) PN_INT 305 lib/aio.c if (!uv_udp_set_ttl(udp, PN_INT(value))) PN_INT 316 lib/aio.c (uv_membership)PN_INT(PN_TUPLE_AT(t, 2)))) //0 or 1 PN_INT 770 lib/aio.c int r = uv_run(l, mode ? (uv_run_mode)PN_INT(mode) : UV_RUN_DEFAULT); PN_INT 794 lib/aio.c int r = uv_tcp_open(&handle->r, PN_INT(sock)); PN_INT 802 lib/aio.c int r = uv_tcp_nodelay(&handle->r, enable == PN_TRUE ? PN_INT(1) : PN_INT(0)); PN_INT 811 lib/aio.c int r = uv_tcp_keepalive(&handle->r, enable == PN_TRUE ? PN_INT(1) : PN_INT(0), PN_INT(delay)); PN_INT 819 lib/aio.c int r = uv_tcp_simultaneous_accepts(&handle->r, enable == PN_TRUE ? PN_INT(1) : PN_INT(0)); PN_INT 830 lib/aio.c if (uv_ip4_addr(PN_STR_PTR(addr), PN_INT(port), &ip4)) { PN_INT 832 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 849 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 878 lib/aio.c if (uv_ip4_addr(PN_STR_PTR(addr), PN_INT(port), &ip4)) { PN_INT 880 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 900 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 913 lib/aio.c int r = uv_udp_open(&handle->r, PN_INT(sockfd)); PN_INT 924 lib/aio.c if (uv_ip4_addr(PN_STR_PTR(addr), PN_INT(port), &ip4)) { PN_INT 926 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 929 lib/aio.c int r = uv_udp_bind(&handle->r, (const struct sockaddr*) &ip6, PN_INT(flags)); PN_INT 933 lib/aio.c int r = uv_udp_bind(&handle->r, (const struct sockaddr*) &ip4, PN_INT(flags)); PN_INT 944 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 946 lib/aio.c int r = uv_udp_bind(&handle->r, (const struct sockaddr*) &ip6, PN_INT(flags)); PN_INT 1017 lib/aio.c if (uv_ip4_addr(PN_STR_PTR(addr), PN_INT(port), &ip4)) PN_INT 1035 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 1156 lib/aio.c int r = uv_tty_set_mode(&handle->h, PN_INT(mode)); PN_INT 1180 lib/aio.c uv_handle_type r = uv_guess_handle(PN_INT(file)); PN_INT 1189 lib/aio.c int r = uv_pipe_open(&handle->r, PN_INT(file)); PN_INT 1216 lib/aio.c uv_pipe_pending_instances(&handle->r, PN_INT(count)); PN_INT 1240 lib/aio.c int r = uv_write(&request->r, &stm->r, bufs, PN_INT(bufcnt), write_cb); PN_INT 1249 lib/aio.c int r = uv_listen(&request->r, PN_INT(backlog), connection_cb); PN_INT 1316 lib/aio.c int r = uv_write2(&request->r, &stm->r, bufs, PN_INT(bufcnt), &handle->r, write_cb); PN_INT 1370 lib/aio.c int r = uv_timer_start(&handle->r, timer_cb, PN_INT(timeout), PN_INT(repeat)); PN_INT 1408 lib/aio.c uv_timer_set_repeat(&handle->r, PN_INT(repeat)); PN_INT 1455 lib/aio.c int r = uv_signal_start(&handle->r, signal_cb, PN_INT(signum)); PN_INT 1548 lib/aio.c int r = uv_process_kill(&handle->h, PN_INT(signum)); PN_INT 1557 lib/aio.c return PN_NUM(uv_kill(PN_INT(pid), PN_INT(signum))); PN_INT 1577 lib/aio.c int r = uv_fs_close(l, &req->r, PN_INT(fd), fs_cb); PN_INT 1592 lib/aio.c int r = uv_fs_open(l, &req->r, PN_STR_PTR(path), PN_INT(flags), PN_INT(mode), fs_cb); PN_INT 1611 lib/aio.c int r = uv_fs_read(l, &req->r, PN_INT(fd), PN_STR_PTR(buf), PN_INT(length), PN_INT(offset), fs_cb); PN_INT 1638 lib/aio.c int r = uv_fs_write(l, &req->r, PN_INT(fd), PN_STR_PTR(buf), PN_STR_LEN(buf), PN_INT(offset), fs_cb); PN_INT 1652 lib/aio.c int r = uv_fs_mkdir(l, &req->r, PN_STR_PTR(path), PN_INT(mode), fs_cb); PN_INT 1678 lib/aio.c int r = uv_fs_readdir(l, &req->r, PN_STR_PTR(path), PN_INT(flags), fs_cb); PN_INT 1702 lib/aio.c int r = uv_fs_fstat(l, &req->r, PN_INT(fd), fs_cb); PN_INT 1729 lib/aio.c int r = uv_fs_fsync(l, &req->r, PN_INT(fd), fs_cb); PN_INT 1741 lib/aio.c int r = uv_fs_fdatasync(l, &req->r, PN_INT(fd), fs_cb); PN_INT 66 lib/buffile.c if (!(file = fdopen(PN_INT(fd), PN_STR_PTR(modestr)))) PN_INT 146 lib/buffile.c int r = fread(PN_STR_PTR(buf), PN_INT(size), PN_INT(nitems), self->file); PN_INT 147 lib/buffile.c if (r < PN_INT(nitems)) PN_INT 158 lib/buffile.c if (!size && (!nitems || PN_INT(nitems) == 1)) { PN_INT 168 lib/buffile.c int r = fwrite(PN_STR_PTR(buf), PN_INT(size), PN_INT(nitems), self->file); PN_INT 169 lib/buffile.c if (r < PN_INT(nitems)) PN_INT 178 lib/buffile.c return PN_NUM(fputc(PN_INT(byte), self->file)); PN_INT 204 lib/buffile.c if (fseek(self->file, PN_INT(offset), PN_INT(whence))) PN_INT 35 test/api/p2-test.c CuAssert(T, "zero isn't zero", PN_INT(zero) == 0); PN_INT 39 test/api/p2-test.c 490 == PN_INT(potion_send(zero, potion_str(P, "+"), num))); PN_INT 44 test/api/p2-test.c CuAssert(T, "positive numbers invalid", PN_INT(pos) == 10891); PN_INT 48 test/api/p2-test.c 11381 == PN_INT(potion_send(pos, potion_str(P, "+"), num))); PN_INT 53 test/api/p2-test.c CuAssert(T, "negative numbers invalid", PN_INT(neg) == -4343); PN_INT 57 test/api/p2-test.c -3853 == PN_INT(potion_send(neg, potion_str(P, "+"), num))); PN_INT 69 test/api/p2-test.c 6 == PN_INT(potion_send(PN_string, potion_str(P, "length")))); PN_INT 77 test/api/p2-test.c PN_INT(potion_send(empty, potion_str(P, "length"))), 0); PN_INT 88 test/api/p2-test.c PN_INT(potion_send(tup, potion_str(P, "length"))), 3); PN_INT 103 test/api/p2-test.c CuAssertIntEquals(T, "calling closure as c func", 8, PN_INT(num)); PN_INT 34 test/api/potion-test.c CuAssert(T, "zero isn't zero", PN_INT(zero) == 0); PN_INT 38 test/api/potion-test.c 490 == PN_INT(potion_send(zero, potion_str(P, "+"), num))); PN_INT 43 test/api/potion-test.c CuAssert(T, "positive numbers invalid", PN_INT(pos) == 10891); PN_INT 47 test/api/potion-test.c 11381 == PN_INT(potion_send(pos, potion_str(P, "+"), num))); PN_INT 52 test/api/potion-test.c CuAssert(T, "negative numbers invalid", PN_INT(neg) == -4343); PN_INT 56 test/api/potion-test.c -3853 == PN_INT(potion_send(neg, potion_str(P, "+"), num))); PN_INT 68 test/api/potion-test.c 6 == PN_INT(potion_send(PN_string, potion_str(P, "length")))); PN_INT 76 test/api/potion-test.c 0, PN_INT(potion_send(empty, potion_str(P, "length")))); PN_INT 87 test/api/potion-test.c 3, PN_INT(potion_send(tup, potion_str(P, "length")))); PN_INT 94 test/api/potion-test.c CuAssertIntEquals(T, "len=2", 2, PN_INT(PN_TUPLE_LEN(sig))); PN_INT 103 test/api/potion-test.c PN_INT(PN_TUPLE_AT(sig,1))); PN_INT 107 test/api/potion-test.c PN_INT(PN_TUPLE_AT(sig,3))); PN_INT 156 test/api/potion-test.c CuAssertIntEquals(T, "cl arity f2", 2, PN_INT(potion_closure_arity(P,0,p2))); PN_INT 171 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func", 8, PN_INT(num)); PN_INT 176 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (opt)", 8, PN_INT(num)); PN_INT 178 test/api/potion-test.c CuAssertIntEquals(T, "optional num = 0", 3, PN_INT(num)); PN_INT 183 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (default)", 8, PN_INT(num)); PN_INT 185 test/api/potion-test.c CuAssertIntEquals(T, "default num = 1", 4, PN_INT(num)); PN_INT 193 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (jit)", 8, PN_INT(num)); PN_INT 201 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (jit+opt)", 8, PN_INT(num)); PN_INT 209 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (jit+default)", 8, PN_INT(num));