Skip to content

Commit 77bca62

Browse files
aman-godaraaman-godara
committed
changed naming convention throughout the module
1 parent 17b047d commit 77bca62

File tree

1 file changed

+63
-62
lines changed

1 file changed

+63
-62
lines changed

‎src/stdlib_stringlist_type.f90‎

Lines changed: 63 additions & 62 deletions
Original file line numberDiff line numberDiff line change
@@ -60,41 +60,42 @@ module stdlib_stringlist_type
6060

6161
procedure, public :: len => length_list
6262

63-
procedure :: to_future_at_idxn => convert_to_future_at_idxn
63+
procedure :: to_future_at_idxn
6464

65-
procedure :: to_current_idxn => convert_to_current_idxn
65+
procedure :: to_current_idxn
6666

67-
procedure :: insert_at_char_idx => insert_at_char_idx_wrap
68-
procedure :: insert_at_string_idx => insert_at_string_idx_wrap
69-
procedure :: insert_at_stringlist_idx => insert_at_stringlist_idx_wrap
70-
procedure :: insert_at_chararray_idx => insert_at_chararray_idx_wrap
71-
procedure :: insert_at_stringarray_idx => insert_at_stringarray_idx_wrap
67+
procedure :: insert_at_char_idx
68+
procedure :: insert_at_string_idx
69+
procedure :: insert_at_stringlist_idx
70+
procedure :: insert_at_chararray_idx
71+
procedure :: insert_at_stringarray_idx
7272
generic, public :: insert_at => insert_at_char_idx, &
7373
insert_at_string_idx, &
7474
insert_at_stringlist_idx, &
7575
insert_at_chararray_idx, &
7676
insert_at_stringarray_idx
7777

78-
procedure :: insert_before_string_int => insert_before_string_int_impl
79-
procedure :: insert_before_stringlist_int => insert_before_stringlist_int_impl
80-
procedure :: insert_before_chararray_int => insert_before_chararray_int_impl
81-
procedure :: insert_before_stringarray_int => insert_before_stringarray_int_impl
78+
procedure :: insert_before_string_int
79+
procedure :: insert_before_stringlist_int
80+
procedure :: insert_before_chararray_int
81+
procedure :: insert_before_stringarray_int
8282
generic :: insert_before => insert_before_string_int, &
8383
insert_before_stringlist_int, &
8484
insert_before_chararray_int, &
8585
insert_before_stringarray_int
8686

87-
procedure :: get_idx => get_idx_impl
88-
procedure :: get_range_idx => get_range_idx_impl
87+
procedure :: get_idx
88+
procedure :: get_range_idx
8989
generic, public :: get => get_idx, &
9090
get_range_idx
9191

92-
procedure :: pop_index ! or `pop_idx`, if you wish
93-
procedure :: pop_range_index ! or `pop_range_idx`, if you wish
94-
generic, public :: pop => pop_index, pop_range_index
92+
procedure :: pop_idx
93+
procedure :: pop_range_idx
94+
generic, public :: pop => pop_idx, &
95+
pop_range_idx
9596

96-
procedure :: drop_idx => drop_idx_impl
97-
procedure :: drop_range_idx => drop_range_idx_impl
97+
procedure :: drop_idx
98+
procedure :: drop_range_idx
9899
generic, public :: drop => drop_idx, &
99100
drop_range_idx
100101

@@ -510,98 +511,98 @@ end function length_list
510511
!> Converts a forward index OR a backward index to an integer index at
511512
!> which the new element will be present post insertion (i.e. in future)
512513
!> Returns an integer
513-
pure integer function convert_to_future_at_idxn( list, idx )
514+
pure integer function to_future_at_idxn( list, idx )
514515
!> Not a part of public API
515516
class(stringlist_type), intent(in) :: list
516517
type(stringlist_index_type), intent(in) :: idx
517518

518519
! Formula: merge( fidx( x ) - ( list_head - 1 ), len - bidx( x ) + ( list_tail - 1 ) + 2, ... )
519-
convert_to_future_at_idxn = merge( idx%offset, list%len() - idx%offset + 2 , idx%forward )
520+
to_future_at_idxn = merge( idx%offset, list%len() - idx%offset + 2 , idx%forward )
520521

