Function AR_TOPOINT

src/arithmetic/point_funcs/point_funcs.c:17–65

#define DegreeToRadians(d) ((d) * M_PI / 180.0)

SIValue AR_TOPOINT(SIValue *argv, int argc, void *private_data) {
	SIValue map = argv[0];
	SIType t = SI_TYPE(map);

	if(t == T_NULL) return SI_NullVal();

	// expecting input to be a map
	// point({latitude: 32.0705767, longitude: 34.8185946})
	ASSERT(t == T_MAP);

	uint key_count = Map_KeyCount(map);
	if(key_count != 2) {
		ErrorCtx_RaiseRuntimeException("A point map should have 2 elements, latitude and longitude");
		return SI_NullVal();
	}

	SIValue latitude;
	SIValue longitude;

	// make sure lat is present in map
	if(!MAP_GET(map, "latitude", latitude)) {
		ErrorCtx_RaiseRuntimeException("Did not find 'latitude' value in point map");
		return SI_NullVal();
	}
	// make sure lon is present in map
	if(!MAP_GET(map, "longitude", longitude)) {
		ErrorCtx_RaiseRuntimeException("Did not find 'longitude' value in point map");
		return SI_NullVal();
	}
	// validate lat, lon types
	if(!(SI_NUMERIC & SI_TYPE(latitude) && SI_NUMERIC & SI_TYPE(longitude))) {
		ErrorCtx_RaiseRuntimeException("'latitude' and 'longitude' values in point map were not both valid numerics");
		return SI_NullVal();
	}

	// validate latitude is in range [-90,90]
	if(SI_GET_NUMERIC(latitude) > 90 || SI_GET_NUMERIC(latitude) < -90) {
		ErrorCtx_RaiseRuntimeException("latitude should be within the -90 to 90 range");
		return SI_NullVal();
	}

	// validate longitude is in range [-180,180]
	if(SI_GET_NUMERIC(longitude) > 180 || SI_GET_NUMERIC(longitude) < -180) {
		ErrorCtx_RaiseRuntimeException("longitude should be within the -180 to 180 range");
		return SI_NullVal();
	}

	return SI_Point(SI_GET_NUMERIC(latitude), SI_GET_NUMERIC(longitude));
}

SIValue AR_DISTANCE(SIValue *argv, int argc, void *private_data) {
	// compute distance between two points