tp_obj tp_split(TP) { tp_obj v = TP_OBJ(); tp_obj d = TP_OBJ(); tp_obj r = tp_list(tp); int i; while ((i=_tp_str_index(v,d))!=-1) { _tp_list_append(tp,r.list.val,tp_string_slice(tp,v,0,i)); v.string.val += i + d.string.len; v.string.len -= i + d.string.len; /* tp_grey(tp,r); // should stop gc or something instead*/ } _tp_list_append(tp,r.list.val,tp_string_slice(tp,v,0,v.string.len)); /* tp_grey(tp,r); // should stop gc or something instead*/ return r; }
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)); }
/* 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")); }
tp_obj tp_range(TP) { int a = TP_NUM(); int b = TP_NUM(); int c = TP_DEFAULT(tp_number(1)).number.val; tp_obj r = tp_list(tp); int i; for (i=a; i!=b; i+=c) { _tp_list_append(tp,r.list.val,tp_number(i)); } return r; }
tp_obj tp_params_v(TP,int n,...) { int i; tp_obj r = tp_params(tp); va_list a; va_start(a,n); for (i=0; i<n; i++) { _tp_list_append(tp,r.list.val,va_arg(a,tp_obj)); } va_end(a); return r; }
tp_obj tp_range(TP) { int a,b,c,i; tp_obj r = tp_list(tp); switch (tp->params.list.val->len) { case 1: a = 0; b = TP_NUM(); c = 1; break; case 2: case 3: a = TP_NUM(); b = TP_NUM(); c = TP_DEFAULT(tp_number(1)).number.val; break; default: return r; } if (c != 0) { for (i=a; (c>0) ? i<b : i>b; i+=c) { _tp_list_append(tp,r.list.val,tp_number(i)); } } return r; }
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_params_n(TP,int n, tp_obj argv[]) { tp_obj r = tp_params(tp); int i; for (i=0; i<n; i++) { _tp_list_append(tp,r.list.val,argv[i]); } return r; }