update fortran-shlex to 2.0.0 (mslex)

Author: perazz

fpm.toml

@@ -21,7 +21,7 @@ fortran-regex.tag  = "1.1.2"
 jonquil.git = "https://github.com/toml-f/jonquil"
 jonquil.rev = "4fbd4cf34d577c0fd25e32667ee9e41bf231ece8"
 fortran-shlex.git = "https://github.com/perazz/fortran-shlex"
-fortran-shlex.tag = "1.2.1"
+fortran-shlex.tag = "2.0.0"
 
 [[test]]
 name = "cli-test"

src/fpm_compile_commands.F90

@@ -7,7 +7,8 @@ module fpm_compile_commands
     use fpm_strings, only: string_t, operator(==)
     use fpm_error, only: error_t, syntax_error, fatal_error
     use fpm_os, only: get_current_directory
-    use shlex_module, only: shlex_split => split 
+    use fpm_environment, only: get_os_type, OS_WINDOWS
+    use shlex_module, only: sh_split => split, ms_split
     implicit none
 
     !> Definition of a build command
@@ -249,7 +250,11 @@ subroutine cct_register(self, command, error)
         end if
 
         ! Tokenize the input command into args(:)
-        args = shlex_split(command, join_spaced=.false., keep_quotes=.true., success=sh_success)
+        if (get_os_type()==OS_WINDOWS) then 
+            args = ms_split(command, ucrt=.true., success=sh_success)
+        else
+            args = sh_split(command, join_spaced=.false., keep_quotes=.true., success=sh_success)
+        end if
         n = size(args)
 
         if (n==0 .or. .not.sh_success) then 

src/fpm_compiler.F90

@@ -46,7 +46,7 @@ module fpm_compiler
 use tomlf, only: toml_table
 use fpm_toml, only: serializable_t, set_string, set_value, toml_stat, get_value
 use fpm_compile_commands, only: compile_command_t, compile_command_table_t
-use shlex_module, only: shlex_split => split
+use shlex_module, only: sh_split => split, ms_split
 implicit none
 public :: compiler_t, new_compiler, archiver_t, new_archiver, get_macros
 public :: append_clean_flags, append_clean_flags_array
@@ -1693,7 +1693,7 @@ subroutine tokenize_flags(flags, flags_array)
     integer :: i
     logical :: success
 
-    flags_char_array = shlex_split(flags, join_spaced=.true., keep_quotes=.true., success=success)
+    flags_char_array = sh_split(flags, join_spaced=.true., keep_quotes=.true., success=success)
     if (.not. success) then
         allocate(flags_array(0))
         return