Add size function to index mappings

fortran/test/unit/util.F90

@@ -305,6 +305,7 @@ subroutine build_and_check_index_mapping_t(config)
     source_data(2,:) = (/ 1.0_dk, 2.0_dk, 3.0_dk, 4.0_dk, 5.0_dk /)
     target_data(2,:) = (/ 10.0_dk, 20.0_dk, 30.0_dk, 40.0_dk /)
 
+    ASSERT_EQ( index_mappings%size( ), 2 )
     call index_mappings%copy_data( source_data(2,:), target_data(2,:) )
     ASSERT_EQ( target_data( 2, 1 ), 5.0_dk * 0.82_dk )
     ASSERT_EQ( target_data( 2, 2 ), 20.0_dk )

fortran/util.F90

@@ -147,6 +147,7 @@ module musica_util
   private
     type(index_mappings_t_c) :: mappings_c_
   contains
+    procedure :: size => index_mappings_size
     procedure :: copy_data
     final :: index_mappings_finalize
   end type index_mappings_t
@@ -219,6 +220,12 @@ pure subroutine delete_index_mappings_c( mappings ) &
       import :: index_mappings_t_c
       type(index_mappings_t_c), intent(inout) :: mappings
     end subroutine delete_index_mappings_c
+    function get_index_mappings_size_c( mappings ) result( size ) &
+        bind(c, name="GetIndexMappingsSize")
+      import :: index_mappings_t_c, c_size_t
+      type(index_mappings_t_c), value, intent(in) :: mappings
+      integer(c_size_t) :: size
+    end function get_index_mappings_size_c
     subroutine copy_data_c(mappings, source, target) bind(c, name="CopyData")
       import :: index_mappings_t_c, c_ptr
       type(index_mappings_t_c), value, intent(in) :: mappings
@@ -740,6 +747,18 @@ function index_mappings_constructor( configuration, source, target, error ) &
 
   end function index_mappings_constructor
 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  !> Returns the number of elements in an index_mappings_t object
+  function index_mappings_size( this ) result( size )
+
+    class(index_mappings_t), intent(in) :: this
+    integer :: size
+
+    size = get_index_mappings_size_c( this%mappings_c_ )
+
+  end function index_mappings_size
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
   !> Copy data from a source to a target array using index mappings

include/musica/util.hpp

@@ -131,6 +131,11 @@ namespace musica
     IndexMappings
     CreateIndexMappings(const Configuration configuration, const Mappings source, const Mappings target, Error* error);
 
+    /// @brief Returns the number of elements in an array of IndexMappings
+    /// @param mappings The array of IndexMappings
+    /// @return The number of elements
+    std::size_t GetIndexMappingsSize(const IndexMappings mappings);
+
     /// @brief Copies data from one array to another using IndexMappings
     /// @param mappings The array of IndexMappings
     /// @param source The source array

src/test/unit/util.cpp

@@ -118,6 +118,7 @@ TEST(Util, IndexMappingFromString)
   EXPECT_EQ(index_mappings.mappings_[1].target_, 0);
   EXPECT_EQ(index_mappings.mappings_[1].scale_factor_, 0.82);
   EXPECT_EQ(index_mappings.size_, 2);
+  EXPECT_EQ(GetIndexMappingsSize(index_mappings), 2);
   double source[] = { 1.0, 2.0, 3.0, 4.0, 5.0 };
   double target[] = { 10.0, 20.0, 30.0, 40.0 };
   CopyData(index_mappings, source, target);
@@ -156,6 +157,7 @@ TEST(Util, IndexMappingFromFile)
   EXPECT_EQ(index_mappings.mappings_[1].target_, 0);
   EXPECT_EQ(index_mappings.mappings_[1].scale_factor_, 0.82);
   EXPECT_EQ(index_mappings.size_, 2);
+  EXPECT_EQ(GetIndexMappingsSize(index_mappings), 2);
   double source[] = { 1.0, 2.0, 3.0, 4.0, 5.0 };
   double target[] = { 10.0, 20.0, 30.0, 40.0 };
   CopyData(index_mappings, source, target);

src/util.cpp

@@ -219,6 +219,11 @@ namespace musica
     return index_mappings;
   }
 
+  std::size_t GetIndexMappingsSize(const IndexMappings mappings)
+  {
+    return mappings.size_;
+  }
+
   void CopyData(const IndexMappings mappings, const double* source, double* target)
   {
     for (std::size_t i = 0; i < mappings.size_; i++)