correct basename(3f) function and subsequently fix --list option

The --list option was incorrectly trimming pathnames when suffix=.false.
was present, and the meaning of the --list option has changed from
originally being an option to display the full pathnames of targets
to displaying a table of matching target basenames. Since the --runner
command can be used to display the full pathnames and the runner command
defaults to an "echo" command the pathnames can still easily be generated,
but an example was added to reflect that.

As the help text needed editing anyway, changed some whitespace to
conform to the requirements of the txt2man(1) utility, to facilitate
easily generating man-pages and HTML versions of the help text.

Author: urbanjost

src/fpm.f90

@@ -287,7 +287,7 @@ subroutine cmd_build(settings)
     call build_package(targets,model)
 endif
 
-end subroutine
+end subroutine cmd_build
 
 subroutine cmd_run(settings,test)
     class(fpm_run_settings), intent(in) :: settings

src/fpm_command_line.f90

@@ -864,7 +864,7 @@ subroutine set_help()
     help_text_flag, &
     ' --runner CMD  A command to prefix the program execution paths with.   ', &
     '               see "fpm help runner" for further details.              ', &
-    ' --list     list pathname of candidates instead of running them. Note  ', &
+    ' --list     list basenames of candidates instead of running them. Note ', &
     '            out-of-date candidates will still be rebuilt before being  ', &
     '            listed.                                                    ', &
     ' -- ARGS    optional arguments to pass to the program(s). The same     ', &
@@ -876,7 +876,9 @@ subroutine set_help()
     ' fpm(1) - run or display project applications:                         ', &
     '                                                                       ', &
     '  fpm run        # run a target when only one exists or list targets   ', &
-    '  fpm run --list # list all targets, running nothing.                  ', &
+    '  fpm run --list # list basename of all targets, running nothing.      ', &
+    '  fpm run "demo*" --list # list target basenames starting with "demo*".', &
+    '  fpm run "psi*" --runner # list target pathnames starting with "psi*".', &
     '  fpm run --all  # run all targets, no matter how many there are.      ', &
     '                                                                       ', &
     '  # run default program built or to be built with the compiler command ', &
@@ -885,7 +887,7 @@ subroutine set_help()
     '  fpm run --compiler f90                                               ', &
     '                                                                       ', &
     '  # run example programs instead of the application programs.          ', &
-    '  fpm run --example ''*''                                                ', &
+    '  fpm run --example "*"                                                ', &
     '                                                                       ', &
     '  # run a specific program and pass arguments to the command           ', &
     '  fpm run myprog -- -x 10 -y 20 --title "my title line"                ', &
@@ -1110,7 +1112,8 @@ subroutine set_help()
     help_text_flag, &
     ' --runner CMD  A command to prefix the program execution paths with.   ', &
     '               see "fpm help runner" for further details.              ', &
-    ' --list     list candidates instead of building or running them        ', &
+    ' --list     list candidate basenames instead of running them. Note they', &
+    ' --list     will still be built if not currently up to date.           ', &
     ' -- ARGS    optional arguments to pass to the test program(s).         ', &
     '            The same arguments are passed to all test names            ', &
     '            specified.                                                 ', &

src/fpm_filesystem.F90

@@ -94,21 +94,18 @@ function basename(path,suffix) result (base)
         with_suffix = suffix
     end if
 
-    if (with_suffix) then
-        call split(path,file_parts,delimiters='\/')
-        if(size(file_parts).gt.0)then
-           base = trim(file_parts(size(file_parts)))
-        else
-           base = ''
-        endif
+    call split(path,file_parts,delimiters='\/')
+    if(size(file_parts).gt.0)then
+       base = trim(file_parts(size(file_parts)))
     else
-        call split(path,file_parts,delimiters='\/.')
+       base = ''
+    endif
+    if(.not.with_suffix)then
+        call split(base,file_parts,delimiters='.')
         if(size(file_parts).ge.2)then
            base = trim(file_parts(size(file_parts)-1))
-        else
-           base = ''
         endif
-    end if
+    endif
 
 end function basename