/* Function: tp_set * Attribute modification. * * This is the counterpart of tp_get, it does the same as self[k] = v would do * in actual tinypy code. */ void tp_set(TP,tp_obj self, tp_obj k, tp_obj v) { int type = self.type; if (type == TP_DICT) { TP_META_BEGIN(self,"__set__"); tp_call(tp,meta,tp_params_v(tp,2,k,v)); return; TP_META_END; _tp_dict_set(tp,self.dict.val,k,v); return; } else if (type == TP_LIST) { if (k.type == TP_NUMBER) { _tp_list_set(tp,self.list.val,k.number.val,v,"tp_set"); return; } else if (k.type == TP_NONE) { _tp_list_append(tp,self.list.val,v); return; } else if (k.type == TP_STRING) { if (tp_cmp(tp,tp_string("*"),k) == 0) { tp_params_v(tp,2,self,v); tp_extend(tp); return; } } } tp_raise(,tp_string("(tp_set) TypeError: object does not support item assignment")); }
void tp_set(tp_vm *tp, tp_obj self, tp_obj k, tp_obj v) { objtype type = obj_type(self); assert(type <= TP_DATA); if (type == TP_DICT) { _tp_dict_set(tp, tp_dict_val(self), k, v); return; } else if (type == TP_LIST) { if (obj_type(k) == TP_NUMBER) { _tp_list_set(tp, tp_list_val(self), tp_number_val(k), v, "tp_set"); return; } else if (obj_type(k) == TP_NONE) { _tp_list_append(tp, tp_list_val(self),v); return; } else if (obj_type(k) == TP_STRING) { if (strcmp("*", STR(k)) == 0) { tp_params_v(tp, 2, self, v); tp_extend(tp); return; } } } else if (type == TP_DATA) { tp_data_meta(self)->set(tp, self, k, v); return; } tp_raise(,"tp_set(%s,%s,%s)",STR(self),STR(k),STR(v)); }
tp_obj tp_add(TP,tp_obj a, tp_obj b) { if (a.type == TP_NUMBER && a.type == b.type) { return tp_number(a.number.val+b.number.val); } else if (a.type == TP_STRING && a.type == b.type) { int al = a.string.len, bl = b.string.len; tp_obj r = tp_string_t(tp,al+bl); char *s = r.string.info->s; memcpy(s,a.string.val,al); memcpy(s+al,b.string.val,bl); return tp_track(tp,r); } else if (a.type == TP_LIST && a.type == b.type) { tp_obj r; tp_params_v(tp,1,a); r = tp_copy(tp); tp_params_v(tp,2,r,b); tp_extend(tp); return r; } tp_raise(tp_None,tp_string("(tp_add) TypeError: ?")); }
tp_obj tp_add(tp_vm *tp, tp_obj a, tp_obj b) { if (obj_type(a) == TP_NUMBER && obj_type(a) == obj_type(b)) { return tp_number(tp, tp_number_val(a) + tp_number_val(b)); } else if (obj_type(a) == TP_STRING && obj_type(a) == obj_type(b)) { int al = tp_str_len(a), bl = tp_str_len(b); tp_obj r = tp_string_t(tp,al+bl); char *s = tp_str_val(r); memcpy(s, tp_str_val(a),al); memcpy(s+al, tp_str_val(b),bl); return tp_track(tp,r); } else if (obj_type(a) == TP_LIST && obj_type(a) == obj_type(b)) { tp_obj r; tp_params_v(tp,1,a); r = tp_copy(tp); tp_params_v(tp,2,r,b); tp_extend(tp); return r; } tp_raise(None,"tp_add(%s,%s)",STR(a),STR(b)); }
void tp_set(TP,tp_obj self, tp_obj k, tp_obj v) { int type; type = self.type; if (type == TP_DICT) { _tp_dict_set(tp,self.dict.val,k,v); return; } else if (type == TP_LIST) { if (k.type == TP_NUMBER) { _tp_list_set(tp,self.list.val,k.number.val,v,"tp_set"); return; } else if (k.type == TP_NONE) { _tp_list_append(tp,self.list.val,v); return; } else if (k.type == TP_STRING) { if (strcmp("*",TP_CSTR(k)) == 0) { tp_params_v(tp,2,self,v); tp_extend(tp); return; } } } tp_raise(,"tp_set(%s,%s,%s)",TP_CSTR(self),TP_CSTR(k),TP_CSTR(v)); }
tp_obj tp_get(TP,tp_obj self, tp_obj k) { int type = self.type; tp_obj r; if (type == TP_DICT) { return _tp_dict_get(tp,self.dict.val,k,"tp_get"); } else if (type == TP_LIST) { if (k.type == TP_NUMBER) { int l = tp_len(tp,self).number.val; int n = k.number.val; n = (n<0?l+n:n); return _tp_list_get(tp,self.list.val,n,"tp_get"); } else if (k.type == TP_STRING) { if (strcmp("append",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_append); } else if (strcmp("pop",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_pop); } else if (strcmp("index",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_index); } else if (strcmp("sort",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_sort); } else if (strcmp("extend",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_extend); } else if (strcmp("*",TP_CSTR(k)) == 0) { tp_params_v(tp,1,self); r = tp_copy(tp); self.list.val->len=0; return r; } } else if (k.type == TP_NONE) { return _tp_list_pop(tp,self.list.val,0,"tp_get"); } } else if (type == TP_STRING) { if (k.type == TP_NUMBER) { int l = self.string.len; int n = k.number.val; n = (n<0?l+n:n); if (n >= 0 && n < l) { return tp_string_n(tp->chars[(unsigned char)self.string.val[n]],1); } } else if (k.type == TP_STRING) { if (strcmp("join",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_join); } else if (strcmp("split",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_split); } else if (strcmp("index",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_str_index); } else if (strcmp("strip",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_strip); } else if (strcmp("replace",TP_CSTR(k)) == 0) { return tp_method(tp,self,tp_replace); } } } if (k.type == TP_LIST) { int a,b,l; tp_obj tmp; l = tp_len(tp,self).number.val; tmp = tp_get(tp,k,tp_number(0)); if (tmp.type == TP_NUMBER) { a = tmp.number.val; } else if(tmp.type == TP_NONE) { a = 0; } else { tp_raise(tp_None,"%s is not a number",TP_CSTR(tmp)); } tmp = tp_get(tp,k,tp_number(1)); if (tmp.type == TP_NUMBER) { b = tmp.number.val; } else if(tmp.type == TP_NONE) { b = l; } else { tp_raise(tp_None,"%s is not a number",TP_CSTR(tmp)); } a = _tp_max(0,(a<0?l+a:a)); b = _tp_min(l,(b<0?l+b:b)); if (type == TP_LIST) { return tp_list_n(tp,b-a,&self.list.val->items[a]); } else if (type == TP_STRING) { tp_obj r = tp_string_t(tp,b-a); char *ptr = r.string.info->s; memcpy(ptr,self.string.val+a,b-a); ptr[b-a]=0; return tp_track(tp,r); } } tp_raise(tp_None,"tp_get(%s,%s)",TP_CSTR(self),TP_CSTR(k)); }
tp_obj tp_get(tp_vm *tp, tp_obj self, tp_obj k) { int type = obj_type(self); tp_obj r; if (type == TP_DICT) { return _tp_dict_get(tp, tp_dict_val(self), k, "tp_get"); } else if (type == TP_LIST) { if (obj_type(k) == TP_NUMBER) { int l = tp_number_val(tp_len(tp,self)); int n = tp_number_val(k); n = (n<0?l+n:n); return _tp_list_get(tp,tp_list_val(self),n,"tp_get"); } else if (obj_type(k) == TP_STRING) { if (strcmp("append",STR(k)) == 0) { return tp_method(tp,self,tp_append); } else if (strcmp("pop",STR(k)) == 0) { return tp_method(tp,self,tp_pop); } else if (strcmp("index",STR(k)) == 0) { return tp_method(tp,self,tp_index); } else if (strcmp("sort",STR(k)) == 0) { return tp_method(tp,self,tp_sort); } else if (strcmp("extend",STR(k)) == 0) { return tp_method(tp,self,tp_extend); } else if (strcmp("*",STR(k)) == 0) { tp_params_v(tp,1,self); r = tp_copy(tp); tp_list_val(self)->len=0; return r; } } else if (obj_type(k) == TP_NONE) { return _tp_list_pop(tp,tp_list_val(self),0,"tp_get"); } } else if (type == TP_STRING) { if (obj_type(k) == TP_NUMBER) { int l = tp_str_len(self); int n = tp_number_val(k); n = (n<0?l+n:n); if (n >= 0 && n < l) { return tp_string_n(tp, tp->chars[(unsigned char)tp_str_val(self)[n]],1); } } else if (obj_type(k) == TP_STRING) { if (strcmp("join",STR(k)) == 0) { return tp_method(tp,self,tp_join); } else if (strcmp("split",STR(k)) == 0) { return tp_method(tp,self,tp_split); } else if (strcmp("index",STR(k)) == 0) { return tp_method(tp,self,tp_str_index); } else if (strcmp("strip",STR(k)) == 0) { return tp_method(tp,self,tp_strip); } else if (strcmp("replace",STR(k)) == 0) { return tp_method(tp,self,tp_replace); } } } else if (type == TP_DATA) { return tp_data_meta(self)->get(tp,self,k); } if (obj_type(k) == TP_LIST) { int a,b,l; tp_obj tmp; l = tp_number_val(tp_len(tp,self)); tmp = tp_get(tp, k, tp_number(tp, 0)); if (obj_type(tmp) == TP_NUMBER) { a = tp_number_val(tmp); } else if (obj_type(tmp) == TP_NONE) { a = 0; } else { tp_raise(None,"%s is not a number",STR(tmp)); } tmp = tp_get(tp, k, tp_number(tp, 1)); if (obj_type(tmp) == TP_NUMBER) { b = tp_number_val(tmp); } else if (obj_type(tmp) == TP_NONE) { b = l; } else { tp_raise(None,"%s is not a number",STR(tmp)); } a = _tp_max(0,(a<0?l+a:a)); b = _tp_min(l,(b<0?l+b:b)); if (type == TP_LIST) { return tp_list_n(tp,b-a, &tp_list_val(self)->items[a]); } else if (type == TP_STRING) { tp_obj r = tp_string_t(tp, b-a); char *ptr = tp_str_val(r); memcpy(ptr,tp_str_val(self)+a,b-a); ptr[b-a]=0; return tp_track(tp,r); } } tp_raise(None,"tp_get(%s,%s)",STR(self),STR(k)); }
/* Function: tp_get * Attribute lookup. * * This returns the result of using self[k] in actual code. It works for * dictionaries (including classes and instantiated objects), lists and strings. * * As a special case, if self is a list, self[None] will return the first * element in the list and subsequently remove it from the list. */ tp_obj tp_get(TP,tp_obj self, tp_obj k) { int type = self.type; tp_obj r; if (type == TP_DICT) { TP_META_BEGIN(self,"__get__"); return tp_call(tp,meta,tp_params_v(tp,1,k)); TP_META_END; if (self.dict.dtype && _tp_lookup(tp,self,k,&r)) { return r; } return _tp_dict_get(tp,self.dict.val,k,"tp_get"); } else if (type == TP_LIST) { if (k.type == TP_NUMBER) { int l = tp_len(tp,self).number.val; int n = k.number.val; n = (n<0?l+n:n); return _tp_list_get(tp,self.list.val,n,"tp_get"); } else if (k.type == TP_STRING) { if (tp_cmp(tp,tp_string("append"),k) == 0) { return tp_method(tp,self,tp_append); } else if (tp_cmp(tp,tp_string("pop"),k) == 0) { return tp_method(tp,self,tp_pop); } else if (tp_cmp(tp,tp_string("index"),k) == 0) { return tp_method(tp,self,tp_index); } else if (tp_cmp(tp,tp_string("sort"),k) == 0) { return tp_method(tp,self,tp_sort); } else if (tp_cmp(tp,tp_string("extend"),k) == 0) { return tp_method(tp,self,tp_extend); } else if (tp_cmp(tp,tp_string("*"),k) == 0) { tp_params_v(tp,1,self); r = tp_copy(tp); self.list.val->len=0; return r; } } else if (k.type == TP_NONE) { return _tp_list_pop(tp,self.list.val,0,"tp_get"); } } else if (type == TP_STRING) { if (k.type == TP_NUMBER) { int l = self.string.len; int n = k.number.val; n = (n<0?l+n:n); if (n >= 0 && n < l) { return tp_string_n(tp->chars[(unsigned char)self.string.val[n]],1); } } else if (k.type == TP_STRING) { if (tp_cmp(tp,tp_string("join"),k) == 0) { return tp_method(tp,self,tp_join); } else if (tp_cmp(tp,tp_string("split"),k) == 0) { return tp_method(tp,self,tp_split); } else if (tp_cmp(tp,tp_string("index"),k) == 0) { return tp_method(tp,self,tp_str_index); } else if (tp_cmp(tp,tp_string("strip"),k) == 0) { return tp_method(tp,self,tp_strip); } else if (tp_cmp(tp,tp_string("replace"),k) == 0) { return tp_method(tp,self,tp_replace); } } } if (k.type == TP_LIST) { int a,b,l; tp_obj tmp; l = tp_len(tp,self).number.val; tmp = tp_get(tp,k,tp_number(0)); if (tmp.type == TP_NUMBER) { a = tmp.number.val; } else if(tmp.type == TP_NONE) { a = 0; } else { tp_raise(tp_None,tp_string("(tp_get) TypeError: indices must be numbers")); } tmp = tp_get(tp,k,tp_number(1)); if (tmp.type == TP_NUMBER) { b = tmp.number.val; } else if(tmp.type == TP_NONE) { b = l; } else { tp_raise(tp_None,tp_string("(tp_get) TypeError: indices must be numbers")); } a = _tp_max(0,(a<0?l+a:a)); b = _tp_min(l,(b<0?l+b:b)); if (type == TP_LIST) { return tp_list_n(tp,b-a,&self.list.val->items[a]); } else if (type == TP_STRING) { /* tp_obj r = tp_string_t(tp,b-a); char *ptr = r.string.info->s; memcpy(ptr,self.string.val+a,b-a); ptr[b-a]=0; return tp_track(tp,r);*/ return tp_string_slice(tp,self,a,b); } } tp_raise(tp_None,tp_string("(tp_get) TypeError: ?")); }