521-
end function convert_to_future_at_idxn
522+
end function to_future_at_idxn
522523

523524
! to_current_idxn:
524525

525526
!> Version: experimental
526527
!>
527528
!> Converts a forward index OR backward index to its equivalent integer index idxn
528529
!> Returns an integer
529-
pure integer function convert_to_current_idxn( list, idx )
530+
pure integer function to_current_idxn( list, idx )
530531
!> Not a part of public API
531532
class(stringlist_type), intent(in) :: list
532533
type(stringlist_index_type), intent(in) :: idx
533534

534535
! Formula: merge( fidx( x ) - ( list_head - 1 ), len + 1 - bidx( x ) + ( list_tail - 1 ), ... )
535-
convert_to_current_idxn = merge( idx%offset, list%len() - idx%offset + 1, idx%forward )
536+
to_current_idxn = merge( idx%offset, list%len() - idx%offset + 1, idx%forward )
536537

537-
end function convert_to_current_idxn
538+
end function to_current_idxn
538539

539540
! insert_at:
540541

541542
!> Version: experimental
542543
!>
543544
!> Inserts character scalar 'string' AT stringlist_index 'idx' in stringlist 'list'
544545
!> Modifies the input stringlist 'list'
545-
pure subroutine insert_at_char_idx_wrap( list, idx, string )
546+
pure subroutine insert_at_char_idx( list, idx, string )
546547
class(stringlist_type), intent(inout) :: list
547548
type(stringlist_index_type), intent(in) :: idx
548549
character(len=*), intent(in) :: string
549550

550551
call list%insert_at( idx, string_type( string ) )
551552

552-
end subroutine insert_at_char_idx_wrap
553+
end subroutine insert_at_char_idx
553554

554555
!> Version: experimental
555556
!>
556557
!> Inserts string 'string' AT stringlist_index 'idx' in stringlist 'list'
557558
!> Modifies the input stringlist 'list'
558-
pure subroutine insert_at_string_idx_wrap( list, idx, string )
559+
pure subroutine insert_at_string_idx( list, idx, string )
559560
class(stringlist_type), intent(inout) :: list
560561
type(stringlist_index_type), intent(in) :: idx
561562
type(string_type), intent(in) :: string
562563

563564
call list%insert_before( list%to_future_at_idxn( idx ), string )
564565

565-
end subroutine insert_at_string_idx_wrap
566+
end subroutine insert_at_string_idx
566567

567568
!> Version: experimental
568569
!>
569570
!> Inserts stringlist 'slist' AT stringlist_index 'idx' in stringlist 'list'
570571
!> Modifies the input stringlist 'list'
571-
pure subroutine insert_at_stringlist_idx_wrap( list, idx, slist )
572+
pure subroutine insert_at_stringlist_idx( list, idx, slist )
572573
class(stringlist_type), intent(inout) :: list
573574
type(stringlist_index_type), intent(in) :: idx
574575
type(stringlist_type), intent(in) :: slist
575576

576577
call list%insert_before( list%to_future_at_idxn( idx ), slist )
577578

578-
end subroutine insert_at_stringlist_idx_wrap
579+
end subroutine insert_at_stringlist_idx
579580

580581
!> Version: experimental
581582
!>
582583
!> Inserts chararray 'carray' AT stringlist_index 'idx' in stringlist 'list'
583584
!> Modifies the input stringlist 'list'
584-
pure subroutine insert_at_chararray_idx_wrap( list, idx, carray )
585+
pure subroutine insert_at_chararray_idx( list, idx, carray )
585586
class(stringlist_type), intent(inout) :: list
586587
type(stringlist_index_type), intent(in) :: idx
587588
character(len=*), dimension(:), intent(in) :: carray
588589

589590
call list%insert_before( list%to_future_at_idxn( idx ), carray )
590591

591-
end subroutine insert_at_chararray_idx_wrap
592+
end subroutine insert_at_chararray_idx
592593

593594
!> Version: experimental
594595
!>
595596
!> Inserts stringarray 'sarray' AT stringlist_index 'idx' in stringlist 'list'
596597
!> Modifies the input stringlist 'list'
597-
pure subroutine insert_at_stringarray_idx_wrap( list, idx, sarray )
598+
pure subroutine insert_at_stringarray_idx( list, idx, sarray )
598599
class(stringlist_type), intent(inout) :: list
599600
type(stringlist_index_type), intent(in) :: idx
600601
type(string_type), dimension(:), intent(in) :: sarray
601602

