String list new

example/CMakeLists.txt

@@ -14,6 +14,7 @@ add_subdirectory(hashmaps)
 add_subdirectory(hash_procedures)
 add_subdirectory(io)
 add_subdirectory(linalg)
+add_subdirectory(linked_list)
 add_subdirectory(logger)
 add_subdirectory(math)
 add_subdirectory(optval)

example/linked_list/CMakeLists.txt

@@ -0,0 +1,15 @@
+include_directories(${CMAKE_CURRENT_LIST_DIR})
+
+ADD_EXAMPLE(linked_absorb)
+ADD_EXAMPLE(linked_clear)
+ADD_EXAMPLE(linked_concat)
+ADD_EXAMPLE(linked_get)
+ADD_EXAMPLE(linked_insert)
+ADD_EXAMPLE(linked_pop)
+ADD_EXAMPLE(linked_push)
+ADD_EXAMPLE(linked_remove)
+ADD_EXAMPLE(linked_replace)
+ADD_EXAMPLE(linked_reverse)
+ADD_EXAMPLE(linked_size)
+ADD_EXAMPLE(linked_slice)
+ADD_EXAMPLE(linked_splice)

example/linked_list/example_linked_absorb.f90

@@ -0,0 +1,70 @@
+! example_absorb.f90 --
+!     Demonstrate the absorb method
+!
+program example_absorb
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list_type) :: list, list_to_absorb
+
+    !
+    ! Add a few elements to the two lists
+    !
+    call list%insert( "String element", 1 )
+    call list%insert( 2, 2 )
+    call list%insert( 3.3, 3 )
+
+    call list_to_absorb%insert( 5, 1 )
+    call list_to_absorb%insert( 6, 2 )
+
+    write(*,*) 'List 1:'
+    call print_list( list )
+    write(*,*) 'List 2:'
+    call print_list( list_to_absorb )
+
+    !
+    ! Now absorb the second list to the first one
+    !
+
+    call list%absorb( list_to_absorb )
+
+    !
+    ! Print the resulting list
+    !
+    write(*,*) 'New list:'
+    call print_list( list )
+
+    !
+    ! Print the second list (it is untouched)
+    write(*,*) 'List that was absorbed (should be empty):'
+    call print_list( list_to_absorb )
+
+contains
+!include 'linked_list_aux.inc'
+subroutine print_list( list )
+    type(linked_list_type), intent(in) :: list
+
+    integer           :: i
+    class(*), pointer :: list_item
+
+    do i = 1,list%size()
+        list_item => list%get(i)
+
+        select type( item => list_item )
+            type is (integer)
+                write(*,*) i, item, ' (integer)'
+
+            type is (real)
+                write(*,*) i, item, ' (real)'
+
+            type is (character(*))
+                write(*,*) i, ' >', item, '< (string)'
+
+            class default
+                write(*,*) i, ' (type unknown)'
+        end select
+    enddo
+end subroutine print_list
+
+end program example_absorb

example/linked_list/example_linked_clear.f90

@@ -0,0 +1,28 @@
+! example_clear.f90 --
+!     Demonstrate the clear method
+!
+program example_clear
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list_type) :: list
+
+    !
+    ! Add a few elements
+    !
+    call list%insert( "String element", 1 )
+    call list%insert( 2, 2 )
+    call list%insert( 3.3, 3 )
+
+    !
+    ! Clean up the list
+    !
+    call list%clear()
+
+    !
+    ! The program should print 0
+    !
+    write(*,*) 'Size of the list: ', list%size()
+
+end program example_clear

example/linked_list/example_linked_concat.f90

@@ -0,0 +1,70 @@
+! example_concat.f90 --
+!     Demonstrate the concat method
+!
+program example_concat
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list_type) :: list, list_to_concat
+
+    !
+    ! Add a few elements to the two lists
+    !
+    call list%insert( "String element", 1 )
+    call list%insert( 2, 2 )
+    call list%insert( 3.3, 3 )
+
+    call list_to_concat%insert( 5, 1 )
+    call list_to_concat%insert( 6, 2 )
+
+    write(*,*) 'List 1:'
+    call print_list( list )
+    write(*,*) 'List 2:'
+    call print_list( list_to_concat )
+
+    !
+    ! Now concat the second list to the first one
+    !
+
+    call list%concat( list_to_concat )
+
+    !
+    ! Print the resulting list
+    !
+    write(*,*) 'New list:'
+    call print_list( list )
+
+    !
+    ! Print the second list (it is untouched)
+    write(*,*) 'List that was concatenated (remains intact):'
+    call print_list( list_to_concat )
+
+contains
+!include 'linked_list_aux.inc'
+subroutine print_list( list )
+    type(linked_list_type), intent(in) :: list
+
+    integer           :: i
+    class(*), pointer :: list_item
+
+    do i = 1,list%size()
+        list_item => list%get(i)
+
+        select type( item => list_item )
+            type is (integer)
+                write(*,*) i, item, ' (integer)'
+
+            type is (real)
+                write(*,*) i, item, ' (real)'
+
+            type is (character(*))
+                write(*,*) i, ' >', item, '< (string)'
+
+            class default
+                write(*,*) i, ' (type unknown)'
+        end select
+    enddo
+end subroutine print_list
+
+end program example_concat

