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,24 @@
+#include_directories(${CMAKE_CURRENT_LIST_DIR})
+
+macro(ADD_EXAMPLE_INCLUDE name)
+    add_executable(example_${name} example_${name}.f90)
+    target_include_drectories(example_${name} ${CMAKE_CURRENT_SOURCE_DIR})
+    target_link_libraries(example_${name} "${PROJECT_NAME}")
+    add_test(NAME ${name}
+             COMMAND $<TARGET_FILE:example_${name}> ${CMAKE_CURRENT_BINARY_DIR}
+             WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR})
+endmacro(ADD_EXAMPLE_INCLUDE)
+
+ADD_EXAMPLE_INCLUDE(linked_absorb)
+ADD_EXAMPLE_INCLUDE(linked_clear)
+ADD_EXAMPLE_INCLUDE(linked_concat)
+ADD_EXAMPLE_INCLUDE(linked_get)
+ADD_EXAMPLE_INCLUDE(linked_insert)
+ADD_EXAMPLE_INCLUDE(linked_pop)
+ADD_EXAMPLE_INCLUDE(linked_push)
+ADD_EXAMPLE_INCLUDE(linked_remove)
+ADD_EXAMPLE_INCLUDE(linked_replace)
+ADD_EXAMPLE_INCLUDE(linked_reverse)
+ADD_EXAMPLE_INCLUDE(linked_size)
+ADD_EXAMPLE_INCLUDE(linked_slice)
+ADD_EXAMPLE_INCLUDE(linked_splice)

example/linked_list/example_linked_absorb.f90

@@ -0,0 +1,46 @@
+! example_absorb.f90 --
+!     Demonstrate the absorb method
+!
+program example_absorb
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list) :: 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.f90'
+
+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) :: 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,46 @@
+! example_concat.f90 --
+!     Demonstrate the concat method
+!
+program example_concat
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list) :: 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.f90'
+
+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) :: 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,35 @@
+! example_insert.f90 --
+!     Demonstrate the insert method
+!
+
+program example_insert
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list) :: 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.f90'
+
+end program example_insert

example/linked_list/example_linked_pop.f90

@@ -0,0 +1,35 @@
+! example_pop.f90 --
+!     Demonstrate the pop method
+!
+program example_pop
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list) :: 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.f90'
+
+end program example_pop

example/linked_list/example_linked_push.f90

@@ -0,0 +1,35 @@
+! example_push.f90 --
+!     Demonstrate the push method
+!
+program example_push
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list) :: 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 push a new element to the end
+    !
+
+    call list%push( 3 )
+
+    !
+    ! Print the list
+    !
+    write(*,*) 'New list:'
+    call print_list( list )
+
+contains
+include 'linked_list_aux.f90'
+
+end program example_push

example/linked_list/example_linked_remove.f90

@@ -0,0 +1,35 @@
+! example_remove.f90 --
+!     Demonstrate the remove method
+!
+program example_remove
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list) :: 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 remove the second element
+    !
+
+    call list%remove( 2 )
+
+    !
+    ! Print the list
+    !
+    write(*,*) 'New list:'
+    call print_list( list )
+
+contains
+include 'linked_list_aux.f90'
+
+end program example_remove

example/linked_list/example_linked_replace.f90

@@ -0,0 +1,35 @@
+! example_replace.f90 --
+!     Demonstrate the replace method
+!
+program example_replace
+    use stdlib_linked_list
+
+    implicit none
+
+    type(linked_list) :: 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 replace the second element by a string
+    !
+
+    call list%replace( "Another string", 2 )
+
+    !
+    ! Print the list
+    !
+    write(*,*) 'New list:'
+    call print_list( list )
+
+contains
+include 'linked_list_aux.f90'
+
+end program example_replace