602603
call list%insert_before( list%to_future_at_idxn( idx ), sarray )
603604

604-
end subroutine insert_at_stringarray_idx_wrap
605+
end subroutine insert_at_stringarray_idx
605606

606607
!> Version: experimental
607608
!>
@@ -643,7 +644,7 @@ end subroutine insert_before_engine
643644
!>
644645
!> Inserts string 'string' BEFORE integer index 'idxn' in the underlying stringarray
645646
!> Modifies the input stringlist 'list'
646-
pure subroutine insert_before_string_int_impl( list, idxn, string )
647+
pure subroutine insert_before_string_int( list, idxn, string )
647648
!> Not a part of public API
648649
class(stringlist_type), intent(inout) :: list
649650
integer, intent(in) :: idxn
@@ -656,13 +657,13 @@ pure subroutine insert_before_string_int_impl( list, idxn, string )
656657

657658
list%stringarray(work_idxn) = string
658659

659-
end subroutine insert_before_string_int_impl
660+
end subroutine insert_before_string_int
660661

661662
!> Version: experimental
662663
!>
663664
!> Inserts stringlist 'slist' BEFORE integer index 'idxn' in the underlying stringarray
664665
!> Modifies the input stringlist 'list'
665-
pure subroutine insert_before_stringlist_int_impl( list, idxn, slist )
666+
pure subroutine insert_before_stringlist_int( list, idxn, slist )
666667
!> Not a part of public API
667668
class(stringlist_type), intent(inout) :: list
668669
integer, intent(in) :: idxn
@@ -687,13 +688,13 @@ pure subroutine insert_before_stringlist_int_impl( list, idxn, slist )
687688
list%stringarray(idxnew) = slist%stringarray(i)
688689
end do
689690

690-
end subroutine insert_before_stringlist_int_impl
691+
end subroutine insert_before_stringlist_int
691692

692693
!> Version: experimental
693694
!>
694695
!> Inserts chararray 'carray' BEFORE integer index 'idxn' in the underlying stringarray
695696
!> Modifies the input stringlist 'list'
696-
pure subroutine insert_before_chararray_int_impl( list, idxn, carray )
697+
pure subroutine insert_before_chararray_int( list, idxn, carray )
697698
!> Not a part of public API
698699
class(stringlist_type), intent(inout) :: list
699700
integer, intent(in) :: idxn
@@ -710,13 +711,13 @@ pure subroutine insert_before_chararray_int_impl( list, idxn, carray )
710711
list%stringarray(idxnew) = string_type( carray(i) )
711712
end do
712713

713-
end subroutine insert_before_chararray_int_impl
714+
end subroutine insert_before_chararray_int
714715

715716
!> Version: experimental
716717
!>
717718
!> Inserts stringarray 'sarray' BEFORE integer index 'idxn' in the underlying stringarray
718719
!> Modifies the input stringlist 'list'
719-
pure subroutine insert_before_stringarray_int_impl( list, idxn, sarray )
720+
pure subroutine insert_before_stringarray_int( list, idxn, sarray )
720721
!> Not a part of public API
721722
class(stringlist_type), intent(inout) :: list
722723
integer, intent(in) :: idxn
@@ -733,7 +734,7 @@ pure subroutine insert_before_stringarray_int_impl( list, idxn, sarray )
733734
list%stringarray(idxnew) = sarray(i)
734735
end do
735736

736-
end subroutine insert_before_stringarray_int_impl
737+
end subroutine insert_before_stringarray_int
737738

738739
! get:
739740

@@ -773,35 +774,35 @@ end subroutine get_engine
773774
!>
774775
!> Returns the string present at stringlist_index 'idx' in stringlist 'list'
775776
!> Returns string_type instance
776-
pure function get_idx_impl( list, idx )
777+
pure function get_idx( list, idx )
777778
class(stringlist_type), intent(in) :: list
778779
type(stringlist_index_type), intent(in) :: idx
779780

780-
type(string_type) :: get_idx_impl
781+
type(string_type) :: get_idx
781782
type(string_type), allocatable :: capture_strings(:)
782783

