mirror of
https://github.com/pocketpy/pocketpy
synced 2025-10-19 19:10:17 +00:00
1353 lines
51 KiB
C
1353 lines
51 KiB
C
#include "pocketpy/common/str.h"
|
|
#include "pocketpy/common/utils.h"
|
|
#include "pocketpy/interpreter/frame.h"
|
|
#include "pocketpy/interpreter/vm.h"
|
|
#include "pocketpy/common/sstream.h"
|
|
#include "pocketpy/objects/codeobject.h"
|
|
#include "pocketpy/pocketpy.h"
|
|
#include "pocketpy/objects/error.h"
|
|
#include <stdbool.h>
|
|
|
|
static bool stack_format_object(VM* self, c11_sv spec);
|
|
|
|
#define CHECK_RETURN_FROM_EXCEPT_OR_FINALLY() \
|
|
if(self->is_curr_exc_handled) py_clearexc(NULL)
|
|
|
|
#define DISPATCH() \
|
|
do { \
|
|
frame->ip++; \
|
|
goto __NEXT_STEP; \
|
|
} while(0)
|
|
#define DISPATCH_JUMP(__offset) \
|
|
do { \
|
|
frame->ip += __offset; \
|
|
goto __NEXT_STEP; \
|
|
} while(0)
|
|
#define DISPATCH_JUMP_ABSOLUTE(__target) \
|
|
do { \
|
|
frame->ip = c11__at(Bytecode, &frame->co->codes, __target); \
|
|
goto __NEXT_STEP; \
|
|
} while(0)
|
|
|
|
/* Stack manipulation macros */
|
|
// https://github.com/python/cpython/blob/3.9/Python/ceval.c#L1123
|
|
#define TOP() (self->stack.sp - 1)
|
|
#define SECOND() (self->stack.sp - 2)
|
|
#define THIRD() (self->stack.sp - 3)
|
|
#define FOURTH() (self->stack.sp - 4)
|
|
#define STACK_SHRINK(n) (self->stack.sp -= n)
|
|
#define STACK_GROW(n) (self->stack.sp += n)
|
|
#define PUSH(v) \
|
|
do { \
|
|
*self->stack.sp = *(v); \
|
|
self->stack.sp++; \
|
|
} while(0)
|
|
#define POP() (--self->stack.sp)
|
|
#define POPX() (*--self->stack.sp)
|
|
#define SP() (self->stack.sp)
|
|
|
|
// [a, b] -> [?, a, b]
|
|
#define INSERT_THIRD() \
|
|
do { \
|
|
PUSH(TOP()); \
|
|
*SECOND() = *THIRD(); \
|
|
} while(0)
|
|
|
|
#define vectorcall_opcall(argc, kwargc) \
|
|
do { \
|
|
FrameResult res = VM__vectorcall(self, (argc), (kwargc), true); \
|
|
switch(res) { \
|
|
case RES_RETURN: PUSH(&self->last_retval); break; \
|
|
case RES_CALL: frame = self->top_frame; goto __NEXT_FRAME; \
|
|
case RES_ERROR: goto __ERROR; \
|
|
default: c11__unreachedable(); \
|
|
} \
|
|
} while(0)
|
|
|
|
static bool unpack_dict_to_buffer(py_Ref key, py_Ref val, void* ctx) {
|
|
py_TValue** p = ctx;
|
|
if(py_isstr(key)) {
|
|
py_Name name = py_namev(py_tosv(key));
|
|
py_newint(*p, name);
|
|
py_assign(*p + 1, val);
|
|
(*p) += 2;
|
|
return true;
|
|
}
|
|
return TypeError("keywords must be strings, not '%t'", key->type);
|
|
}
|
|
|
|
FrameResult VM__run_top_frame(VM* self) {
|
|
Frame* frame = self->top_frame;
|
|
const Frame* base_frame = frame;
|
|
|
|
while(true) {
|
|
Bytecode byte;
|
|
__NEXT_FRAME:
|
|
frame->ip++;
|
|
|
|
__NEXT_STEP:
|
|
byte = *frame->ip;
|
|
|
|
#ifndef NDEBUG
|
|
pk_print_stack(self, frame, byte);
|
|
#endif
|
|
|
|
switch((Opcode)byte.op) {
|
|
case OP_NO_OP: DISPATCH();
|
|
/*****************************************/
|
|
case OP_POP_TOP: POP(); DISPATCH();
|
|
case OP_DUP_TOP: PUSH(TOP()); DISPATCH();
|
|
case OP_DUP_TOP_TWO:
|
|
// [a, b]
|
|
PUSH(SECOND()); // [a, b, a]
|
|
PUSH(SECOND()); // [a, b, a, b]
|
|
DISPATCH();
|
|
case OP_ROT_TWO: {
|
|
py_TValue tmp = *TOP();
|
|
*TOP() = *SECOND();
|
|
*SECOND() = tmp;
|
|
DISPATCH();
|
|
}
|
|
case OP_ROT_THREE: {
|
|
// [a, b, c] -> [c, a, b]
|
|
py_TValue tmp = *TOP();
|
|
*TOP() = *SECOND();
|
|
*SECOND() = *THIRD();
|
|
*THIRD() = tmp;
|
|
DISPATCH();
|
|
}
|
|
case OP_PRINT_EXPR:
|
|
if(TOP()->type != tp_NoneType) {
|
|
bool ok = py_repr(TOP());
|
|
if(!ok) goto __ERROR;
|
|
self->callbacks.print(py_tostr(&self->last_retval));
|
|
self->callbacks.print("\n");
|
|
}
|
|
POP();
|
|
DISPATCH();
|
|
/*****************************************/
|
|
case OP_LOAD_CONST: PUSH(c11__at(py_TValue, &frame->co->consts, byte.arg)); DISPATCH();
|
|
case OP_LOAD_NONE: py_newnone(SP()++); DISPATCH();
|
|
case OP_LOAD_TRUE: py_newbool(SP()++, true); DISPATCH();
|
|
case OP_LOAD_FALSE: py_newbool(SP()++, false); DISPATCH();
|
|
/*****************************************/
|
|
case OP_LOAD_SMALL_INT: py_newint(SP()++, (int16_t)byte.arg); DISPATCH();
|
|
/*****************************************/
|
|
case OP_LOAD_ELLIPSIS: py_newellipsis(SP()++); DISPATCH();
|
|
case OP_LOAD_FUNCTION: {
|
|
FuncDecl_ decl = c11__getitem(FuncDecl_, &frame->co->func_decls, byte.arg);
|
|
Function* ud = py_newobject(SP(), tp_function, 0, sizeof(Function));
|
|
Function__ctor(ud, decl, frame->module);
|
|
if(decl->nested) {
|
|
ud->closure = FastLocals__to_namedict(frame->locals, frame->co);
|
|
py_Name name = py_name(decl->code.name->data);
|
|
// capture itself to allow recursion
|
|
NameDict__set(ud->closure, name, *SP());
|
|
}
|
|
SP()++;
|
|
DISPATCH();
|
|
}
|
|
case OP_LOAD_NULL:
|
|
py_newnil(SP()++);
|
|
DISPATCH();
|
|
/*****************************************/
|
|
case OP_LOAD_FAST: {
|
|
PUSH(&frame->locals[byte.arg]);
|
|
if(py_isnil(TOP())) {
|
|
py_Name name = c11__getitem(uint16_t, &frame->co->varnames, byte.arg);
|
|
UnboundLocalError(name);
|
|
goto __ERROR;
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_LOAD_NAME: {
|
|
assert(frame->is_dynamic);
|
|
py_Name name = byte.arg;
|
|
py_TValue* tmp;
|
|
py_newstr(SP()++, py_name2str(name));
|
|
// locals
|
|
if(!py_isnone(&frame->p0[1])) {
|
|
if(py_getitem(&frame->p0[1], TOP())) {
|
|
py_assign(TOP(), py_retval());
|
|
DISPATCH();
|
|
} else {
|
|
if(py_matchexc(tp_KeyError)) {
|
|
py_clearexc(NULL);
|
|
} else {
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
}
|
|
// globals
|
|
if(py_getitem(&frame->p0[0], TOP())) {
|
|
py_assign(TOP(), py_retval());
|
|
DISPATCH();
|
|
} else {
|
|
if(py_matchexc(tp_KeyError)) {
|
|
py_clearexc(NULL);
|
|
} else {
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
// builtins
|
|
tmp = py_getdict(&self->builtins, name);
|
|
if(tmp != NULL) {
|
|
py_assign(TOP(), tmp);
|
|
DISPATCH();
|
|
}
|
|
NameError(name);
|
|
goto __ERROR;
|
|
}
|
|
case OP_LOAD_NONLOCAL: {
|
|
py_Name name = byte.arg;
|
|
py_Ref tmp = Frame__f_closure_try_get(frame, name);
|
|
if(tmp != NULL) {
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
tmp = py_getdict(frame->module, name);
|
|
if(tmp != NULL) {
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
tmp = py_getdict(&self->builtins, name);
|
|
if(tmp != NULL) {
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
NameError(name);
|
|
goto __ERROR;
|
|
}
|
|
case OP_LOAD_GLOBAL: {
|
|
py_Name name = byte.arg;
|
|
py_Ref tmp = py_getdict(frame->module, name);
|
|
if(tmp != NULL) {
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
tmp = py_getdict(&self->builtins, name);
|
|
if(tmp != NULL) {
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
NameError(name);
|
|
goto __ERROR;
|
|
}
|
|
case OP_LOAD_ATTR: {
|
|
if(py_getattr(TOP(), byte.arg)) {
|
|
py_assign(TOP(), py_retval());
|
|
} else {
|
|
goto __ERROR;
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_LOAD_CLASS_GLOBAL: {
|
|
assert(self->__curr_class);
|
|
py_Name name = byte.arg;
|
|
py_Ref tmp = py_getdict(self->__curr_class, name);
|
|
if(tmp) {
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
// load global if attribute not found
|
|
tmp = py_getdict(frame->module, name);
|
|
if(tmp) {
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
tmp = py_getdict(&self->builtins, name);
|
|
if(tmp) {
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
NameError(name);
|
|
goto __ERROR;
|
|
}
|
|
case OP_LOAD_METHOD: {
|
|
// [self] -> [unbound, self]
|
|
bool ok = py_pushmethod(byte.arg);
|
|
if(!ok) {
|
|
// fallback to getattr
|
|
if(py_getattr(TOP(), byte.arg)) {
|
|
py_assign(TOP(), py_retval());
|
|
py_newnil(SP()++);
|
|
} else {
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_LOAD_SUBSCR: {
|
|
// [a, b] -> a[b]
|
|
py_Ref magic = py_tpfindmagic(SECOND()->type, __getitem__);
|
|
if(magic) {
|
|
if(magic->type == tp_nativefunc) {
|
|
if(!py_callcfunc(magic->_cfunc, 2, SECOND())) goto __ERROR;
|
|
POP();
|
|
py_assign(TOP(), py_retval());
|
|
} else {
|
|
INSERT_THIRD(); // [?, a, b]
|
|
*THIRD() = *magic; // [__getitem__, a, b]
|
|
if(!py_vectorcall(1, 0)) goto __ERROR;
|
|
PUSH(py_retval());
|
|
}
|
|
DISPATCH();
|
|
}
|
|
TypeError("'%t' object is not subscriptable", SECOND()->type);
|
|
goto __ERROR;
|
|
}
|
|
case OP_STORE_FAST: frame->locals[byte.arg] = POPX(); DISPATCH();
|
|
case OP_STORE_NAME: {
|
|
assert(frame->is_dynamic);
|
|
py_Name name = byte.arg;
|
|
py_newstr(SP()++, py_name2str(name));
|
|
// [value, name]
|
|
if(!py_isnone(&frame->p0[1])) {
|
|
// locals
|
|
if(py_setitem(&frame->p0[1], TOP(), SECOND())) {
|
|
STACK_SHRINK(2);
|
|
DISPATCH();
|
|
} else {
|
|
if(py_matchexc(tp_KeyError)) {
|
|
py_clearexc(NULL);
|
|
NameError(name);
|
|
}
|
|
goto __ERROR;
|
|
}
|
|
} else {
|
|
// globals
|
|
if(py_setitem(&frame->p0[0], TOP(), SECOND())) {
|
|
STACK_SHRINK(2);
|
|
DISPATCH();
|
|
} else {
|
|
if(py_matchexc(tp_KeyError)) {
|
|
py_clearexc(NULL);
|
|
NameError(name);
|
|
}
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_STORE_GLOBAL: {
|
|
py_setdict(frame->module, byte.arg, TOP());
|
|
POP();
|
|
DISPATCH();
|
|
}
|
|
case OP_STORE_ATTR: {
|
|
// [val, a] -> a.b = val
|
|
if(!py_setattr(TOP(), byte.arg, SECOND())) goto __ERROR;
|
|
STACK_SHRINK(2);
|
|
DISPATCH();
|
|
}
|
|
case OP_STORE_SUBSCR: {
|
|
// [val, a, b] -> a[b] = val
|
|
py_Ref magic = py_tpfindmagic(SECOND()->type, __setitem__);
|
|
if(magic) {
|
|
PUSH(THIRD()); // [val, a, b, val]
|
|
if(magic->type == tp_nativefunc) {
|
|
if(!py_callcfunc(magic->_cfunc, 3, THIRD())) goto __ERROR;
|
|
STACK_SHRINK(4);
|
|
} else {
|
|
*FOURTH() = *magic; // [__selitem__, a, b, val]
|
|
if(!py_vectorcall(2, 0)) goto __ERROR;
|
|
}
|
|
DISPATCH();
|
|
}
|
|
TypeError("'%t' object does not support item assignment", SECOND()->type);
|
|
goto __ERROR;
|
|
}
|
|
case OP_DELETE_FAST: {
|
|
py_Ref tmp = &frame->locals[byte.arg];
|
|
if(py_isnil(tmp)) {
|
|
py_Name name = c11__getitem(py_Name, &frame->co->varnames, byte.arg);
|
|
UnboundLocalError(name);
|
|
goto __ERROR;
|
|
}
|
|
py_newnil(tmp);
|
|
DISPATCH();
|
|
}
|
|
case OP_DELETE_NAME: {
|
|
assert(frame->is_dynamic);
|
|
py_Name name = byte.arg;
|
|
py_newstr(SP()++, py_name2str(name));
|
|
if(!py_isnone(&frame->p0[1])) {
|
|
// locals
|
|
if(py_delitem(&frame->p0[1], TOP())) {
|
|
POP();
|
|
DISPATCH();
|
|
} else {
|
|
if(py_matchexc(tp_KeyError)) {
|
|
py_clearexc(NULL);
|
|
NameError(name);
|
|
}
|
|
goto __ERROR;
|
|
}
|
|
} else {
|
|
// globals
|
|
if(py_delitem(&frame->p0[0], TOP())) {
|
|
POP();
|
|
DISPATCH();
|
|
} else {
|
|
if(py_matchexc(tp_KeyError)) {
|
|
py_clearexc(NULL);
|
|
NameError(name);
|
|
}
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_DELETE_GLOBAL: {
|
|
py_Name name = byte.arg;
|
|
bool ok = py_deldict(frame->module, name);
|
|
if(!ok) {
|
|
NameError(name);
|
|
goto __ERROR;
|
|
}
|
|
DISPATCH();
|
|
}
|
|
|
|
case OP_DELETE_ATTR: {
|
|
if(!py_delattr(TOP(), byte.arg)) goto __ERROR;
|
|
DISPATCH();
|
|
}
|
|
|
|
case OP_DELETE_SUBSCR: {
|
|
// [a, b] -> del a[b]
|
|
py_Ref magic = py_tpfindmagic(SECOND()->type, __delitem__);
|
|
if(magic) {
|
|
if(magic->type == tp_nativefunc) {
|
|
if(!py_callcfunc(magic->_cfunc, 2, SECOND())) goto __ERROR;
|
|
STACK_SHRINK(2);
|
|
} else {
|
|
INSERT_THIRD(); // [?, a, b]
|
|
*THIRD() = *magic; // [__delitem__, a, b]
|
|
if(!py_vectorcall(1, 0)) goto __ERROR;
|
|
}
|
|
DISPATCH();
|
|
}
|
|
TypeError("'%t' object does not support item deletion", SECOND()->type);
|
|
goto __ERROR;
|
|
}
|
|
/*****************************************/
|
|
case OP_BUILD_IMAG: {
|
|
// [x]
|
|
py_Ref f = py_getdict(&self->builtins, py_name("complex"));
|
|
assert(f != NULL);
|
|
py_TValue tmp = *TOP();
|
|
*TOP() = *f; // [complex]
|
|
py_newnil(SP()++); // [complex, NULL]
|
|
py_newint(SP()++, 0); // [complex, NULL, 0]
|
|
*SP()++ = tmp; // [complex, NULL, 0, x]
|
|
if(!py_vectorcall(2, 0)) goto __ERROR;
|
|
PUSH(py_retval());
|
|
DISPATCH();
|
|
}
|
|
case OP_BUILD_BYTES: {
|
|
int size;
|
|
py_Ref string = c11__at(py_TValue, &frame->co->consts, byte.arg);
|
|
const char* data = py_tostrn(string, &size);
|
|
unsigned char* p = py_newbytes(SP()++, size);
|
|
memcpy(p, data, size);
|
|
DISPATCH();
|
|
}
|
|
case OP_BUILD_TUPLE: {
|
|
py_TValue tmp;
|
|
py_newtuple(&tmp, byte.arg);
|
|
py_TValue* begin = SP() - byte.arg;
|
|
for(int i = 0; i < byte.arg; i++) {
|
|
py_tuple_setitem(&tmp, i, begin + i);
|
|
}
|
|
SP() = begin;
|
|
PUSH(&tmp);
|
|
DISPATCH();
|
|
}
|
|
case OP_BUILD_LIST: {
|
|
py_TValue tmp;
|
|
py_newlistn(&tmp, byte.arg);
|
|
py_TValue* begin = SP() - byte.arg;
|
|
for(int i = 0; i < byte.arg; i++) {
|
|
py_list_setitem(&tmp, i, begin + i);
|
|
}
|
|
SP() = begin;
|
|
PUSH(&tmp);
|
|
DISPATCH();
|
|
}
|
|
case OP_BUILD_DICT: {
|
|
py_TValue* begin = SP() - byte.arg * 2;
|
|
py_Ref tmp = py_pushtmp();
|
|
py_newdict(tmp);
|
|
for(int i = 0; i < byte.arg * 2; i += 2) {
|
|
bool ok = py_dict_setitem(tmp, begin + i, begin + i + 1);
|
|
if(!ok) goto __ERROR;
|
|
}
|
|
SP() = begin;
|
|
PUSH(tmp);
|
|
DISPATCH();
|
|
}
|
|
case OP_BUILD_SET: {
|
|
py_TValue* begin = SP() - byte.arg;
|
|
py_Ref typeobject_set = py_getdict(&self->builtins, py_name("set"));
|
|
assert(typeobject_set != NULL);
|
|
py_push(typeobject_set);
|
|
py_pushnil();
|
|
if(!py_vectorcall(0, 0)) goto __ERROR;
|
|
py_push(py_retval()); // empty set
|
|
py_Name id_add = py_name("add");
|
|
for(int i = 0; i < byte.arg; i++) {
|
|
py_push(TOP());
|
|
if(!py_pushmethod(id_add)) {
|
|
c11__abort("OP_BUILD_SET: failed to load method 'add'");
|
|
}
|
|
py_push(begin + i);
|
|
if(!py_vectorcall(1, 0)) goto __ERROR;
|
|
}
|
|
py_TValue tmp = *TOP();
|
|
SP() = begin;
|
|
PUSH(&tmp);
|
|
DISPATCH();
|
|
}
|
|
case OP_BUILD_SLICE: {
|
|
// [start, stop, step]
|
|
py_TValue tmp;
|
|
py_newslice(&tmp);
|
|
py_setslot(&tmp, 0, THIRD());
|
|
py_setslot(&tmp, 1, SECOND());
|
|
py_setslot(&tmp, 2, TOP());
|
|
STACK_SHRINK(3);
|
|
PUSH(&tmp);
|
|
DISPATCH();
|
|
}
|
|
case OP_BUILD_STRING: {
|
|
py_TValue* begin = SP() - byte.arg;
|
|
c11_sbuf ss;
|
|
c11_sbuf__ctor(&ss);
|
|
for(int i = 0; i < byte.arg; i++) {
|
|
if(!py_str(begin + i)) goto __ERROR;
|
|
c11_sbuf__write_sv(&ss, py_tosv(&self->last_retval));
|
|
}
|
|
SP() = begin;
|
|
c11_sbuf__py_submit(&ss, SP()++);
|
|
DISPATCH();
|
|
}
|
|
/*****************************/
|
|
case OP_BINARY_OP: {
|
|
py_Name op = byte.arg & 0xFF;
|
|
py_Name rop = byte.arg >> 8;
|
|
if(!pk_stack_binaryop(self, op, rop)) goto __ERROR;
|
|
POP();
|
|
*TOP() = self->last_retval;
|
|
DISPATCH();
|
|
}
|
|
case OP_IS_OP: {
|
|
bool res = py_isidentical(SECOND(), TOP());
|
|
POP();
|
|
if(byte.arg) res = !res;
|
|
py_newbool(TOP(), res);
|
|
DISPATCH();
|
|
}
|
|
case OP_CONTAINS_OP: {
|
|
// [b, a] -> b __contains__ a (a in b) -> [retval]
|
|
py_Ref magic = py_tpfindmagic(SECOND()->type, __contains__);
|
|
if(magic) {
|
|
if(magic->type == tp_nativefunc) {
|
|
if(!py_callcfunc(magic->_cfunc, 2, SECOND())) goto __ERROR;
|
|
STACK_SHRINK(2);
|
|
} else {
|
|
INSERT_THIRD(); // [?, b, a]
|
|
*THIRD() = *magic; // [__contains__, a, b]
|
|
if(!py_vectorcall(1, 0)) goto __ERROR;
|
|
}
|
|
bool res = py_tobool(py_retval());
|
|
if(byte.arg) res = !res;
|
|
py_newbool(SP()++, res);
|
|
DISPATCH();
|
|
}
|
|
TypeError("'%t' type does not support '__contains__'", SECOND()->type);
|
|
goto __ERROR;
|
|
}
|
|
/*****************************************/
|
|
case OP_JUMP_FORWARD: DISPATCH_JUMP((int16_t)byte.arg);
|
|
case OP_POP_JUMP_IF_FALSE: {
|
|
int res = py_bool(TOP());
|
|
if(res < 0) goto __ERROR;
|
|
POP();
|
|
if(!res) DISPATCH_JUMP((int16_t)byte.arg);
|
|
DISPATCH();
|
|
}
|
|
case OP_POP_JUMP_IF_TRUE: {
|
|
int res = py_bool(TOP());
|
|
if(res < 0) goto __ERROR;
|
|
POP();
|
|
if(res) DISPATCH_JUMP((int16_t)byte.arg);
|
|
DISPATCH();
|
|
}
|
|
case OP_JUMP_IF_TRUE_OR_POP: {
|
|
int res = py_bool(TOP());
|
|
if(res < 0) goto __ERROR;
|
|
if(res) {
|
|
DISPATCH_JUMP((int16_t)byte.arg);
|
|
} else {
|
|
POP();
|
|
DISPATCH();
|
|
}
|
|
}
|
|
case OP_JUMP_IF_FALSE_OR_POP: {
|
|
int res = py_bool(TOP());
|
|
if(res < 0) goto __ERROR;
|
|
if(!res) {
|
|
DISPATCH_JUMP((int16_t)byte.arg);
|
|
} else {
|
|
POP();
|
|
DISPATCH();
|
|
}
|
|
}
|
|
case OP_SHORTCUT_IF_FALSE_OR_POP: {
|
|
int res = py_bool(TOP());
|
|
if(res < 0) goto __ERROR;
|
|
if(!res) { // [b, False]
|
|
STACK_SHRINK(2); // []
|
|
py_newbool(SP()++, false); // [False]
|
|
DISPATCH_JUMP((int16_t)byte.arg);
|
|
} else {
|
|
POP(); // [b]
|
|
DISPATCH();
|
|
}
|
|
}
|
|
case OP_LOOP_CONTINUE: {
|
|
DISPATCH_JUMP((int16_t)byte.arg);
|
|
}
|
|
case OP_LOOP_BREAK: {
|
|
DISPATCH_JUMP((int16_t)byte.arg);
|
|
}
|
|
/*****************************************/
|
|
case OP_CALL: {
|
|
ManagedHeap__collect_if_needed(&self->heap);
|
|
vectorcall_opcall(byte.arg & 0xFF, byte.arg >> 8);
|
|
DISPATCH();
|
|
}
|
|
case OP_CALL_VARGS: {
|
|
// [_0, _1, _2 | k1, v1, k2, v2]
|
|
uint16_t argc = byte.arg & 0xFF;
|
|
uint16_t kwargc = byte.arg >> 8;
|
|
|
|
int n = 0;
|
|
py_TValue* sp = SP();
|
|
py_TValue* p1 = sp - kwargc * 2;
|
|
py_TValue* base = p1 - argc;
|
|
py_TValue* buf = self->__vectorcall_buffer;
|
|
|
|
for(py_TValue* curr = base; curr != p1; curr++) {
|
|
if(curr->type != tp_star_wrapper) {
|
|
buf[n++] = *curr;
|
|
} else {
|
|
py_TValue* args = py_getslot(curr, 0);
|
|
py_TValue* p;
|
|
int length = pk_arrayview(args, &p);
|
|
if(length != -1) {
|
|
for(int j = 0; j < length; j++) {
|
|
buf[n++] = p[j];
|
|
}
|
|
argc += length - 1;
|
|
} else {
|
|
TypeError("*args must be a list or tuple, got '%t'", args->type);
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
}
|
|
|
|
for(py_TValue* curr = p1; curr != sp; curr += 2) {
|
|
if(curr[1].type != tp_star_wrapper) {
|
|
buf[n++] = curr[0];
|
|
buf[n++] = curr[1];
|
|
} else {
|
|
assert(py_toint(&curr[0]) == 0);
|
|
py_TValue* kwargs = py_getslot(&curr[1], 0);
|
|
if(kwargs->type == tp_dict) {
|
|
py_TValue* p = buf + n;
|
|
if(!py_dict_apply(kwargs, unpack_dict_to_buffer, &p)) goto __ERROR;
|
|
n = p - buf;
|
|
kwargc += py_dict_len(kwargs) - 1;
|
|
} else {
|
|
TypeError("**kwargs must be a dict, got '%t'", kwargs->type);
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
}
|
|
|
|
memcpy(base, buf, n * sizeof(py_TValue));
|
|
SP() = base + n;
|
|
|
|
vectorcall_opcall(argc, kwargc);
|
|
DISPATCH();
|
|
}
|
|
case OP_RETURN_VALUE: {
|
|
CHECK_RETURN_FROM_EXCEPT_OR_FINALLY();
|
|
if(byte.arg == BC_NOARG) {
|
|
self->last_retval = POPX();
|
|
} else {
|
|
py_newnone(&self->last_retval);
|
|
}
|
|
VM__pop_frame(self);
|
|
if(frame == base_frame) { // [ frameBase<- ]
|
|
return RES_RETURN;
|
|
} else {
|
|
frame = self->top_frame;
|
|
PUSH(&self->last_retval);
|
|
goto __NEXT_FRAME;
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_YIELD_VALUE: {
|
|
CHECK_RETURN_FROM_EXCEPT_OR_FINALLY();
|
|
if(byte.arg == 1) {
|
|
py_newnone(py_retval());
|
|
} else {
|
|
py_assign(py_retval(), TOP());
|
|
POP();
|
|
}
|
|
return RES_YIELD;
|
|
}
|
|
case OP_FOR_ITER_YIELD_VALUE: {
|
|
CHECK_RETURN_FROM_EXCEPT_OR_FINALLY();
|
|
int res = py_next(TOP());
|
|
if(res == -1) goto __ERROR;
|
|
if(res) {
|
|
return RES_YIELD;
|
|
} else {
|
|
assert(self->last_retval.type == tp_StopIteration);
|
|
py_ObjectRef value = py_getslot(&self->last_retval, 0);
|
|
if(py_isnil(value)) value = py_None();
|
|
*TOP() = *value; // [iter] -> [retval]
|
|
DISPATCH_JUMP((int16_t)byte.arg);
|
|
}
|
|
}
|
|
/////////
|
|
case OP_LIST_APPEND: {
|
|
// [list, iter, value]
|
|
py_list_append(THIRD(), TOP());
|
|
POP();
|
|
DISPATCH();
|
|
}
|
|
case OP_DICT_ADD: {
|
|
// [dict, iter, key, value]
|
|
bool ok = py_dict_setitem(FOURTH(), SECOND(), TOP());
|
|
if(!ok) goto __ERROR;
|
|
STACK_SHRINK(2);
|
|
DISPATCH();
|
|
}
|
|
case OP_SET_ADD: {
|
|
// [set, iter, value]
|
|
py_push(THIRD()); // [| set]
|
|
if(!py_pushmethod(py_name("add"))) {
|
|
c11__abort("OP_SET_ADD: failed to load method 'add'");
|
|
} // [|add() set]
|
|
py_push(THIRD());
|
|
if(!py_vectorcall(1, 0)) goto __ERROR;
|
|
POP();
|
|
DISPATCH();
|
|
}
|
|
/////////
|
|
case OP_UNARY_NEGATIVE: {
|
|
if(!pk_callmagic(__neg__, 1, TOP())) goto __ERROR;
|
|
*TOP() = self->last_retval;
|
|
DISPATCH();
|
|
}
|
|
case OP_UNARY_NOT: {
|
|
int res = py_bool(TOP());
|
|
if(res < 0) goto __ERROR;
|
|
py_newbool(TOP(), !res);
|
|
DISPATCH();
|
|
}
|
|
case OP_UNARY_STAR: {
|
|
py_TValue value = POPX();
|
|
int* level = py_newobject(SP()++, tp_star_wrapper, 1, sizeof(int));
|
|
*level = byte.arg;
|
|
py_setslot(TOP(), 0, &value);
|
|
DISPATCH();
|
|
}
|
|
case OP_UNARY_INVERT: {
|
|
if(!pk_callmagic(__invert__, 1, TOP())) goto __ERROR;
|
|
*TOP() = self->last_retval;
|
|
DISPATCH();
|
|
}
|
|
////////////////
|
|
case OP_GET_ITER: {
|
|
if(!py_iter(TOP())) goto __ERROR;
|
|
*TOP() = *py_retval();
|
|
DISPATCH();
|
|
}
|
|
case OP_FOR_ITER: {
|
|
int res = py_next(TOP());
|
|
if(res == -1) goto __ERROR;
|
|
if(res) {
|
|
PUSH(py_retval());
|
|
DISPATCH();
|
|
} else {
|
|
assert(self->last_retval.type == tp_StopIteration);
|
|
POP(); // [iter] -> []
|
|
DISPATCH_JUMP((int16_t)byte.arg);
|
|
}
|
|
}
|
|
////////
|
|
case OP_IMPORT_PATH: {
|
|
py_Ref path_object = c11__at(py_TValue, &frame->co->consts, byte.arg);
|
|
const char* path = py_tostr(path_object);
|
|
int res = py_import(path);
|
|
if(res == -1) goto __ERROR;
|
|
if(res == 0) {
|
|
ImportError("No module named '%s'", path);
|
|
goto __ERROR;
|
|
}
|
|
PUSH(py_retval());
|
|
DISPATCH();
|
|
}
|
|
case OP_POP_IMPORT_STAR: {
|
|
// [module]
|
|
NameDict* dict = PyObject__dict(TOP()->_obj);
|
|
py_Ref all = NameDict__try_get(dict, __all__);
|
|
if(all) {
|
|
py_TValue* p;
|
|
int length = pk_arrayview(all, &p);
|
|
if(length == -1) {
|
|
TypeError("'__all__' must be a list or tuple, got '%t'", all->type);
|
|
goto __ERROR;
|
|
}
|
|
for(int i = 0; i < length; i++) {
|
|
py_Name name = py_namev(py_tosv(p + i));
|
|
py_Ref value = NameDict__try_get(dict, name);
|
|
if(value == NULL) {
|
|
ImportError("cannot import name '%n'", name);
|
|
goto __ERROR;
|
|
} else {
|
|
py_setdict(frame->module, name, value);
|
|
}
|
|
}
|
|
} else {
|
|
for(int i = 0; i < dict->length; i++) {
|
|
NameDict_KV* kv = c11__at(NameDict_KV, dict, i);
|
|
if(!kv->key) continue;
|
|
c11_sv name = py_name2sv(kv->key);
|
|
if(name.size == 0 || name.data[0] == '_') continue;
|
|
py_setdict(frame->module, kv->key, &kv->value);
|
|
}
|
|
}
|
|
POP();
|
|
DISPATCH();
|
|
}
|
|
////////
|
|
case OP_UNPACK_SEQUENCE: {
|
|
py_TValue* p;
|
|
int length;
|
|
|
|
switch(TOP()->type) {
|
|
case tp_tuple: {
|
|
length = py_tuple_len(TOP());
|
|
p = py_tuple_data(TOP());
|
|
break;
|
|
}
|
|
case tp_list: {
|
|
length = py_list_len(TOP());
|
|
p = py_list_data(TOP());
|
|
break;
|
|
}
|
|
case tp_vec2i: {
|
|
length = 2;
|
|
if(byte.arg != length) break;
|
|
c11_vec2i val = py_tovec2i(TOP());
|
|
POP();
|
|
py_newint(SP()++, val.x);
|
|
py_newint(SP()++, val.y);
|
|
DISPATCH();
|
|
}
|
|
case tp_vec2: {
|
|
length = 2;
|
|
if(byte.arg != length) break;
|
|
c11_vec2 val = py_tovec2(TOP());
|
|
POP();
|
|
py_newfloat(SP()++, val.x);
|
|
py_newfloat(SP()++, val.y);
|
|
DISPATCH();
|
|
}
|
|
case tp_vec3i: {
|
|
length = 3;
|
|
if(byte.arg != length) break;
|
|
c11_vec3i val = py_tovec3i(TOP());
|
|
POP();
|
|
py_newint(SP()++, val.x);
|
|
py_newint(SP()++, val.y);
|
|
py_newint(SP()++, val.z);
|
|
DISPATCH();
|
|
}
|
|
case tp_vec3: {
|
|
length = 3;
|
|
if(byte.arg != length) break;
|
|
c11_vec3 val = py_tovec3(TOP());
|
|
POP();
|
|
py_newfloat(SP()++, val.x);
|
|
py_newfloat(SP()++, val.y);
|
|
py_newfloat(SP()++, val.z);
|
|
DISPATCH();
|
|
}
|
|
default: {
|
|
TypeError("expected list or tuple to unpack, got %t", TOP()->type);
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
if(length != byte.arg) {
|
|
ValueError("expected %d values to unpack, got %d", byte.arg, length);
|
|
goto __ERROR;
|
|
}
|
|
POP();
|
|
for(int i = 0; i < length; i++) {
|
|
PUSH(p + i);
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_UNPACK_EX: {
|
|
py_TValue* p;
|
|
int length = pk_arrayview(TOP(), &p);
|
|
if(length == -1) {
|
|
TypeError("expected list or tuple to unpack, got %t", TOP()->type);
|
|
goto __ERROR;
|
|
}
|
|
int exceed = length - byte.arg;
|
|
if(exceed < 0) {
|
|
ValueError("not enough values to unpack");
|
|
goto __ERROR;
|
|
}
|
|
POP();
|
|
for(int i = 0; i < byte.arg; i++) {
|
|
PUSH(p + i);
|
|
}
|
|
py_newlistn(SP()++, exceed);
|
|
for(int i = 0; i < exceed; i++) {
|
|
py_list_setitem(TOP(), i, p + byte.arg + i);
|
|
}
|
|
DISPATCH();
|
|
}
|
|
///////////
|
|
case OP_BEGIN_CLASS: {
|
|
// [base]
|
|
py_Name name = byte.arg;
|
|
py_Type base;
|
|
if(py_isnone(TOP())) {
|
|
base = tp_object;
|
|
} else {
|
|
if(!py_checktype(TOP(), tp_type)) goto __ERROR;
|
|
base = py_totype(TOP());
|
|
}
|
|
POP();
|
|
|
|
py_TypeInfo* base_ti = TypeList__get(&self->types, base);
|
|
if(base_ti->is_sealed) {
|
|
TypeError("type '%t' is not an acceptable base type", base);
|
|
goto __ERROR;
|
|
}
|
|
|
|
py_Type type =
|
|
pk_newtype(py_name2str(name), base, frame->module, NULL, true, false);
|
|
PUSH(py_tpobject(type));
|
|
self->__curr_class = TOP();
|
|
DISPATCH();
|
|
}
|
|
case OP_END_CLASS: {
|
|
// [cls or decorated]
|
|
// TODO: if __eq__ is defined, check __ne__ and provide a default implementation
|
|
py_Name name = byte.arg;
|
|
// set into f_globals
|
|
py_setdict(frame->module, name, TOP());
|
|
|
|
if(py_istype(TOP(), tp_type)) {
|
|
// call on_end_subclass
|
|
py_TypeInfo* ti = TypeList__get(&self->types, py_totype(TOP()));
|
|
if(ti->base != tp_object) {
|
|
py_TypeInfo* base_ti = ti->base_ti;
|
|
if(base_ti->on_end_subclass) base_ti->on_end_subclass(ti);
|
|
}
|
|
}
|
|
POP();
|
|
self->__curr_class = NULL;
|
|
DISPATCH();
|
|
}
|
|
case OP_STORE_CLASS_ATTR: {
|
|
assert(self->__curr_class);
|
|
py_Name name = byte.arg;
|
|
if(py_istype(TOP(), tp_function)) {
|
|
Function* ud = py_touserdata(TOP());
|
|
ud->clazz = self->__curr_class->_obj;
|
|
}
|
|
py_setdict(self->__curr_class, name, TOP());
|
|
POP();
|
|
DISPATCH();
|
|
}
|
|
case OP_ADD_CLASS_ANNOTATION: {
|
|
assert(self->__curr_class);
|
|
// [type_hint string]
|
|
py_Type type = py_totype(self->__curr_class);
|
|
py_TypeInfo* ti = TypeList__get(&self->types, type);
|
|
if(py_isnil(&ti->annotations)) py_newdict(&ti->annotations);
|
|
bool ok = py_dict_setitem_by_str(&ti->annotations, py_name2str(byte.arg), TOP());
|
|
if(!ok) goto __ERROR;
|
|
POP();
|
|
DISPATCH();
|
|
}
|
|
///////////
|
|
case OP_WITH_ENTER: {
|
|
// [expr]
|
|
py_push(TOP());
|
|
if(!py_pushmethod(__enter__)) {
|
|
TypeError("'%t' object does not support the context manager protocol",
|
|
TOP()->type);
|
|
goto __ERROR;
|
|
}
|
|
if(!py_vectorcall(0, 0)) goto __ERROR;
|
|
PUSH(py_retval());
|
|
DISPATCH();
|
|
}
|
|
case OP_WITH_EXIT: {
|
|
// [expr]
|
|
py_push(TOP());
|
|
if(!py_pushmethod(__exit__)) {
|
|
TypeError("'%t' object does not support the context manager protocol",
|
|
TOP()->type);
|
|
goto __ERROR;
|
|
}
|
|
if(!py_vectorcall(0, 0)) goto __ERROR;
|
|
DISPATCH();
|
|
}
|
|
///////////
|
|
case OP_TRY_ENTER: {
|
|
Frame__set_unwind_target(frame, SP());
|
|
DISPATCH();
|
|
}
|
|
case OP_EXCEPTION_MATCH: {
|
|
if(!py_checktype(TOP(), tp_type)) goto __ERROR;
|
|
bool ok = py_isinstance(&self->curr_exception, py_totype(TOP()));
|
|
py_newbool(TOP(), ok);
|
|
DISPATCH();
|
|
}
|
|
case OP_RAISE: {
|
|
// [exception]
|
|
if(py_istype(TOP(), tp_type)) {
|
|
if(!py_tpcall(py_totype(TOP()), 0, NULL)) goto __ERROR;
|
|
py_assign(TOP(), py_retval());
|
|
}
|
|
if(!py_isinstance(TOP(), tp_BaseException)) {
|
|
TypeError("exceptions must derive from BaseException");
|
|
goto __ERROR;
|
|
}
|
|
py_raise(TOP());
|
|
goto __ERROR;
|
|
}
|
|
case OP_RAISE_ASSERT: {
|
|
if(byte.arg) {
|
|
if(!py_str(TOP())) goto __ERROR;
|
|
POP();
|
|
py_exception(tp_AssertionError, "%s", py_tostr(py_retval()));
|
|
} else {
|
|
py_exception(tp_AssertionError, "");
|
|
}
|
|
goto __ERROR;
|
|
}
|
|
case OP_RE_RAISE: {
|
|
if(self->curr_exception.type) {
|
|
assert(!self->is_curr_exc_handled);
|
|
goto __ERROR_RE_RAISE;
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_PUSH_EXCEPTION: {
|
|
assert(self->curr_exception.type);
|
|
PUSH(&self->curr_exception);
|
|
DISPATCH();
|
|
}
|
|
case OP_BEGIN_EXC_HANDLING: {
|
|
assert(self->curr_exception.type);
|
|
self->is_curr_exc_handled = true;
|
|
DISPATCH();
|
|
}
|
|
case OP_END_EXC_HANDLING: {
|
|
assert(self->curr_exception.type);
|
|
py_clearexc(NULL);
|
|
DISPATCH();
|
|
}
|
|
case OP_BEGIN_FINALLY: {
|
|
if(self->curr_exception.type) {
|
|
assert(!self->is_curr_exc_handled);
|
|
// temporarily handle the exception if any
|
|
self->is_curr_exc_handled = true;
|
|
}
|
|
DISPATCH();
|
|
}
|
|
case OP_END_FINALLY: {
|
|
if(byte.arg == BC_NOARG) {
|
|
if(self->curr_exception.type) {
|
|
assert(self->is_curr_exc_handled);
|
|
// revert the exception handling if needed
|
|
self->is_curr_exc_handled = false;
|
|
}
|
|
} else {
|
|
// break or continue inside finally block
|
|
py_clearexc(NULL);
|
|
}
|
|
DISPATCH();
|
|
}
|
|
//////////////////
|
|
case OP_FORMAT_STRING: {
|
|
py_Ref spec = c11__at(py_TValue, &frame->co->consts, byte.arg);
|
|
bool ok = stack_format_object(self, py_tosv(spec));
|
|
if(!ok) goto __ERROR;
|
|
DISPATCH();
|
|
}
|
|
default: c11__unreachedable();
|
|
}
|
|
|
|
c11__unreachedable();
|
|
|
|
__ERROR:
|
|
py_BaseException__stpush(&self->curr_exception,
|
|
frame->co->src,
|
|
Frame__lineno(frame),
|
|
frame->has_function ? frame->co->name->data : NULL);
|
|
__ERROR_RE_RAISE:
|
|
do {
|
|
} while(0);
|
|
int target = Frame__prepare_jump_exception_handler(frame, &self->stack);
|
|
if(target >= 0) {
|
|
// 1. Exception can be handled inside the current frame
|
|
DISPATCH_JUMP_ABSOLUTE(target);
|
|
} else {
|
|
// 2. Exception need to be propagated to the upper frame
|
|
bool is_base_frame_to_be_popped = frame == base_frame;
|
|
VM__pop_frame(self);
|
|
if(self->top_frame == NULL || is_base_frame_to_be_popped) {
|
|
// propagate to the top level
|
|
return RES_ERROR;
|
|
}
|
|
frame = self->top_frame;
|
|
goto __ERROR;
|
|
}
|
|
}
|
|
|
|
return RES_RETURN;
|
|
}
|
|
|
|
const char* pk_op2str(py_Name op) {
|
|
switch(op) {
|
|
case __eq__: return "==";
|
|
case __ne__: return "!=";
|
|
case __lt__: return "<";
|
|
case __le__: return "<=";
|
|
case __gt__: return ">";
|
|
case __ge__: return ">=";
|
|
case __add__: return "+";
|
|
case __sub__: return "-";
|
|
case __mul__: return "*";
|
|
case __truediv__: return "/";
|
|
case __floordiv__: return "//";
|
|
case __mod__: return "%";
|
|
case __pow__: return "**";
|
|
case __lshift__: return "<<";
|
|
case __rshift__: return ">>";
|
|
case __and__: return "&";
|
|
case __or__: return "|";
|
|
case __xor__: return "^";
|
|
case __neg__: return "-";
|
|
case __invert__: return "~";
|
|
case __matmul__: return "@";
|
|
default: return py_name2str(op);
|
|
}
|
|
}
|
|
|
|
bool pk_stack_binaryop(VM* self, py_Name op, py_Name rop) {
|
|
// [a, b]
|
|
py_Ref magic = py_tpfindmagic(SECOND()->type, op);
|
|
if(magic) {
|
|
bool ok = py_call(magic, 2, SECOND());
|
|
if(!ok) return false;
|
|
if(self->last_retval.type != tp_NotImplementedType) return true;
|
|
}
|
|
// try reverse operation
|
|
if(rop) {
|
|
// [a, b] -> [b, a]
|
|
py_TValue tmp = *TOP();
|
|
*TOP() = *SECOND();
|
|
*SECOND() = tmp;
|
|
magic = py_tpfindmagic(SECOND()->type, rop);
|
|
if(magic) {
|
|
bool ok = py_call(magic, 2, SECOND());
|
|
if(!ok) return false;
|
|
if(self->last_retval.type != tp_NotImplementedType) return true;
|
|
}
|
|
}
|
|
// eq/ne op never fails
|
|
bool res = py_isidentical(SECOND(), TOP());
|
|
if(op == __eq__) {
|
|
py_newbool(py_retval(), res);
|
|
return true;
|
|
}
|
|
if(op == __ne__) {
|
|
py_newbool(py_retval(), !res);
|
|
return true;
|
|
}
|
|
return TypeError("unsupported operand type(s) for '%s'", pk_op2str(op));
|
|
}
|
|
|
|
bool py_binaryop(py_Ref lhs, py_Ref rhs, py_Name op, py_Name rop) {
|
|
VM* self = pk_current_vm;
|
|
PUSH(lhs);
|
|
PUSH(rhs);
|
|
bool ok = pk_stack_binaryop(self, op, rop);
|
|
STACK_SHRINK(2);
|
|
return ok;
|
|
}
|
|
|
|
static bool stack_format_object(VM* self, c11_sv spec) {
|
|
// format TOS via `spec` inplace
|
|
// spec: '!r:.2f', '.2f'
|
|
py_StackRef val = TOP();
|
|
if(spec.size == 0) return py_str(val);
|
|
|
|
if(spec.data[0] == '!') {
|
|
if(c11_sv__startswith(spec, (c11_sv){"!r", 2})) {
|
|
spec.data += 2;
|
|
spec.size -= 2;
|
|
if(!py_repr(val)) return false;
|
|
py_assign(val, py_retval());
|
|
if(spec.size == 0) return true;
|
|
} else {
|
|
return ValueError("invalid conversion specifier (only !r is supported)");
|
|
}
|
|
}
|
|
|
|
assert(spec.size > 0);
|
|
|
|
if(spec.data[0] == ':') {
|
|
spec.data++;
|
|
spec.size--;
|
|
}
|
|
|
|
char type;
|
|
switch(spec.data[spec.size - 1]) {
|
|
case 'f':
|
|
case 'd':
|
|
case 's':
|
|
type = spec.data[spec.size - 1];
|
|
spec.size--; // remove last char
|
|
break;
|
|
default: type = ' '; break;
|
|
}
|
|
|
|
char pad_c = ' ';
|
|
if(strchr("0-=*#@!~", spec.data[0])) {
|
|
pad_c = spec.data[0];
|
|
spec = c11_sv__slice(spec, 1);
|
|
}
|
|
|
|
char align;
|
|
if(spec.data[0] == '^') {
|
|
align = '^';
|
|
spec = c11_sv__slice(spec, 1);
|
|
} else if(spec.data[0] == '>') {
|
|
align = '>';
|
|
spec = c11_sv__slice(spec, 1);
|
|
} else if(spec.data[0] == '<') {
|
|
align = '<';
|
|
spec = c11_sv__slice(spec, 1);
|
|
} else {
|
|
align = (py_isint(val) || py_isfloat(val)) ? '>' : '<';
|
|
}
|
|
|
|
int dot = c11_sv__index(spec, '.');
|
|
py_i64 width, precision;
|
|
|
|
if(dot >= 0) {
|
|
if(dot == 0) {
|
|
// {.2f}
|
|
width = -1;
|
|
} else {
|
|
// {10.2f}
|
|
IntParsingResult res = c11__parse_uint(c11_sv__slice2(spec, 0, dot), &width, 10);
|
|
if(res != IntParsing_SUCCESS) return ValueError("invalid format specifer");
|
|
}
|
|
IntParsingResult res = c11__parse_uint(c11_sv__slice(spec, dot + 1), &precision, 10);
|
|
if(res != IntParsing_SUCCESS) return ValueError("invalid format specifer");
|
|
} else {
|
|
// {10s}
|
|
IntParsingResult res = c11__parse_uint(spec, &width, 10);
|
|
if(res != IntParsing_SUCCESS) return ValueError("invalid format specifer");
|
|
precision = -1;
|
|
}
|
|
|
|
if(type != 'f' && dot >= 0) {
|
|
return ValueError("precision not allowed in the format specifier");
|
|
}
|
|
|
|
c11_sbuf buf;
|
|
c11_sbuf__ctor(&buf);
|
|
|
|
if(type == 'f') {
|
|
py_f64 x;
|
|
if(!py_castfloat(val, &x)) {
|
|
c11_sbuf__dtor(&buf);
|
|
return false;
|
|
}
|
|
if(precision < 0) precision = 6;
|
|
c11_sbuf__write_f64(&buf, x, precision);
|
|
} else if(type == 'd') {
|
|
if(!py_checkint(val)) {
|
|
c11_sbuf__dtor(&buf);
|
|
return false;
|
|
}
|
|
c11_sbuf__write_i64(&buf, py_toint(val));
|
|
} else if(type == 's') {
|
|
if(!py_checkstr(val)) {
|
|
c11_sbuf__dtor(&buf);
|
|
return false;
|
|
}
|
|
c11_sbuf__write_sv(&buf, py_tosv(val));
|
|
} else {
|
|
if(!py_str(val)) {
|
|
c11_sbuf__dtor(&buf);
|
|
return false;
|
|
}
|
|
c11_sbuf__write_sv(&buf, py_tosv(py_retval()));
|
|
}
|
|
|
|
c11_string* body = c11_sbuf__submit(&buf);
|
|
int length = c11_sv__u8_length(c11_string__sv(body));
|
|
c11_sbuf__ctor(&buf); // reinit sbuf
|
|
|
|
if(width != -1 && width > length) {
|
|
switch(align) {
|
|
case '>': {
|
|
c11_sbuf__write_pad(&buf, width - length, pad_c);
|
|
c11_sbuf__write_sv(&buf, c11_string__sv(body));
|
|
break;
|
|
}
|
|
case '<': {
|
|
c11_sbuf__write_sv(&buf, c11_string__sv(body));
|
|
c11_sbuf__write_pad(&buf, width - length, pad_c);
|
|
break;
|
|
}
|
|
case '^': {
|
|
int pad_left = (width - length) / 2;
|
|
int pad_right = (width - length) - pad_left;
|
|
c11_sbuf__write_pad(&buf, pad_left, pad_c);
|
|
c11_sbuf__write_sv(&buf, c11_string__sv(body));
|
|
c11_sbuf__write_pad(&buf, pad_right, pad_c);
|
|
break;
|
|
}
|
|
default: c11__unreachedable();
|
|
}
|
|
} else {
|
|
c11_sbuf__write_sv(&buf, c11_string__sv(body));
|
|
}
|
|
|
|
c11_string__delete(body);
|
|
// inplace update
|
|
c11_sbuf__py_submit(&buf, val);
|
|
return true;
|
|
} |