PN_NUM 66 core/ast.c return PN_NUM(potion_ast_sizes[t->part]); PN_NUM 89 core/ast.c return PN_NUM(t->loc.lineno); PN_NUM 186 core/compile.c f->stack = PN_NUM(reg + 1) PN_NUM 476 core/compile.c PN_PUT(f->paths, PN_NUM(num)); PN_NUM 666 core/compile.c cl->stack = PN_NUM(1); PN_NUM 847 core/compile.c PN_PUT(f->paths, PN_NUM(num)); PN_NUM 973 core/compile.c sig = PN_PUSH(sig, PN_NUM('|')); PN_NUM 987 core/compile.c sig = PN_PUSH(sig, PN_NUM('|')); PN_NUM 996 core/compile.c PN v = PN_NUM(PN_STR_PTR(PN_S(rhs,0))[0]); // = type. TODO: one-char => VTABLE PN_NUM 1004 core/compile.c PN v = PN_NUM(PN_STR_PTR((PN)SRC_TUPLE_AT(lhs,0)->a[0])[0]); // = type. TODO: one-char => VTABLE PN_NUM 1008 core/compile.c sig = PN_PUSH(sig, PN_NUM('|')); PN_NUM 1013 core/compile.c v = PN_NUM(PN_STR_PTR(v)[0]); // = type. TODO: one-char => VTABLE PN_NUM 1020 core/compile.c sig = PN_PUSH(PN_PUSH(sig, PN_NUM(':')), v); PN_NUM 1050 core/compile.c f->stack = PN_NUM(1); PN_NUM 124 core/file.c long tmp = PN_NUM(obj); len = sizeof(tmp); ptr = (char *)&tmp; PN_NUM 146 core/file.c return PN_NUM(r); PN_NUM 721 core/gc.c return PN_NUM(total); PN_NUM 729 core/gc.c return PN_NUM(total); PN_NUM 739 core/gc.c return PN_NUM(total); PN_NUM 235 core/internal.c e->line = PN_NUM(lineno); PN_NUM 236 core/internal.c e->chr = PN_NUM(charno); PN_NUM 174 core/mt19937ar.c return PN_NUM(potion_rand_int()); PN_NUM 183 core/mt19937ar.c return PN_NUM(potion_rand_double()); PN_NUM 37 core/number.c return PN_NUM((int)z); PN_NUM 51 core/number.c return PN_NUM(PN_INT(self) math_op PN_INT(num)); \ PN_NUM 56 core/number.c return PN_NUM(PN_INT(self) math_op PN_INT(num)); PN_NUM 100 core/number.c return PN_NUM(PN_INT(self) % PN_INT(num)); PN_NUM 111 core/number.c return PN_NUM(~PN_INT(self)); PN_NUM 121 core/number.c return PN_NUM(PN_INT(self) << PN_INT(num)); PN_NUM 131 core/number.c return PN_NUM(PN_INT(self) >> PN_INT(num)); PN_NUM 166 core/number.c return PN_NUM(~PN_INT(self)); PN_NUM 174 core/number.c return PN_NUM(PN_INT(self) << PN_INT(num)); PN_NUM 182 core/number.c return PN_NUM(PN_INT(self) >> PN_INT(num)); PN_NUM 215 core/number.c return PN_NUM(floor(((struct PNDouble *)self)->value)); PN_NUM 289 core/number.c PN_CLOSURE(block)->method(P, block, P->lobby, PN_NUM(i)); PN_NUM 290 core/number.c return PN_NUM(i); PN_NUM 307 core/number.c PN_CLOSURE(block)->method(P, block, P->lobby, PN_NUM(i)); PN_NUM 308 core/number.c return PN_NUM(labs(i - j)); PN_NUM 325 core/number.c PN_CLOSURE(block)->method(P, block, P->lobby, PN_NUM(i)); PN_NUM 327 core/number.c return PN_NUM(labs(i - j) / k); PN_NUM 368 core/number.c return PN_NUM(labs(PN_INT(self))); PN_NUM 375 core/number.c return PN_NUM(labs(PN_INT(self))); PN_NUM 400 core/number.c return d1 < d2 ? PN_NUM(-1) : d1 == d2 ? PN_ZERO : PN_NUM(1); PN_NUM 405 core/number.c return n1 < n2 ? PN_NUM(-1) : n1 == n2 ? PN_ZERO : PN_NUM(1); PN_NUM 420 core/number.c return d1 < d2 ? PN_NUM(-1) : d1 == d2 ? PN_ZERO : PN_NUM(1); PN_NUM 436 core/number.c return n1 < n2 ? PN_NUM(-1) : n1 == n2 ? PN_ZERO : PN_NUM(1); PN_NUM 66 core/objmodel.c return PN_NUM(PN_CLOSURE(self)->arity); PN_NUM 73 core/objmodel.c return PN_NUM(PN_CLOSURE(self)->minargs); PN_NUM 93 core/objmodel.c if (PN_IS_INT(v) && v == PN_NUM(':') && PN_IS_STR((PN)t->set[i+1])) count--; PN_NUM 116 core/objmodel.c if (PN_IS_INT(v) && v == PN_NUM('|')) break; PN_NUM 117 core/objmodel.c if (PN_IS_INT(v) && v == PN_NUM(':')) { count--; break; } PN_NUM 141 core/objmodel.c if (PN_IS_INT(v) && v == PN_NUM(':') && PN_IS_STR((PN)t->set[i+1])) count--; PN_NUM 147 core/objmodel.c if (i+2 < t->len && typ == PN_NUM(':')) PN_NUM 174 core/objmodel.c if (PN_IS_INT(v) && v == PN_NUM(':') && PN_IS_STR((PN)t->set[i+1])) count--; PN_NUM 209 core/potion.h #define PN_RAND() PN_NUM(potion_rand_int()) PN_NUM 44 core/primitive.c return PN_NUM(-1); PN_NUM 54 core/primitive.c return potion_send(PN_NUM(PN_TEST(self)), PN_cmp, value); PN_NUM 66 core/primitive.c return PN_NUM(PN_TEST(self)); PN_NUM 101 core/string.c return PN_NUM(potion_cp_strlen_utf8(PN_STR_PTR(self))); PN_NUM 125 core/string.c return PN_NUM(sign * PN_ATOI(str, i, 10)); PN_NUM 235 core/string.c return PN_NUM(corrected); PN_NUM 255 core/string.c end = PN_NUM(len); PN_NUM 321 core/string.c return PN_NUM(str[PN_INT(index)]); PN_NUM 325 core/string.c return PN_NUM(potion_utf8char_decode( PN_NUM 414 core/string.c return PN_NUM(PN_STR_LEN(str)); PN_NUM 137 core/syntax.y | mminus a:atom { a = PN_OP(AST_INC, a, PN_NUM(-1) ^ 1) } PN_NUM 138 core/syntax.y | pplus a:atom { a = PN_OP(AST_INC, a, PN_NUM(1) ^ 1) } PN_NUM 139 core/syntax.y | a:atom (pplus { a = PN_OP(AST_INC, a, PN_NUM(1)) } PN_NUM 140 core/syntax.y | mminus { a = PN_OP(AST_INC, a, PN_NUM(-1)) })?) { a = PN_TUP(a) } PN_NUM 197 core/syntax.y | hex { $$ = PN_NUM(PN_ATOI(yytext, yyleng, 16)) } PN_NUM 199 core/syntax.y $$ = PN_NUM(PN_ATOI(yytext, yyleng, 10)); PN_NUM 361 core/syntax.y arg-modifier = < ('-' | '\\' | '*' ) > { $$ = PN_NUM(yytext[0]); } PN_NUM 363 core/syntax.y arg-type = < [NBIDS&oTaubnsFPlkftxrcdm] > - { $$ = PN_NUM(yytext[0]) } PN_NUM 371 core/syntax.y { SRC_TPL3(n, PN_NUM(':'), PN_S(d,0)) } PN_NUM 376 core/syntax.y optional = '|' - { SRC_TPL1(PN_NUM('|')) } PN_NUM 377 core/syntax.y arg-rest = "..." - { SRC_TPL1(PN_NUM('.')) } PN_NUM 378 core/syntax.y arg-sep = '.' - { SRC_TPL1(PN_NUM('.')) } #x,y... ignore rest PN_NUM 486 core/syntax.y if (PN_IS_STR(v) && !(PN_IS_INT(prev) && prev == PN_NUM(':'))) PN_NUM 52 core/table.c k = kh_put(PN, t, PN_NUM(i), &ret); PN_NUM 137 core/table.c return PN_NUM(kh_size(t)); PN_NUM 388 core/table.c PN_CLOSURE(block)->method(P, block, P->lobby, v, PN_NUM(i)); PN_NUM 530 core/table.c return PN_NUM(PN_TUPLE_LEN(self)); PN_NUM 623 core/table.c return PN_NUM(m); PN_NUM 629 core/table.c return PN_NUM(-1); PN_NUM 276 core/vm.c if (PN_IS_STR(v) && !(i>0 && PN_IS_INT(t->set[i-1]) && t->set[i-1] == PN_NUM(':'))) { PN_NUM 371 core/vm.c reg[op.a] = PN_NUM(PN_INT(reg[op.a]) oper PN_INT(reg[op.b])); \ PN_NUM 389 core/vm.c reg[op.a] = PN_NUM((long)val); \ PN_NUM 477 core/vm.c if (!debug) return PN_NUM(0); PN_NUM 494 core/vm.c if (code >= PN_NUM(5)) { // :q, :exit PN_NUM 496 core/vm.c if (code == PN_NUM(6)) // :exit PN_NUM 590 core/vm.c return PN_NUM(0); PN_NUM 750 core/vm.c CASE(POW, reg[op.a] = PN_NUM((int)pow((double)PN_INT(reg[op.a]), PN_NUM 757 core/vm.c CASE(CMP, reg[op.a] = PN_NUM(PN_INT(reg[op.b]) - PN_INT(reg[op.a]))) PN_NUM 777 core/vm.c reg[op.a] = PN_IS_INT(reg[op.b]) ? PN_NUM(~PN_INT(reg[op.b])) : potion_obj_bitn(P, reg[op.b])) PN_NUM 849 core/vm.c f->stack = PN_NUM(PN_INT(f->stack)+1); PN_NUM 106 lib/aio.c PN_NUM(events), PN_NUM(status)); PN_NUM 206 lib/aio.c if (cb) cb->method(P, (PN)cb, data, PN_NUM(status)) PN_NUM 224 lib/aio.c if (cb) cb->method(P, (PN)cb, (PN)data, PN_NUM(status), potion_ref(wrap->P, (PN)res)); PN_NUM 505 lib/aio.c int r = uv_fs_event_start(&handle->r, fs_event_cb, PN_STR_PTR(filename), PN_NUM(flags)); PN_NUM 576 lib/aio.c int r = uv_tty_init(l, handle, PN_NUM(PN_DATA(file)), PN_NUM(readable)); PN_NUM 588 lib/aio.c int r = uv_pipe_init(l, handle, PN_NUM(ipc)); PN_NUM 604 lib/aio.c if (uv_barrier_init(handle, PN_NUM(count))) PN_NUM 614 lib/aio.c if (uv_sem_init(handle, PN_NUM(value))) PN_NUM 669 lib/aio.c if (cb) cb->method(P, (PN)cb, data, PN_NUM(status)); PN_NUM 717 lib/aio.c if (cb) cb->method(P, (PN)cb, (PN)data, PN_NUM(status), PN_NUM 740 lib/aio.c cb->method(P, (PN)cb, (PN)data, PN_NUM(nread), PN_NUM 767 lib/aio.c return PN_NUM(uv_version()); PN_NUM 987 lib/aio.c (uv_membership)PN_NUM(membership)); PN_NUM 997 lib/aio.c int r = uv_udp_set_multicast_loop(&handle->r, PN_NUM(on)); PN_NUM 1006 lib/aio.c int r = uv_udp_set_multicast_ttl(&handle->r, PN_NUM(ttl)); PN_NUM 1016 lib/aio.c int r = uv_udp_set_broadcast(&handle->r, PN_NUM(on)); PN_NUM 1025 lib/aio.c int r = uv_udp_set_ttl(&handle->r, PN_NUM(ttl)); PN_NUM 1108 lib/aio.c cb->method(wrap->P, (PN)cb, (PN)data, PN_NUM(nread), PN_NUM 1111 lib/aio.c PN_NUM(port), PN_NUM(flags)); PN_NUM 1198 lib/aio.c PN_PUSH(PN_PUSH(PN_TUP0(), PN_NUM(width)), PN_NUM(height)); PN_NUM 1205 lib/aio.c return PN_NUM(r); PN_NUM 1382 lib/aio.c return PN_NUM(uv_async_send(&handle->r)); PN_NUM 1417 lib/aio.c return PN_NUM(uv_timer_get_repeat(&handle->r)); PN_NUM 1440 lib/aio.c return PN_NUM(uv_handle_size(handle->h.type)); PN_NUM 1448 lib/aio.c return PN_NUM(uv_req_size(req->r.type)); PN_NUM 1581 lib/aio.c return PN_NUM(uv_kill(PN_INT(pid), PN_INT(signum))); PN_NUM 1736 lib/aio.c t->set[1] = PN_NUM(r ? -1 : dent.type); // UV_EOF PN_NUM 1831 lib/aio.c potion_define_global(P, PN_STR("AIO_"_XSTR(name)), PN_NUM(UV_##name)) PN_NUM 130 lib/buffile.c return PN_NUM(fclose(self->file)); PN_NUM 136 lib/buffile.c return PN_NUM(fgetc(self->file)); PN_NUM 158 lib/buffile.c return PN_NUM(r); PN_NUM 169 lib/buffile.c nitems = PN_NUM(1); PN_NUM 180 lib/buffile.c return PN_NUM(r); PN_NUM 187 lib/buffile.c return PN_NUM(fputc(PN_INT(byte), self->file)); PN_NUM 197 lib/buffile.c return PN_NUM(r); PN_NUM 225 lib/buffile.c return PN_NUM(r); PN_NUM 237 lib/buffile.c return PN_NUM(fileno(self->file)); PN_NUM 259 lib/buffile.c return PN_NUM(ftrylockfile(self->file)); PN_NUM 116 test/api/gc-bench.c PN_TUPLE_AT(ary, i) = PN_NUM(1.0 / i); PN_NUM 142 test/api/gc-bench.c if (long_lived == 0 || PN_TUPLE_AT(ary, 1000) != PN_NUM(1.0 / 1000)) PN_NUM 16 test/api/potion-test.c PN num = PN_NUM(490); PN_NUM 43 test/api/potion-test.c PN pos = PN_NUM(10891); PN_NUM 52 test/api/potion-test.c PN neg = PN_NUM(-4343); PN_NUM 171 test/api/potion-test.c num = addfn(P, add, 0, PN_NUM(3), PN_NUM(5)); PN_NUM 176 test/api/potion-test.c num = addfn(P, add, 0, PN_NUM(3), PN_NUM(5)); PN_NUM 178 test/api/potion-test.c num = addfn(P, add, 1, PN_NUM(3)); PN_NUM 183 test/api/potion-test.c num = addfn(P, add, 2, PN_NUM(3), PN_NUM(5)); PN_NUM 185 test/api/potion-test.c num = addfn(P, add, 1, PN_NUM(3)); PN_NUM 193 test/api/potion-test.c num = addfn(P, add, 0, PN_NUM(3), PN_NUM(5)); PN_NUM 201 test/api/potion-test.c num = addfn(P, add, 0, PN_NUM(3), PN_NUM(5)); PN_NUM 209 test/api/potion-test.c num = addfn(P, add, 0, PN_NUM(3), PN_NUM(5));