Function lib_common_frexp

src/CommonLibrary.cpp:2649–2693

floating point */

		/* floating point */
		bv_variable lib_common_frexp(bv_program* prog, u8 count, bv_variable* args)
		{
			/* frexp(genType, out genIType), frexp(float, out int), also for genDType */
			if (count == 2) {
				if (args[0].type == bv_type_object) {
					bv_object* vec = bv_variable_get_object(args[0]);

					// using: genType, float, genDType, double
					glm::vec4 x = sd::AsVector<4, float>(args[0]);
					glm::vec4 signData(0.0f);
					glm::ivec4 expValData(0.0f);

					signData = glm::frexp(x, expValData);

					// param out value
					bv_variable* outPtr = bv_variable_get_pointer(args[1]);
					bv_object* outObj = bv_variable_get_object(*outPtr);
					for (u16 i = 0; i < outObj->type->props.name_count; i++)
						outObj->prop[i] = bv_variable_create_int(expValData[i]);

					// return value
					bv_variable ret = Common::create_vec(prog, bv_type_float, vec->type->props.name_count);
					bv_object* retObj = bv_variable_get_object(ret);
					for (u16 i = 0; i < retObj->type->props.name_count; i++)
						retObj->prop[i] = bv_variable_create_float(signData[i]);

					return ret;
				}

				// frexp(float, out int)
				else {
					float x = bv_variable_get_float(bv_variable_cast(bv_type_float, args[0]));

					int expVal = 0;
					float significand = glm::frexp(x, expVal);

					bv_variable* outPtr = bv_variable_get_pointer(args[1]);
					bv_variable_set_int(outPtr, expVal);

					return bv_variable_create_float(significand);
				}
			}

			return bv_variable_create_float(0.0f);
		}
		bv_variable lib_common_ldexp(bv_program* prog, u8 count, bv_variable* args)
		{
			/* ldexp(genType, genIType), ldexp(float, int), also for genDType */