SLIC-Reference : : IsInRegion  

SFN_ERROR Slic_IsInRegion::Call(SlicArgList *args)
{
	Unit unit;
	MapPoint point;
	BOOL res;
	struct PSlicRegion region;
	const struct PSlicComplexRegion *cregion;

	if (args->Count() != 2)
		return SFN_ERROR_NUM_ARGS;

	res = args->GetPos(0, point);
	if(!res)
		return SFN_ERROR_TYPE_BUILTIN;
	
	if(args->m_argValue[1].m_type == SA_TYPE_REGION) {
		res = args->m_argValue[1].m_symbol->GetRegion(region);
		if(!res)
			return SFN_ERROR_TYPE_ARGS;
		
		m_result.m_int = (point.x >= region.x1 && point.x <= region.x2 &&
					point.y >= region.y1 && point.y <= region.y2);
	} else if(args->m_argValue[1].m_type == SA_TYPE_COMPLEX_REGION) {
		res = args->m_argValue[1].m_symbol->GetComplexRegion(cregion);
		if(!res)
			return SFN_ERROR_TYPE_ARGS;

		for(; cregion && !m_result.m_int; cregion = cregion->next) {
			m_result.m_int = point.x >= cregion->x1 && point.x <= cregion->x2 &&
				point.y >= cregion->y1 && point.y <= cregion->y2;
		}
	} else {
		return SFN_ERROR_TYPE_ARGS;
	}

	return SFN_ERROR_OK;
}