Function C_SetString

blakserv/ccode.c:1043–1105

}

blak_int C_SetString(int object_id,local_var_type *local_vars,
				int num_normal_parms,parm_node normal_parm_array[],
				int num_name_parms,parm_node name_parm_array[])
{
	val_type s1_val,s2_val;
	string_node *snod,*snod2;
	resource_node *r;
	
	s1_val = RetrieveValue(object_id,local_vars,normal_parm_array[0].type,
		normal_parm_array[0].value);
	
	if (s1_val.v.tag != TAG_STRING)
	{
		bprintf("C_SetString can't set non-string %s\n", fmt(s1_val));
		return NIL;
	}
	
	snod = GetStringByID(s1_val.v.data);
	if (snod == NULL)
	{
		bprintf("C_SetString can't set invalid string %s\n", fmt(s1_val));
		return NIL;
	}
	
	s2_val = RetrieveValue(object_id,local_vars,normal_parm_array[1].type,
		normal_parm_array[1].value);
	switch (s2_val.v.tag)
	{
	case TAG_STRING :
		snod2 = GetStringByID( s2_val.v.data);
		if( snod2 == NULL )
		{
			bprintf( "C_SetString can't find string %s\n", fmt(s2_val));
			return NIL;
		}
		//bprintf("SetString string%i<--string%i\n",s1_val.v.data,s2_val.v.data);
		SetString(snod,snod2->data,snod2->len_data);
		break;
		
	case TAG_TEMP_STRING :
		snod2 = GetTempString();
		//bprintf("SetString string%i<--tempstring\n",s1_val.v.data);
		SetString(snod,snod2->data,snod2->len_data);
		break;
		
	case TAG_RESOURCE :
		r = GetResourceByID(s2_val.v.data);
		if (r == NULL)
		{
			bprintf("C_SetString can't set from invalid resource %" PRId64 "\n",s2_val.v.data);
			return NIL;
		}
		//bprintf("SetString string%i<--resource%i\n",s1_val.v.data,s2_val.v.data);
		SetString(snod,r->resource_val,(int) strlen(r->resource_val));
		break;
		
	default :
		bprintf("C_SetString can't set from non-string thing %s\n", fmt(s2_val));