example/linked_list/example_linked_get.f90

@@ -0,0 +1,41 @@
+! example_get.f90 --
+!     Demonstrate the get method
+!
+program example_get
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list_type) :: list
+    class(*), pointer      :: list_item
+    integer                :: i
+
+    !
+    ! Add a few elements
+    !
+    call list%insert( "String element   ", 1 ) ! Note the trailing blanks
+    call list%insert( 2, 2 )
+    call list%insert( 3.3, 3 )
+
+    !
+    ! Print the contents of the list
+    !
+    do i = 1,list%size()
+        list_item => list%get(i)
+
+        select type( item => list_item )
+            type is (integer)
+                write(*,*) i, item, ' (integer)'
+
+            type is (real)
+                write(*,*) i, item, ' (real)'
+
+            type is (character(*))
+                write(*,*) i, ' >', item, '< (string)'
+
+            class default
+                write(*,*) i, ' (type unknown)'
+        end select
+    enddo
+
+end program example_get

example/linked_list/example_linked_insert.f90

@@ -0,0 +1,59 @@
+! example_insert.f90 --
+!     Demonstrate the insert method
+!
+
+program example_insert
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list_type) :: list
+
+    !
+    ! Add a few elements
+    !
+    call list%insert( "String element", 1 )
+    call list%insert( 2, 2 )
+    call list%insert( 3.3, 3 )
+
+    call print_list( list )
+    !
+    ! Now insert an element in the middle
+    !
+
+    call list%insert( "Another string", 2 )
+
+    !
+    ! Print the list
+    !
+    write(*,*) 'New list:'
+    call print_list( list )
+
+contains
+!include 'linked_list_aux.inc'
+subroutine print_list( list )
+    type(linked_list_type), intent(in) :: list
+
+    integer           :: i
+    class(*), pointer :: list_item
+
+    do i = 1,list%size()
+        list_item => list%get(i)
+
+        select type( item => list_item )
+            type is (integer)
+                write(*,*) i, item, ' (integer)'
+
+            type is (real)
+                write(*,*) i, item, ' (real)'
+
+            type is (character(*))
+                write(*,*) i, ' >', item, '< (string)'
+
+            class default
+                write(*,*) i, ' (type unknown)'
+        end select
+    enddo
+end subroutine print_list
+
+end program example_insert

example/linked_list/example_linked_pop.f90

@@ -0,0 +1,59 @@
+! example_pop.f90 --
+!     Demonstrate the pop method
+!
+program example_pop
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list_type) :: list
+
+    !
+    ! Add a few elements
+    !
+    call list%insert( "String element", 1 )
+    call list%insert( 2, 2 )
+    call list%insert( 3.3, 3 )
+
+    call print_list( list )
+
+    !
+    ! Now pop the last element from the list
+    !
+
+    call list%pop
+
+    !
+    ! Print the list
+    !
+    write(*,*) 'New list:'
+    call print_list( list )
+
+contains
+!include 'linked_list_aux.inc'
+subroutine print_list( list )
+    type(linked_list_type), intent(in) :: list
+
+    integer           :: i
+    class(*), pointer :: list_item
+
+    do i = 1,list%size()
+        list_item => list%get(i)
+
+        select type( item => list_item )
+            type is (integer)
+                write(*,*) i, item, ' (integer)'
+
+            type is (real)
+                write(*,*) i, item, ' (real)'
+
+            type is (character(*))
+                write(*,*) i, ' >', item, '< (string)'
+
+            class default
+                write(*,*) i, ' (type unknown)'
+        end select
+    enddo
+end subroutine print_list
+
+end program example_pop