Work on shell

FossilOrigin-Name: d35a5a97ee9087fde859a9e0694d9eb7890d2834cd2df0712d81dfa47afc5323

src/cw/cw_ktv_cast.c

@@ -0,0 +1,14 @@
+#include "ktv.h"
+
+cw_KTV_t * cw_ktv_cast(cw_KTV_t *v,const cw_Type_t * type)
+{
+	if (strcmp(v->type->name,type->name)==0)
+		return v;
+	if (type->cast==NULL)
+		return NULL;
+	if (!type->cast(v))
+		return NULL;
+		
+	return v;
+}
+