fix: get file and add page

src/fpm.f90

@@ -724,7 +724,7 @@ end subroutine cmd_clean
 subroutine cmd_search(settings)
     !> Settings for the search command.
     class(fpm_search_settings), intent(in) :: settings
-    character(:), allocatable :: tmp_file, name, namespace, description
+    character(:), allocatable :: tmp_file, name, namespace, description, query_url
     type(toml_key), allocatable :: list(:)
     integer :: stat, unit, ii
     type(json_object) :: json
@@ -745,9 +745,11 @@ subroutine cmd_search(settings)
       call fatal_error(error, "Error creating temporary file for downloading package."); return
     end if
 
+    query_url = official_registry_base_url//'/packages?query='//settings%query//'&page='//settings%page
+
     !> Get the package data from the registry
-    call downloader%get_pkg_data(official_registry_base_url//'/packages?query='//settings%query, version, tmp_file, json, error)
-    close (unit, status='delete')
+    call downloader%get_pkg_data(query_url, version, tmp_file, json, error)
+    close (unit)
     if (allocated(error)) return
 
     if (json%has_key("packages")) then

src/fpm/downloader.f90

@@ -62,10 +62,10 @@ subroutine get_file(url, tmp_pkg_file, error)
 
     if (which('curl') /= '') then
       print *, "Downloading '"//url//"' -> '"//tmp_pkg_file//"'"
-      call execute_command_line('curl '//url//' -s -o '//tmp_pkg_file, exitstat=stat)
+      call execute_command_line('curl "'//url//'" -s -o '//tmp_pkg_file, exitstat=stat)
     else if (which('wget') /= '') then
       print *, "Downloading '"//url//"' -> '"//tmp_pkg_file//"'"
-      call execute_command_line('wget '//url//' -q -O '//tmp_pkg_file, exitstat=stat)
+      call execute_command_line('wget "'//url//'" -q -O '//tmp_pkg_file, exitstat=stat)
     else
       call fatal_error(error, "Neither 'curl' nor 'wget' installed."); return
     end if

src/fpm_command_line.f90

@@ -135,6 +135,7 @@ module fpm_command_line
 
 type, extends(fpm_cmd_settings)   :: fpm_search_settings
     character(len=:),allocatable  :: query
+    character(len=:),allocatable  :: page
 end type
 
 type, extends(fpm_build_settings) :: fpm_publish_settings
@@ -243,7 +244,7 @@ subroutine get_command_line_settings(cmd_settings)
         type(fpm_export_settings) , allocatable :: export_settings
         type(version_t) :: version
         character(len=:), allocatable :: common_args, compiler_args, run_args, working_dir, &
-            & c_compiler, cxx_compiler, archiver, version_s, token_s, query
+            & c_compiler, cxx_compiler, archiver, version_s, token_s, query, page
 
         character(len=*), parameter :: fc_env = "FC", cc_env = "CC", ar_env = "AR", &
             & fflags_env = "FFLAGS", cflags_env = "CFLAGS", cxxflags_env = "CXXFLAGS", ldflags_env = "LDFLAGS", &
@@ -709,13 +710,15 @@ subroutine get_command_line_settings(cmd_settings)
         case('search')
             call set_args(common_args //'&
             & --query " " &
+            & --page " " &
             & --', help_clean, version_text)
-             query = sget('query')
+            query = sget('query')
+            page = sget('page')
 
             block
                 allocate(fpm_search_settings :: cmd_settings)
                 cmd_settings = fpm_search_settings( &
-                & query=query)
+                & query=query, page=page)
             end block
 
         case('publish')