783784
call get_engine( list, idx, idx, capture_strings )
784785

785786
! if index 'idx' is out of bounds, returns an empty string
786787
if ( size(capture_strings) == 1 ) then
787-
call move( capture_strings(1), get_idx_impl )
788+
call move( capture_strings(1), get_idx )
788789
end if
789790

790-
end function get_idx_impl
791+
end function get_idx
791792

792793
!> Version: experimental
793794
!>
794795
!> Returns strings present at stringlist_indexes in interval ['first', 'last']
795796
!> Returns array of string_type instances
796-
pure function get_range_idx_impl( list, first, last )
797+
pure function get_range_idx( list, first, last )
797798
class(stringlist_type), intent(in) :: list
798799
type(stringlist_index_type), intent(in) :: first, last
799800

800-
type(string_type), allocatable :: get_range_idx_impl(:)
801+
type(string_type), allocatable :: get_range_idx(:)
801802

802-
call get_engine( list, first, last, get_range_idx_impl )
803+
call get_engine( list, first, last, get_range_idx )
803804

804-
end function get_range_idx_impl
805+
end function get_range_idx
805806

806807
! pop & drop:
807808

@@ -860,59 +861,59 @@ end subroutine pop_drop_engine
860861
!>
861862
!> Removes the string present at stringlist_index 'idx' in stringlist 'list'
862863
!> Returns the removed string
863-
function pop_idx_impl( list, idx )
864+
function pop_idx( list, idx )
864865
class(stringlist_type), intent(inout) :: list
865866
type(stringlist_index_type), intent(in) :: idx
866-
type(string_type) :: pop_idx_impl
867+
type(string_type) :: pop_idx
867868

868869
type(string_type), dimension(:), allocatable :: popped_strings
869870

870871
call pop_drop_engine( list, idx, idx, popped_strings )
871872

872873
if ( size(popped_strings) == 1 ) then
873-
call move( pop_idx_impl, popped_strings(1) )
874+
call move( pop_idx, popped_strings(1) )
874875
end if
875876

876-
end function pop_idx_impl
877+
end function pop_idx
877878

878879
!> Version: experimental
879880
!>
880881
!> Removes strings present at stringlist_indexes in interval ['first', 'last']
881882
!> in stringlist 'list'
882883
!> Returns removed strings
883-
function pop_range_idx_impl( list, first, last )
884+
function pop_range_idx( list, first, last )
884885
class(stringlist_type), intent(inout) :: list
885886
type(stringlist_index_type), intent(in) :: first, last
886887

887-
type(string_type), dimension(:), allocatable :: pop_range_idx_impl
888+
type(string_type), dimension(:), allocatable :: pop_range_idx
888889

889-
call pop_drop_engine( list, first, last, pop_range_idx_impl )
890+
call pop_drop_engine( list, first, last, pop_range_idx )
890891

891-
end function pop_range_idx_impl
892+
end function pop_range_idx
892893

893894
!> Version: experimental
894895
!>
895896
!> Removes the string present at stringlist_index 'idx' in stringlist 'list'
896897
!> Doesn't return the removed string
897-
pure subroutine drop_idx_impl( list, idx )
898+
pure subroutine drop_idx( list, idx )
898899
class(stringlist_type), intent(inout) :: list
899900
type(stringlist_index_type), intent(in) :: idx
900901

901902
call pop_drop_engine( list, idx, idx )
902903

903-
end subroutine drop_idx_impl
904+
end subroutine drop_idx
904905

905906
!> Version: experimental
906907
!>
907908
!> Removes strings present at stringlist_indexes in interval ['first', 'last']
908909
!> in stringlist 'list'
909910
!> Doesn't return removed strings
910-
pure subroutine drop_range_idx_impl( list, first, last )
911+
pure subroutine drop_range_idx( list, first, last )
911912
class(stringlist_type), intent(inout) :: list
912913
type(stringlist_index_type), intent(in) :: first, last
913914

914915
call pop_drop_engine( list, first, last )
915916

916-
end subroutine drop_range_idx_impl
917+
end subroutine drop_range_idx
917918

918919
end module stdlib_stringlist_type

0 commit comments

Comments
 (0)