ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_sysPath.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
17! WARNING: The Doxygen 2.9 documenter has extreme difficulty parsing the documentation of this module
18! because of the presence of so many Windows-style directory separators (backslash) in the text.<br>
19! As such, any modification to the documentation must be done with extreme care,
20! otherwise, frequent hard-to-debug runtime Doxygen segfaults are likely.<br>
21
256
257!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258
260#if WINDOWS_ENABLED
261#define MAX_PATH 260_IK
262#define MAX_NAME 260_IK
263#else
264#define MAX_PATH 4096_IK
265#define MAX_NAME 255_IK
266#endif
267#if FORTRAN_ENABLED
268#define BIND2(X)
269#else
270#define BIND2(X)bind(C, name = X)
271#endif
272
273
274module pm_sysPath
275
276 use pm_kind, only: IK, LK, SK
277 use pm_container, only: css_type
278
279 implicit none
280
281 character(*, SK), parameter :: MODULE_NAME = SK_"@pm_sysPath"
282
284 integer , private :: i
286
287!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288
289 integer(IK) , parameter :: MAX_LEN_FILE_NAME = MAX_NAME
290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
291 !DIR$ ATTRIBUTES DLLEXPORT :: MAX_LEN_FILE_NAME
292#endif
293
294 integer(IK) , parameter :: MAX_LEN_FILE_PATH = MAX_PATH
296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
297 !DIR$ ATTRIBUTES DLLEXPORT :: MAX_LEN_FILE_PATH
298#endif
299 character(*, SK), parameter :: DIR_SEP_WINDOWS_ALL = SK_"\/"
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DIR$ ATTRIBUTES DLLEXPORT :: DIR_SEP_WINDOWS_ALL
302#endif
303 character(*, SK), parameter :: DIR_SEP_POSIX_ALL = SK_"/"
304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
305 !DIR$ ATTRIBUTES DLLEXPORT :: DIR_SEP_POSIX_ALL
306#endif
307 character(*, SK), parameter :: DIR_SEP_WINDOWS = SK_"\"
308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
309 !DIR$ ATTRIBUTES DLLEXPORT :: DIR_SEP_WINDOWS
310#endif
311 character(*, SK), parameter :: DIR_SEP_POSIX = SK_"/"
312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
313 !DIR$ ATTRIBUTES DLLEXPORT :: DIR_SEP_POSIX
314#endif
315 character(*, SK), parameter :: DIR_SEP_ALL = SK_"/\"
316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
317 !DIR$ ATTRIBUTES DLLEXPORT :: DIR_SEP_ALL
318#endif
319
320 character(*, SK), parameter :: PATH_SEP_WINDOWS = SK_";"
321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
322 !DIR$ ATTRIBUTES DLLEXPORT :: PATH_SEP_WINDOWS
323#endif
324 character(*, SK), parameter :: PATH_SEP_POSIX = SK_":"
325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
326 !DIR$ ATTRIBUTES DLLEXPORT :: PATH_SEP_POSIX
327#endif
328 character(*, SK), parameter :: PATH_SEP_ALL = SK_":;"
329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
330 !DIR$ ATTRIBUTES DLLEXPORT :: PATH_SEP_ALL
331#endif
332
333!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
334
350 type :: verbatim_type; end type
351
367 type(verbatim_type), parameter :: verbatim = verbatim_type()
368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
369 !DIR$ ATTRIBUTES DLLEXPORT :: verbatim
370#endif
371
372!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373
402 character(*, SK), parameter :: WIN32_NAMESPACE_FILE = SK_"\\?\"
403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
404 !DIR$ ATTRIBUTES DLLEXPORT :: WIN32_NAMESPACE_FILE
405#endif
406
430 character(*, SK), parameter :: WIN32_NAMESPACE_DEVICE = SK_"\\.\"
431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
432 !DIR$ ATTRIBUTES DLLEXPORT :: WIN32_NAMESPACE_DEVICE
433#endif
434
435!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
436
448 character(*, SK), parameter :: ASCII_CONTROL_STR = achar( 1, SK) // &
449 achar( 2, SK) // &
450 achar( 3, SK) // &
451 achar( 4, SK) // &
452 achar( 5, SK) // &
453 achar( 6, SK) // &
454 achar( 7, SK) // &
455 achar( 8, SK) // &
456 achar( 9, SK) // &
457 achar(10, SK) // &
458 achar(11, SK) // &
459 achar(12, SK) // &
460 achar(13, SK) // &
461 achar(14, SK) // &
462 achar(15, SK) // &
463 achar(16, SK) // &
464 achar(17, SK) // &
465 achar(18, SK) // &
466 achar(19, SK) // &
467 achar(21, SK) // &
468 achar(22, SK) // &
469 achar(23, SK) // &
470 achar(24, SK) // &
471 achar(25, SK) // &
472 achar(26, SK) // &
473 achar(27, SK) // &
474 achar(28, SK) // &
475 achar(29, SK) // &
476 achar(30, SK) // &
477 achar(31, SK) // &
478 achar(127,SK)
479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
480 !DIR$ ATTRIBUTES DLLEXPORT :: ASCII_CONTROL_STR
481#endif
482
483!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
484
496 character(*, SK), parameter :: WINDOWS_RESERVED_STR = SK_'\/<>:"|?*'//ASCII_CONTROL_STR ! do not change the first character here.<br>
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DIR$ ATTRIBUTES DLLEXPORT :: WINDOWS_RESERVED_STR
499#endif
500
512 character(1, SK), parameter :: WINDOWS_RESERVED_CHR(*) = [( WINDOWS_RESERVED_STR(i:i), i = 1_IK, len(WINDOWS_RESERVED_STR,IK) )]
513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
514 !DIR$ ATTRIBUTES DLLEXPORT :: WINDOWS_RESERVED_CHR
515#endif
516
517!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518
529 character(*, SK), parameter :: WINDOWS_CMD_METACHAR_STR = SK_'()%!^"<>&|'
530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
531 !DIR$ ATTRIBUTES DLLEXPORT :: WINDOWS_CMD_METACHAR_STR
532#endif
533
542 character(1, SK), parameter :: WINDOWS_CMD_METACHAR_CHR(*) = [( WINDOWS_CMD_METACHAR_STR(i:i), i = 1_IK, len(WINDOWS_CMD_METACHAR_STR,IK) )]
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DIR$ ATTRIBUTES DLLEXPORT :: WINDOWS_CMD_METACHAR_CHR
545#endif
546
547!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
548
557 character(4, SK), parameter :: WINDOWS_RESERVED_DEVICE_NAME(*) =[ SK_"CON " &
558 , SK_"PRN " &
559 , SK_"AUX " &
560 , SK_"NUL " &
561 , SK_"COM1" &
562 , SK_"COM2" &
563 , SK_"COM3" &
564 , SK_"COM4" &
565 , SK_"COM5" &
566 , SK_"COM6" &
567 , SK_"COM7" &
568 , SK_"COM8" &
569 , SK_"COM9" &
570 , SK_"LPT1" &
571 , SK_"LPT2" &
572 , SK_"LPT3" &
573 , SK_"LPT4" &
574 , SK_"LPT5" &
575 , SK_"LPT6" &
576 , SK_"LPT7" &
577 , SK_"LPT8" &
578 , SK_"LPT9" &
579 , SK_"con " &
580 , SK_"prn " &
581 , SK_"aux " &
582 , SK_"nul " &
583 , SK_"com1" &
584 , SK_"com2" &
585 , SK_"com3" &
586 , SK_"com4" &
587 , SK_"com5" &
588 , SK_"com6" &
589 , SK_"com7" &
590 , SK_"com8" &
591 , SK_"com9" &
592 , SK_"lpt1" &
593 , SK_"lpt2" &
594 , SK_"lpt3" &
595 , SK_"lpt4" &
596 , SK_"lpt5" &
597 , SK_"lpt6" &
598 , SK_"lpt7" &
599 , SK_"lpt8" &
600 , SK_"lpt9" &
601 ]
602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
603 !DIR$ ATTRIBUTES DLLEXPORT :: WINDOWS_RESERVED_DEVICE_NAME
604#endif
605
606!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607
636 character(*, SK), parameter :: POSIX_RESERVED_STR = SK_" " // & ! space character
637 SK_"!" // & ! history expansion.<br>
638 SK_'"' // & ! shell syntax.<br>
639 SK_"#" // & ! comment start when preceded by whitespace; zsh wildcards.<br>
640 SK_"$" // & ! shell syntax.<br>
641 SK_"&" // & ! shell syntax.<br>
642 SK_"'" // & ! shell syntax.<br>
643 SK_"(" // & ! even in the middle of a word: ksh extended globs (also available in bash and zsh); zsh wildcards.<br>
644 SK_")" // & ! even in the middle of a word: ksh extended globs (also available in bash and zsh); zsh wildcards.<br>
645 SK_"*" // & ! sh wildcard.<br>
646 SK_"," // & ! only inside brace expansion.<br>
647 SK_";" // & ! shell syntax.<br>
648 SK_"<" // & ! shell syntax.<br>
649 SK_"=" // & ! in zsh, when it is at the beginning of a file name (filename expansion with PATH lookup).<br>
650 SK_">" // & ! shell syntax.<br>
651 SK_"?" // & ! sh wildcard.<br>
652 SK_"[" // & ! sh wildcard.<br>
653 SK_"\" // & ! shell syntax.<br>
654 SK_"]" // & ! you may get away with leaving it unquoted.<br>
655 SK_"^" // & ! history expansion; zsh wildcard.<br>
656 SK_"`" // & ! shell syntax.<br>
657 SK_"{" // & ! brace expansion.<br>
658 SK_"|" // & ! shell syntax.<br>
659 SK_"}" // & ! needs to be escaped in zsh, other shells are more lenient when there is no matching opening brace.<br>
660 SK_"~" // & ! home directory expansion when at the beginning of a filename; zsh wildcard; safe when it is the last character.<br>
661 ASCII_CONTROL_STR
662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
663 !DIR$ ATTRIBUTES DLLEXPORT :: POSIX_RESERVED_STR
664#endif
665
666 !stupid gfortran (possibly version 8.3) gives error with the above syntax.<br>
667 !character(*, SK), parameter :: POSIX_RESERVED_STR = " !"//'"#$&'//"'()*,;<=>?[\]^`{|}~"
668
676 character(1, SK), parameter :: POSIX_RESERVED_CHR(*) = [( POSIX_RESERVED_STR(i:i), i = 1_IK, len(POSIX_RESERVED_STR,IK) )]
677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
678 !DIR$ ATTRIBUTES DLLEXPORT :: POSIX_RESERVED_CHR
679#endif
680
681!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
682
694 character(*, SK), parameter :: POSIX_RESERVED_DQUOTE_STR = SK_"`$\"""//achar(10, SK) ! space character
695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
696 !DIR$ ATTRIBUTES DLLEXPORT :: POSIX_RESERVED_DQUOTE_STR
697#endif
698
706 character(1, SK), parameter :: POSIX_RESERVED_DQUOTE_CHR(*) = [( POSIX_RESERVED_DQUOTE_STR(i:i), i = 1_IK, len(POSIX_RESERVED_DQUOTE_STR,IK) )]
707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
708 !DIR$ ATTRIBUTES DLLEXPORT :: POSIX_RESERVED_DQUOTE_CHR
709#endif
710
711!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
712
713!!> \brief
714!!> This is the [PathPart_type](@ref pm_sysPath::PathPart_type) class providing a convenient
715!!> collection of attributes that are frequently needed for handling and manipulating paths.<br>
716!!>
717!!> \example{PathPart_type}
718!!> \include{lineno} example/pm_sysPath/PathPart_type/main.F90
719!!> \compile{PathPart_type}
720!!> \output{PathPart_type}
721!!> \include{lineno} example/pm_sysPath/PathPart_type/main.out.F90
722!!>
723!!> \final
724!!>
725!!> \author
726!!> Amir Shahmoradi, Tuesday March 7, 2017, 3:50 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
727!type :: PathPart_type
728! character(:, SK), allocatable :: val !< The `allocatable` scalar `character` of default kind \SK to contain the path value.<br>
729! character(1, SK) :: sep !< The scalar `character` of default kind \SK of length `1` to contain the directory separator (`\` or `/`) recognized by the system Shell.<br>
730! integer(IK) :: dir(2) !< The `integer` vector of length `2` of default kind \IK to contain the starting an the ending indices of the directory segment of the path.<br>
731! integer(IK) :: name(2) !< The `integer` vector of length `2` of default kind \IK to contain the starting an the ending indices of the name of the file, if any exists in the path.<br>
732! integer(IK) :: base(2) !< The `integer` vector of length `2` of default kind \IK to contain the starting an the ending indices of the base of the file name, if any exists in the path.<br>
733! integer(IK) :: ext(2) !< The `integer` vector of length `2` of default kind \IK to contain the starting an the ending indices of the file extension, if any exists in the path (including the dot separator).<br>
734!end type
735!
736!
737!
738! type :: pathList_type
739! character(:, SK), allocatable :: parent !< \public The public `allocatable` scalar `character` of default kind \SK containing the directory path whose contents is being returned.<br>
740! integer(IK) , private :: unit !< \private The private scalar `integer` of default kind \IK containing the `unit` connected to the file containing the directory listing results.<br>
741! logical(LK) , private :: done !< \private The private scalar `logical` of default kind \LK. It is `.true.` <b>if and only if</b> the contents of the directory listing is fully exhausted.<br>
742! !! This logical flag is used properly close and delete the external files associated with an object of this type upon finalization.<br>
743! !contains
744! ! procedure, pass , private :: isFailedGetNextPathList, isFailedGetNextPathListLen
745! ! generic :: isFailedGetNext => isFailedGetNextPathList, isFailedGetNextPathListLen
746! ! final :: destroyPathList
747! end type
748!
749! !> \cond excluded
750! interface pathList_type
751! module function pathList_typer(path, sort, showdir, showfile, showhidden, failed, errmsg) result(PathList)
752!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753! !DEC$ ATTRIBUTES DLLEXPORT :: pathList_typer
754!#endif
755! use pm_kind, only: SKG => SK
756! character(*,SKG) , intent(in) , optional :: path
757! character(*,SKG) , intent(in) , optional :: sort
758! logical(LK) , intent(in) , optional :: showdir, showfile, showhidden
759! logical(LK) , intent(out) , optional :: failed
760! character(*, SK) , intent(inout) , optional :: errmsg
761! character(:,SKG) , allocatable :: PathList
762! end function
763! end interface
764! !> \endcond excluded
765!
766! !> \cond excluded
767! interface
768!
769! module function isFailedGetNextPathList(PathList, path, errmsg) result(failed)
770!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
771! !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGetNextPathList
772!#endif
773! use pm_kind, only: SKG => SK
774! class(pathList_type), intent(inout) :: PathList
775! character(*,SKG) , intent(out) , allocatable :: path
776! character(*, SK) , intent(inout) , optional :: errmsg
777! logical(LK) :: failed
778! end function
779!
780! module function isFailedGetNextPathListLen(PathList, path, pathlen, errmsg) result(failed)
781!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
782! !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGetNextPathListLen
783!#endif
784! use pm_kind, only: SKG => SK
785! class(pathList_type), intent(inout) :: PathList
786! character(*,SKG) , intent(out) :: path
787! integer(IK) , intent(out) :: pathlen
788! character(*, SK) , intent(inout) , optional :: errmsg
789! logical(LK) :: failed
790! end function
791!
792! end interface
793! !> \endcond excluded
794!
795!
796! !> \cond excluded
797! interface
798! module subroutine destroyPathList(PathList)
799!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
800! !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGetNextPathListLen
801!#endif
802! use pm_kind, only: SKG => SK
803! type(pathList_type) , intent(inout) :: PathList
804! end subroutine
805! end interface
806! !> \endcond excluded
807
808!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
809
882 interface ls
883
884 module function ls_BSSK(path, sort, showdir, showfile, showhidden, reversed) result(list)
885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
886 !DEC$ ATTRIBUTES DLLEXPORT :: ls_BSSK
887#endif
888 use pm_kind, only: SKG => SK
889 character(*,SKG) , intent(in) :: path
890 character(*, SK) , intent(in) , optional :: sort
891 logical(LK) , intent(in) , optional :: showdir, showfile, showhidden, reversed
892 type(css_type) , allocatable :: list(:)
893 end function
894
895 end interface
896
897!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898
954 interface glob
955
956 module function glob_BSSK(pattern) result(list)
957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
958 !DEC$ ATTRIBUTES DLLEXPORT :: glob_BSSK
959#endif
960 use pm_kind, only: SKG => SK
961 character(*,SKG) , intent(in) :: pattern
962 type(css_type) , allocatable :: list(:)
963 end function
964
965 end interface
966
967!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
968
1104 interface isFailedGlob
1105
1106 module function isFailedGlob_SK(pattern, list, index, errmsg) result(failed)
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGlob_SK
1109#endif
1110 use pm_kind, only: SKG => SK
1111 character(*,SKG) , intent(in) :: pattern
1112 character(:,SKG) , intent(out) , allocatable :: list
1113 integer(IK) , intent(out) , allocatable :: index(:,:)
1114 character(*, SK) , intent(inout) , optional :: errmsg
1115 logical(LK) :: failed
1116 end function
1117
1118 module function isFailedGlob_BSSK(pattern, list, errmsg) result(failed)
1119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1120 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGlob_BSSK
1121#endif
1122 use pm_kind, only: SKG => SK
1123 use pm_container, only: css_type
1124 character(*,SKG) , intent(in) :: pattern
1125 type(css_type) , intent(out) , allocatable :: list(:)
1126 character(*, SK) , intent(inout) , optional :: errmsg
1127 logical(LK) :: failed
1128 end function
1129
1130 end interface
1131
1132!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1133
1257 interface isFailedList
1258
1259 module function isFailedList_SK(path, list, index, sort, showdir, showfile, showhidden, reversed, errmsg) result(failed)
1260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1261 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedList_SK
1262#endif
1263 use pm_kind, only: SKG => SK
1264 character(*,SKG) , intent(in) :: path
1265 character(:,SKG) , intent(out) , allocatable :: list
1266 integer(IK) , intent(out) , allocatable :: index(:,:)
1267 character(*, SK) , intent(inout) , optional :: errmsg
1268 character(*, SK) , intent(in) , optional :: sort
1269 logical(LK) , intent(in) , optional :: showdir, showfile, showhidden, reversed
1270 logical(LK) :: failed
1271 end function
1272
1273 module function isFailedList_BSSK(path, list, sort, showdir, showfile, showhidden, reversed, errmsg) result(failed)
1274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1275 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedList_BSSK
1276#endif
1277 use pm_kind, only: SKG => SK
1278 use pm_container, only: css_type
1279 character(*,SKG) , intent(in) :: path
1280 type(css_type) , intent(out) , allocatable :: list(:)
1281 character(*, SK) , intent(inout) , optional :: errmsg
1282 character(*, SK) , intent(in) , optional :: sort
1283 logical(LK) , intent(in) , optional :: showdir, showfile, showhidden, reversed
1284 logical(LK) :: failed
1285 end function
1286
1287 end interface
1288
1289!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1290
1340 interface getPathPosixEscaped
1341
1342 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1343
1344#if SK5_ENABLED
1345 PURE module function getPathPosixEscaped_D0_SK5(path) result(pathEscaped)
1346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1347 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosixEscaped_D0_SK5
1348#endif
1349 use pm_kind, only: SKG => SK5
1350 character(*,SKG) , intent(in) :: path
1351 character(:,SKG) , allocatable :: pathEscaped
1352 end function
1353#endif
1354
1355#if SK4_ENABLED
1356 PURE module function getPathPosixEscaped_D0_SK4(path) result(pathEscaped)
1357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1358 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosixEscaped_D0_SK4
1359#endif
1360 use pm_kind, only: SKG => SK4
1361 character(*,SKG) , intent(in) :: path
1362 character(:,SKG) , allocatable :: pathEscaped
1363 end function
1364#endif
1365
1366#if SK3_ENABLED
1367 PURE module function getPathPosixEscaped_D0_SK3(path) result(pathEscaped)
1368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1369 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosixEscaped_D0_SK3
1370#endif
1371 use pm_kind, only: SKG => SK3
1372 character(*,SKG) , intent(in) :: path
1373 character(:,SKG) , allocatable :: pathEscaped
1374 end function
1375#endif
1376
1377#if SK2_ENABLED
1378 PURE module function getPathPosixEscaped_D0_SK2(path) result(pathEscaped)
1379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1380 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosixEscaped_D0_SK2
1381#endif
1382 use pm_kind, only: SKG => SK2
1383 character(*,SKG) , intent(in) :: path
1384 character(:,SKG) , allocatable :: pathEscaped
1385 end function
1386#endif
1387
1388#if SK1_ENABLED
1389 PURE module function getPathPosixEscaped_D0_SK1(path) result(pathEscaped)
1390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1391 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosixEscaped_D0_SK1
1392#endif
1393 use pm_kind, only: SKG => SK1
1394 character(*,SKG) , intent(in) :: path
1395 character(:,SKG) , allocatable :: pathEscaped
1396 end function
1397#endif
1398
1399 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1400
1401 end interface
1402
1403!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1404
1454 interface setPathPosixEscaped
1455
1456 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1457
1458#if SK5_ENABLED
1459 PURE module subroutine setPathPosixEscaped_D0_SK5(pathEscaped, path)
1460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1461 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosixEscaped_D0_SK5
1462#endif
1463 use pm_kind, only: SKG => SK5
1464 character(:,SKG) , intent(out) , allocatable :: pathEscaped
1465 character(*,SKG) , intent(in) :: path
1466 end subroutine
1467#endif
1468
1469#if SK4_ENABLED
1470 PURE module subroutine setPathPosixEscaped_D0_SK4(pathEscaped, path)
1471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1472 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosixEscaped_D0_SK4
1473#endif
1474 use pm_kind, only: SKG => SK4
1475 character(:,SKG) , intent(out) , allocatable :: pathEscaped
1476 character(*,SKG) , intent(in) :: path
1477 end subroutine
1478#endif
1479
1480#if SK3_ENABLED
1481 PURE module subroutine setPathPosixEscaped_D0_SK3(pathEscaped, path)
1482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1483 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosixEscaped_D0_SK3
1484#endif
1485 use pm_kind, only: SKG => SK3
1486 character(:,SKG) , intent(out) , allocatable :: pathEscaped
1487 character(*,SKG) , intent(in) :: path
1488 end subroutine
1489#endif
1490
1491#if SK2_ENABLED
1492 PURE module subroutine setPathPosixEscaped_D0_SK2(pathEscaped, path)
1493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1494 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosixEscaped_D0_SK2
1495#endif
1496 use pm_kind, only: SKG => SK2
1497 character(:,SKG) , intent(out) , allocatable :: pathEscaped
1498 character(*,SKG) , intent(in) :: path
1499 end subroutine
1500#endif
1501
1502#if SK1_ENABLED
1503 PURE module subroutine setPathPosixEscaped_D0_SK1(pathEscaped, path)
1504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1505 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosixEscaped_D0_SK1
1506#endif
1507 use pm_kind, only: SKG => SK1
1508 character(:,SKG) , intent(out) , allocatable :: pathEscaped
1509 character(*,SKG) , intent(in) :: path
1510 end subroutine
1511#endif
1512
1513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1514
1515 end interface
1516
1517!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1518
1577 interface getPathPosix
1578
1579 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1580
1581#if SK5_ENABLED
1582 PURE module function getPathPosix_D0_SK5(path, ignore) result(pathPosix)
1583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1584 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosix_D0_SK5
1585#endif
1586 use pm_kind, only: SKG => SK5
1587 character(*,SKG) , intent(in) :: path
1588 character(*,SKG) , intent(in) , optional :: ignore
1589 character(:,SKG) , allocatable :: pathPosix
1590 end function
1591#endif
1592
1593#if SK4_ENABLED
1594 PURE module function getPathPosix_D0_SK4(path, ignore) result(pathPosix)
1595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1596 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosix_D0_SK4
1597#endif
1598 use pm_kind, only: SKG => SK4
1599 character(*,SKG) , intent(in) :: path
1600 character(*,SKG) , intent(in) , optional :: ignore
1601 character(:,SKG) , allocatable :: pathPosix
1602 end function
1603#endif
1604
1605#if SK3_ENABLED
1606 PURE module function getPathPosix_D0_SK3(path, ignore) result(pathPosix)
1607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1608 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosix_D0_SK3
1609#endif
1610 use pm_kind, only: SKG => SK3
1611 character(*,SKG) , intent(in) :: path
1612 character(*,SKG) , intent(in) , optional :: ignore
1613 character(:,SKG) , allocatable :: pathPosix
1614 end function
1615#endif
1616
1617#if SK2_ENABLED
1618 PURE module function getPathPosix_D0_SK2(path, ignore) result(pathPosix)
1619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1620 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosix_D0_SK2
1621#endif
1622 use pm_kind, only: SKG => SK2
1623 character(*,SKG) , intent(in) :: path
1624 character(*,SKG) , intent(in) , optional :: ignore
1625 character(:,SKG) , allocatable :: pathPosix
1626 end function
1627#endif
1628
1629#if SK1_ENABLED
1630 PURE module function getPathPosix_D0_SK1(path, ignore) result(pathPosix)
1631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1632 !DEC$ ATTRIBUTES DLLEXPORT :: getPathPosix_D0_SK1
1633#endif
1634 use pm_kind, only: SKG => SK1
1635 character(*,SKG) , intent(in) :: path
1636 character(*,SKG) , intent(in) , optional :: ignore
1637 character(:,SKG) , allocatable :: pathPosix
1638 end function
1639#endif
1640
1641 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1642
1643 end interface
1644
1645!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1646
1726 interface setPathPosix
1727
1728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1729
1730#if SK5_ENABLED
1731 PURE module subroutine setPathPosix_D0_SK5(path, ignore)
1732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1733 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosix_D0_SK5
1734#endif
1735 use pm_kind, only: SKG => SK5
1736 character(:,SKG) , intent(inout) , allocatable :: path
1737 character(*,SKG) , intent(in) , optional :: ignore
1738 end subroutine
1739#endif
1740
1741#if SK4_ENABLED
1742 PURE module subroutine setPathPosix_D0_SK4(path, ignore)
1743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1744 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosix_D0_SK4
1745#endif
1746 use pm_kind, only: SKG => SK4
1747 character(:,SKG) , intent(inout) , allocatable :: path
1748 character(*,SKG) , intent(in) , optional :: ignore
1749 end subroutine
1750#endif
1751
1752#if SK3_ENABLED
1753 PURE module subroutine setPathPosix_D0_SK3(path, ignore)
1754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1755 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosix_D0_SK3
1756#endif
1757 use pm_kind, only: SKG => SK3
1758 character(:,SKG) , intent(inout) , allocatable :: path
1759 character(*,SKG) , intent(in) , optional :: ignore
1760 end subroutine
1761#endif
1762
1763#if SK2_ENABLED
1764 PURE module subroutine setPathPosix_D0_SK2(path, ignore)
1765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1766 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosix_D0_SK2
1767#endif
1768 use pm_kind, only: SKG => SK2
1769 character(:,SKG) , intent(inout) , allocatable :: path
1770 character(*,SKG) , intent(in) , optional :: ignore
1771 end subroutine
1772#endif
1773
1774#if SK1_ENABLED
1775 PURE module subroutine setPathPosix_D0_SK1(path, ignore)
1776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1777 !DEC$ ATTRIBUTES DLLEXPORT :: setPathPosix_D0_SK1
1778#endif
1779 use pm_kind, only: SKG => SK1
1780 character(:,SKG) , intent(inout) , allocatable :: path
1781 character(*,SKG) , intent(in) , optional :: ignore
1782 end subroutine
1783#endif
1784
1785 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1786
1787 end interface
1788
1789!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1790
1857 interface getPathWindows
1858
1859 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1860
1861#if SK5_ENABLED
1862 pure module function getPathWindows_D0_SK5(path, ignore) result(pathWindows)
1863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1864 !DEC$ ATTRIBUTES DLLEXPORT :: getPathWindows_D0_SK5
1865#endif
1866 use pm_kind, only: SKG => SK5
1867 character(*,SKG) , intent(in) :: path
1868 character(*,SKG) , intent(in) , optional :: ignore
1869 character(:,SKG) , allocatable :: pathWindows
1870 end function
1871#endif
1872
1873#if SK4_ENABLED
1874 pure module function getPathWindows_D0_SK4(path, ignore) result(pathWindows)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: getPathWindows_D0_SK4
1877#endif
1878 use pm_kind, only: SKG => SK4
1879 character(*,SKG) , intent(in) :: path
1880 character(*,SKG) , intent(in) , optional :: ignore
1881 character(:,SKG) , allocatable :: pathWindows
1882 end function
1883#endif
1884
1885#if SK3_ENABLED
1886 pure module function getPathWindows_D0_SK3(path, ignore) result(pathWindows)
1887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1888 !DEC$ ATTRIBUTES DLLEXPORT :: getPathWindows_D0_SK3
1889#endif
1890 use pm_kind, only: SKG => SK3
1891 character(*,SKG) , intent(in) :: path
1892 character(*,SKG) , intent(in) , optional :: ignore
1893 character(:,SKG) , allocatable :: pathWindows
1894 end function
1895#endif
1896
1897#if SK2_ENABLED
1898 pure module function getPathWindows_D0_SK2(path, ignore) result(pathWindows)
1899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1900 !DEC$ ATTRIBUTES DLLEXPORT :: getPathWindows_D0_SK2
1901#endif
1902 use pm_kind, only: SKG => SK2
1903 character(*,SKG) , intent(in) :: path
1904 character(*,SKG) , intent(in) , optional :: ignore
1905 character(:,SKG) , allocatable :: pathWindows
1906 end function
1907#endif
1908
1909#if SK1_ENABLED
1910 pure module function getPathWindows_D0_SK1(path, ignore) result(pathWindows)
1911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1912 !DEC$ ATTRIBUTES DLLEXPORT :: getPathWindows_D0_SK1
1913#endif
1914 use pm_kind, only: SKG => SK1
1915 character(*,SKG) , intent(in) :: path
1916 character(*,SKG) , intent(in) , optional :: ignore
1917 character(:,SKG) , allocatable :: pathWindows
1918 end function
1919#endif
1920
1921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1922
1923 end interface
1924
1925!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1926
1999 interface setPathWindows
2000
2001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2002
2003#if SK5_ENABLED
2004 pure module subroutine setPathWindows_D0_SK5(path, ignore)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: setPathWindows_D0_SK5
2007#endif
2008 use pm_kind, only: SKG => SK5
2009 character(:,SKG) , intent(inout) , allocatable :: path
2010 character(*,SKG) , intent(in) , optional :: ignore
2011 end subroutine
2012#endif
2013
2014#if SK4_ENABLED
2015 pure module subroutine setPathWindows_D0_SK4(path, ignore)
2016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2017 !DEC$ ATTRIBUTES DLLEXPORT :: setPathWindows_D0_SK4
2018#endif
2019 use pm_kind, only: SKG => SK4
2020 character(:,SKG) , intent(inout) , allocatable :: path
2021 character(*,SKG) , intent(in) , optional :: ignore
2022 end subroutine
2023#endif
2024
2025#if SK3_ENABLED
2026 pure module subroutine setPathWindows_D0_SK3(path, ignore)
2027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2028 !DEC$ ATTRIBUTES DLLEXPORT :: setPathWindows_D0_SK3
2029#endif
2030 use pm_kind, only: SKG => SK3
2031 character(:,SKG) , intent(inout) , allocatable :: path
2032 character(*,SKG) , intent(in) , optional :: ignore
2033 end subroutine
2034#endif
2035
2036#if SK2_ENABLED
2037 pure module subroutine setPathWindows_D0_SK2(path, ignore)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setPathWindows_D0_SK2
2040#endif
2041 use pm_kind, only: SKG => SK2
2042 character(:,SKG) , intent(inout) , allocatable :: path
2043 character(*,SKG) , intent(in) , optional :: ignore
2044 end subroutine
2045#endif
2046
2047#if SK1_ENABLED
2048 pure module subroutine setPathWindows_D0_SK1(path, ignore)
2049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2050 !DEC$ ATTRIBUTES DLLEXPORT :: setPathWindows_D0_SK1
2051#endif
2052 use pm_kind, only: SKG => SK1
2053 character(:,SKG) , intent(inout) , allocatable :: path
2054 character(*,SKG) , intent(in) , optional :: ignore
2055 end subroutine
2056#endif
2057
2058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2059
2060 end interface
2061
2062!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2063
2135 interface getPathHostNameIndex
2136
2137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2138
2139#if SK5_ENABLED
2140 pure module function getPathHostNameIndex_SK5(path, dirsep) result(index)
2141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2142 !DEC$ ATTRIBUTES DLLEXPORT :: getPathHostNameIndex_SK5
2143#endif
2144 use pm_kind, only: SKG => SK5
2145 character(*,SKG) , intent(in) :: path, dirsep
2146 integer(IK) :: index
2147 end function
2148#endif
2149
2150#if SK4_ENABLED
2151 pure module function getPathHostNameIndex_SK4(path, dirsep) result(index)
2152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2153 !DEC$ ATTRIBUTES DLLEXPORT :: getPathHostNameIndex_SK4
2154#endif
2155 use pm_kind, only: SKG => SK4
2156 character(*,SKG) , intent(in) :: path, dirsep
2157 integer(IK) :: index
2158 end function
2159#endif
2160
2161#if SK3_ENABLED
2162 pure module function getPathHostNameIndex_SK3(path, dirsep) result(index)
2163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2164 !DEC$ ATTRIBUTES DLLEXPORT :: getPathHostNameIndex_SK3
2165#endif
2166 use pm_kind, only: SKG => SK3
2167 character(*,SKG) , intent(in) :: path, dirsep
2168 integer(IK) :: index
2169 end function
2170#endif
2171
2172#if SK2_ENABLED
2173 pure module function getPathHostNameIndex_SK2(path, dirsep) result(index)
2174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2175 !DEC$ ATTRIBUTES DLLEXPORT :: getPathHostNameIndex_SK2
2176#endif
2177 use pm_kind, only: SKG => SK2
2178 character(*,SKG) , intent(in) :: path, dirsep
2179 integer(IK) :: index
2180 end function
2181#endif
2182
2183#if SK1_ENABLED
2184 pure module function getPathHostNameIndex_SK1(path, dirsep) result(index)
2185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2186 !DEC$ ATTRIBUTES DLLEXPORT :: getPathHostNameIndex_SK1
2187#endif
2188 use pm_kind, only: SKG => SK1
2189 character(*,SKG) , intent(in) :: path, dirsep
2190 integer(IK) :: index
2191 end function
2192#endif
2193
2194 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2195
2196 end interface
2197
2198!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2199
2247 interface hasDriveLetter
2248
2249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2250
2251#if SK5_ENABLED
2252 pure elemental module function hasDriveLetter_SK5(path) result(pathHasDriveLetter)
2253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2254 !DEC$ ATTRIBUTES DLLEXPORT :: hasDriveLetter_SK5
2255#endif
2256 use pm_kind, only: SKG => SK5
2257 character(*,SKG) , intent(in) :: path
2258 logical(LK) :: pathHasDriveLetter
2259 end function
2260#endif
2261
2262#if SK4_ENABLED
2263 pure elemental module function hasDriveLetter_SK4(path) result(pathHasDriveLetter)
2264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2265 !DEC$ ATTRIBUTES DLLEXPORT :: hasDriveLetter_SK4
2266#endif
2267 use pm_kind, only: SKG => SK4
2268 character(*,SKG) , intent(in) :: path
2269 logical(LK) :: pathHasDriveLetter
2270 end function
2271#endif
2272
2273#if SK3_ENABLED
2274 pure elemental module function hasDriveLetter_SK3(path) result(pathHasDriveLetter)
2275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2276 !DEC$ ATTRIBUTES DLLEXPORT :: hasDriveLetter_SK3
2277#endif
2278 use pm_kind, only: SKG => SK3
2279 character(*,SKG) , intent(in) :: path
2280 logical(LK) :: pathHasDriveLetter
2281 end function
2282#endif
2283
2284#if SK2_ENABLED
2285 pure elemental module function hasDriveLetter_SK2(path) result(pathHasDriveLetter)
2286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2287 !DEC$ ATTRIBUTES DLLEXPORT :: hasDriveLetter_SK2
2288#endif
2289 use pm_kind, only: SKG => SK2
2290 character(*,SKG) , intent(in) :: path
2291 logical(LK) :: pathHasDriveLetter
2292 end function
2293#endif
2294
2295#if SK1_ENABLED
2296 pure elemental module function hasDriveLetter_SK1(path) result(pathHasDriveLetter)
2297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2298 !DEC$ ATTRIBUTES DLLEXPORT :: hasDriveLetter_SK1
2299#endif
2300 use pm_kind, only: SKG => SK1
2301 character(*,SKG) , intent(in) :: path
2302 logical(LK) :: pathHasDriveLetter
2303 end function
2304#endif
2305
2306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2307
2308 end interface
2309
2310!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2311
2372 interface isPathAbsWindows
2373
2374 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2375
2376#if SK5_ENABLED
2377 pure elemental module function isPathAbsWindows_SK5(path) result(pathIsAbs)
2378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2379 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsWindows_SK5
2380#endif
2381 use pm_kind, only: SKG => SK5
2382 character(*,SKG) , intent(in) :: path
2383 logical(LK) :: pathIsAbs
2384 end function
2385#endif
2386
2387#if SK4_ENABLED
2388 pure elemental module function isPathAbsWindows_SK4(path) result(pathIsAbs)
2389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2390 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsWindows_SK4
2391#endif
2392 use pm_kind, only: SKG => SK4
2393 character(*,SKG) , intent(in) :: path
2394 logical(LK) :: pathIsAbs
2395 end function
2396#endif
2397
2398#if SK3_ENABLED
2399 pure elemental module function isPathAbsWindows_SK3(path) result(pathIsAbs)
2400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2401 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsWindows_SK3
2402#endif
2403 use pm_kind, only: SKG => SK3
2404 character(*,SKG) , intent(in) :: path
2405 logical(LK) :: pathIsAbs
2406 end function
2407#endif
2408
2409#if SK2_ENABLED
2410 pure elemental module function isPathAbsWindows_SK2(path) result(pathIsAbs)
2411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2412 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsWindows_SK2
2413#endif
2414 use pm_kind, only: SKG => SK2
2415 character(*,SKG) , intent(in) :: path
2416 logical(LK) :: pathIsAbs
2417 end function
2418#endif
2419
2420#if SK1_ENABLED
2421 pure elemental module function isPathAbsWindows_SK1(path) result(pathIsAbs)
2422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2423 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsWindows_SK1
2424#endif
2425 use pm_kind, only: SKG => SK1
2426 character(*,SKG) , intent(in) :: path
2427 logical(LK) :: pathIsAbs
2428 end function
2429#endif
2430
2431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2432
2433 end interface
2434
2435!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2436
2484 interface isPathAbsPosix
2485
2486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2487
2488#if SK5_ENABLED
2489 pure elemental module function isPathAbsPosix_SK5(path) result(pathIsAbs)
2490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2491 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsPosix_SK5
2492#endif
2493 use pm_kind, only: SKG => SK5
2494 character(*,SKG) , intent(in) :: path
2495 logical(LK) :: pathIsAbs
2496 end function
2497#endif
2498
2499#if SK4_ENABLED
2500 pure elemental module function isPathAbsPosix_SK4(path) result(pathIsAbs)
2501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2502 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsPosix_SK4
2503#endif
2504 use pm_kind, only: SKG => SK4
2505 character(*,SKG) , intent(in) :: path
2506 logical(LK) :: pathIsAbs
2507 end function
2508#endif
2509
2510#if SK3_ENABLED
2511 pure elemental module function isPathAbsPosix_SK3(path) result(pathIsAbs)
2512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2513 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsPosix_SK3
2514#endif
2515 use pm_kind, only: SKG => SK3
2516 character(*,SKG) , intent(in) :: path
2517 logical(LK) :: pathIsAbs
2518 end function
2519#endif
2520
2521#if SK2_ENABLED
2522 pure elemental module function isPathAbsPosix_SK2(path) result(pathIsAbs)
2523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2524 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsPosix_SK2
2525#endif
2526 use pm_kind, only: SKG => SK2
2527 character(*,SKG) , intent(in) :: path
2528 logical(LK) :: pathIsAbs
2529 end function
2530#endif
2531
2532#if SK1_ENABLED
2533 pure elemental module function isPathAbsPosix_SK1(path) result(pathIsAbs)
2534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2535 !DEC$ ATTRIBUTES DLLEXPORT :: isPathAbsPosix_SK1
2536#endif
2537 use pm_kind, only: SKG => SK1
2538 character(*,SKG) , intent(in) :: path
2539 logical(LK) :: pathIsAbs
2540 end function
2541#endif
2542
2543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2544
2545 end interface
2546
2547!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2548
2610 ! patterns because the operating system automatically and gracefully handles such cases.<br>
2641 interface getPathAbs
2642
2643 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2644
2645 impure module function getPathAbs(path) result(pathAbs)
2646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2647 !DEC$ ATTRIBUTES DLLEXPORT :: getPathAbs
2648#endif
2649 use pm_kind, only: SKG => SK
2650 character(*,SKG), intent(in) :: path
2651 character(:,SKG), allocatable :: pathAbs
2652 end function
2653
2654 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2655
2656 impure module function getPathAbsFailed(path, failed) result(pathAbs)
2657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2658 !DEC$ ATTRIBUTES DLLEXPORT :: getPathAbsFailed
2659#endif
2660 use pm_kind, only: SKG => SK
2661 character(*,SKG), intent(in) :: path
2662 logical(LK) , intent(out) :: failed
2663 character(:,SKG), allocatable :: pathAbs
2664 end function
2665
2666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2667
2668 impure module function getPathAbsFailedMsg(path, failed, errmsg) result(pathAbs)
2669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2670 !DEC$ ATTRIBUTES DLLEXPORT :: getPathAbsFailedMsg
2671#endif
2672 use pm_kind, only: SKG => SK
2673 character(*,SKG), intent(in) :: path
2674 logical(LK) , intent(out) :: failed
2675 character(*, SK), intent(inout) :: errmsg
2676 character(:,SKG), allocatable :: pathAbs
2677 end function
2678
2679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2680
2681 end interface
2682
2683!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2684
2759 interface getDirCurrent
2760
2761 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2762
2763 impure module function getDirCurrent() result(dirCurrent)
2764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2765 !DEC$ ATTRIBUTES DLLEXPORT :: getDirCurrent
2766#endif
2767 use pm_kind, only: SKG => SK
2768 character(:,SKG), allocatable :: dirCurrent
2769 end function
2770
2771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2772
2773 impure module function getDirCurrentFailed(failed) result(dirCurrent)
2774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2775 !DEC$ ATTRIBUTES DLLEXPORT :: getDirCurrentFailed
2776#endif
2777 use pm_kind, only: SKG => SK
2778 logical(LK) , intent(out) :: failed
2779 character(:,SKG), allocatable :: dirCurrent
2780 end function
2781
2782 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2783
2784 impure module function getDirCurrentFailedMsg(failed, errmsg) result(dirCurrent)
2785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2786 !DEC$ ATTRIBUTES DLLEXPORT :: getDirCurrentFailedMsg
2787#endif
2788 use pm_kind, only: SKG => SK
2789 logical(LK) , intent(out) :: failed
2790 character(*, SK), intent(inout) :: errmsg
2791 character(:,SKG), allocatable :: dirCurrent
2792 end function
2793
2794 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2795
2796 end interface
2797
2798!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2799
2879 interface getDirHome
2880
2881 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2882
2883 impure module function getDirHome(user, failed, errmsg) result(dirHome)
2884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2885 !DEC$ ATTRIBUTES DLLEXPORT :: getDirHome
2886#endif
2887 use pm_kind, only: SKG => SK
2888 character(*,SKG), intent(in) , optional :: user
2889 logical(LK) , intent(out) , optional :: failed
2890 character(*, SK), intent(inout) , optional :: errmsg
2891 character(:,SKG) , allocatable :: dirHome
2892 end function
2893
2894 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2895
2896 end interface
2897
2898!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2899
2987 interface getPathExpandedUser
2988
2989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2990
2991 impure module function getPathExpandedUser(path) result(pathExpandedUser)
2992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2993 !DEC$ ATTRIBUTES DLLEXPORT :: getPathExpandedUser
2994#endif
2995 use pm_kind, only: SKG => SK
2996 character(*, SK), intent(in) :: path
2997 character(:,SKG), allocatable :: pathExpandedUser
2998 end function
2999
3000 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3001
3002 impure module function getPathExpandedUserFailed(path, failed) result(pathExpandedUser)
3003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3004 !DEC$ ATTRIBUTES DLLEXPORT :: getPathExpandedUserFailed
3005#endif
3006 use pm_kind, only: SKG => SK
3007 character(*, SK), intent(in) :: path
3008 logical(LK) , intent(out) :: failed
3009 character(:,SKG), allocatable :: pathExpandedUser
3010 end function
3011
3012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3013
3014 impure module function getPathExpandedUserFailedMsg(path, failed, errmsg) result(pathExpandedUser)
3015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3016 !DEC$ ATTRIBUTES DLLEXPORT :: getPathExpandedUserFailedMsg
3017#endif
3018 use pm_kind, only: SKG => SK
3019 character(*, SK), intent(in) :: path
3020 logical(LK) , intent(out) :: failed
3021 character(*, SK), intent(inout) :: errmsg
3022 character(:,SKG), allocatable :: pathExpandedUser
3023 end function
3024
3025 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3026
3027 end interface
3028
3029!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3030
3085 interface isFailedChangeDir
3086
3087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3088
3089 impure module function isFailedChangeDir(dir) result(failed)
3090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3091 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedChangeDir
3092#endif
3093 use pm_kind, only: SKG => SK
3094 character(*,SKG), intent(in) :: dir
3095 logical(LK) :: failed
3096 end function
3097
3098 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3099
3100 end interface
3101
3102!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3103
3225 interface isFailedMakeDir
3226
3227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3228
3229 impure module function isFailedMakeDir(path, wait, ntry, errmsg) result(failed)
3230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3231 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedMakeDir
3232#endif
3233 use pm_kind, only: SKG => SK
3234 character(*,SKG) , intent(in) :: path
3235 logical(LK) , intent(in) , optional :: wait
3236 integer(IK) , intent(in) , optional :: ntry
3237 character(*, SK) , intent(inout) , optional :: errmsg
3238 logical(LK) :: failed
3239 end function
3240
3241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3242
3243 end interface
3244
3245!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3246
3308 interface isFailedMakeDirTemp
3309
3310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3311
3312 impure module function isFailedMakeDirTemp(path, parent, errmsg) result(failed)
3313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3314 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedMakeDirTemp
3315#endif
3316 use pm_kind, only: SKG => SK
3317 character(:,SKG) , intent(out) , allocatable :: path
3318 character(*,SKG) , intent(in) , optional :: parent
3319 character(*, SK) , intent(inout) , optional :: errmsg
3320 logical(LK) :: failed
3321 end function
3322
3323 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3324
3325 end interface
3326
3327!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3328
3484 interface isFailedCopy
3485 module function isFailedCopy(from, to, recursive, forced, wait, ntry, errmsg) result(failed)
3486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3487 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedCopy
3488#endif
3489 use pm_kind, only: SKG => SK
3490 character(*,SKG), intent(in) :: from, to
3491 logical(LK) , intent(in) , optional :: recursive
3492 logical(LK) , intent(in) , optional :: forced
3493 logical(LK) , intent(in) , optional :: wait
3494 integer(IK) , intent(in) , optional :: ntry
3495 character(*, SK), intent(inout) , optional :: errmsg
3496 logical(LK) :: failed
3497 end function
3498 end interface
3499
3500!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3501
3626 interface isFailedMove
3627 module function isFailedMove(from, to, forced, wait, ntry, errmsg) result(failed)
3628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3629 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedMove
3630#endif
3631 use pm_kind, only: SKG => SK
3632 character(*,SKG), intent(in) :: from, to
3633 logical(LK) , intent(in) , optional :: forced
3634 logical(LK) , intent(in) , optional :: wait
3635 integer(IK) , intent(in) , optional :: ntry
3636 character(*, SK), intent(inout) , optional :: errmsg
3637 logical(LK) :: failed
3638 end function
3639 end interface
3640
3641!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3642
3749 interface isFailedRemove
3750 recursive module function isFailedRemove(path, recursive, forced, wait, ntry, errmsg) result(failed)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedRemove
3753#endif
3754 use pm_kind, only: SKG => SK
3755 character(*,SKG), intent(in) :: path
3756 logical(LK) , intent(in) , optional :: recursive
3757 logical(LK) , intent(in) , optional :: forced
3758 logical(LK) , intent(in) , optional :: wait
3759 integer(IK) , intent(in) , optional :: ntry
3760 character(*, SK), intent(inout) , optional :: errmsg
3761 logical(LK) :: failed
3762 end function
3763 end interface
3764
3765!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3766
3843 interface getDirSep
3844
3845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3846
3847 impure module function getDirSep_SK(failed, errmsg) result(dirsep)
3848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3849 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSep_SK
3850#endif
3851 use pm_kind, only: SKG => SK
3852 logical(LK) , intent(out) , optional :: failed
3853 character(*, SK), intent(inout) , optional :: errmsg
3854 character(1,SKG) :: dirsep
3855 end function
3856
3857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3858
3859#if SK5_ENABLED
3860 impure module function getDirSep_SK5(mold, failed, errmsg) result(dirsep)
3861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3862 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSep_SK5
3863#endif
3864 use pm_kind, only: SKG => SK5
3865 character(1,SKG), intent(in) :: mold
3866 logical(LK) , intent(out) , optional :: failed
3867 character(*, SK), intent(inout) , optional :: errmsg
3868 character(1,SKG) :: dirsep
3869 end function
3870#endif
3871
3872#if SK4_ENABLED
3873 impure module function getDirSep_SK4(mold, failed, errmsg) result(dirsep)
3874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3875 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSep_SK4
3876#endif
3877 use pm_kind, only: SKG => SK4
3878 character(1,SKG), intent(in) :: mold
3879 logical(LK) , intent(out) , optional :: failed
3880 character(*, SK), intent(inout) , optional :: errmsg
3881 character(1,SKG) :: dirsep
3882 end function
3883#endif
3884
3885#if SK3_ENABLED
3886 impure module function getDirSep_SK3(mold, failed, errmsg) result(dirsep)
3887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3888 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSep_SK3
3889#endif
3890 use pm_kind, only: SKG => SK3
3891 character(1,SKG), intent(in) :: mold
3892 logical(LK) , intent(out) , optional :: failed
3893 character(*, SK), intent(inout) , optional :: errmsg
3894 character(1,SKG) :: dirsep
3895 end function
3896#endif
3897
3898#if SK2_ENABLED
3899 impure module function getDirSep_SK2(mold, failed, errmsg) result(dirsep)
3900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3901 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSep_SK2
3902#endif
3903 use pm_kind, only: SKG => SK2
3904 character(1,SKG), intent(in) :: mold
3905 logical(LK) , intent(out) , optional :: failed
3906 character(*, SK), intent(inout) , optional :: errmsg
3907 character(1,SKG) :: dirsep
3908 end function
3909#endif
3910
3911#if SK1_ENABLED
3912 impure module function getDirSep_SK1(mold, failed, errmsg) result(dirsep)
3913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3914 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSep_SK1
3915#endif
3916 use pm_kind, only: SKG => SK1
3917 character(1,SKG), intent(in) :: mold
3918 logical(LK) , intent(out) , optional :: failed
3919 character(*, SK), intent(inout) , optional :: errmsg
3920 character(1,SKG) :: dirsep
3921 end function
3922#endif
3923
3924 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3925
3926 end interface
3927
3928!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3929
4009 interface getDirSeps
4010
4011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4012
4013 impure module function getDirSeps_SK(failed, errmsg) result(dirseps)
4014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4015 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSeps_SK
4016#endif
4017 use pm_kind, only: SKG => SK
4018 logical(LK) , intent(out) , optional :: failed
4019 character(*, SK), intent(inout) , optional :: errmsg
4020 character(:,SKG), allocatable :: dirseps
4021 end function
4022
4023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4024
4025#if SK5_ENABLED
4026 impure module function getDirSeps_SK5(mold, failed, errmsg) result(dirseps)
4027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4028 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSeps_SK5
4029#endif
4030 use pm_kind, only: SKG => SK5
4031 character(1,SKG), intent(in) :: mold
4032 logical(LK) , intent(out) , optional :: failed
4033 character(*, SK), intent(inout) , optional :: errmsg
4034 character(:,SKG), allocatable :: dirseps
4035 end function
4036#endif
4037
4038#if SK4_ENABLED
4039 impure module function getDirSeps_SK4(mold, failed, errmsg) result(dirseps)
4040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4041 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSeps_SK4
4042#endif
4043 use pm_kind, only: SKG => SK4
4044 character(1,SKG), intent(in) :: mold
4045 logical(LK) , intent(out) , optional :: failed
4046 character(*, SK), intent(inout) , optional :: errmsg
4047 character(:,SKG), allocatable :: dirseps
4048 end function
4049#endif
4050
4051#if SK3_ENABLED
4052 impure module function getDirSeps_SK3(mold, failed, errmsg) result(dirseps)
4053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4054 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSeps_SK3
4055#endif
4056 use pm_kind, only: SKG => SK3
4057 character(1,SKG), intent(in) :: mold
4058 logical(LK) , intent(out) , optional :: failed
4059 character(*, SK), intent(inout) , optional :: errmsg
4060 character(:,SKG), allocatable :: dirseps
4061 end function
4062#endif
4063
4064#if SK2_ENABLED
4065 impure module function getDirSeps_SK2(mold, failed, errmsg) result(dirseps)
4066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4067 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSeps_SK2
4068#endif
4069 use pm_kind, only: SKG => SK2
4070 character(1,SKG), intent(in) :: mold
4071 logical(LK) , intent(out) , optional :: failed
4072 character(*, SK), intent(inout) , optional :: errmsg
4073 character(:,SKG), allocatable :: dirseps
4074 end function
4075#endif
4076
4077#if SK1_ENABLED
4078 impure module function getDirSeps_SK1(mold, failed, errmsg) result(dirseps)
4079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4080 !DEC$ ATTRIBUTES DLLEXPORT :: getDirSeps_SK1
4081#endif
4082 use pm_kind, only: SKG => SK1
4083 character(1,SKG), intent(in) :: mold
4084 logical(LK) , intent(out) , optional :: failed
4085 character(*, SK), intent(inout) , optional :: errmsg
4086 character(:,SKG), allocatable :: dirseps
4087 end function
4088#endif
4089
4090 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4091
4092 end interface
4093
4094!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4095
4165 interface getPathSep
4166
4167 impure module function getPathSep_SK(failed, errmsg) result(pathsep)
4168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4169 !DEC$ ATTRIBUTES DLLEXPORT :: getPathSep_SK
4170#endif
4171 use pm_kind, only: SKG => SK
4172 logical(LK) , intent(out) , optional :: failed
4173 character(*, SK), intent(inout) , optional :: errmsg
4174 character(1,SKG) :: pathsep
4175 end function
4176
4177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4178
4179#if SK5_ENABLED
4180 impure module function getPathSep_SK5(mold, failed, errmsg) result(pathsep)
4181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4182 !DEC$ ATTRIBUTES DLLEXPORT :: getPathSep_SK5
4183#endif
4184 use pm_kind, only: SKG => SK5
4185 character(1,SKG), intent(in) :: mold
4186 logical(LK) , intent(out) , optional :: failed
4187 character(*, SK), intent(inout) , optional :: errmsg
4188 character(1,SKG) :: pathsep
4189 end function
4190#endif
4191
4192#if SK4_ENABLED
4193 impure module function getPathSep_SK4(mold, failed, errmsg) result(pathsep)
4194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4195 !DEC$ ATTRIBUTES DLLEXPORT :: getPathSep_SK4
4196#endif
4197 use pm_kind, only: SKG => SK4
4198 character(1,SKG), intent(in) :: mold
4199 logical(LK) , intent(out) , optional :: failed
4200 character(*, SK), intent(inout) , optional :: errmsg
4201 character(1,SKG) :: pathsep
4202 end function
4203#endif
4204
4205#if SK3_ENABLED
4206 impure module function getPathSep_SK3(mold, failed, errmsg) result(pathsep)
4207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4208 !DEC$ ATTRIBUTES DLLEXPORT :: getPathSep_SK3
4209#endif
4210 use pm_kind, only: SKG => SK3
4211 character(1,SKG), intent(in) :: mold
4212 logical(LK) , intent(out) , optional :: failed
4213 character(*, SK), intent(inout) , optional :: errmsg
4214 character(1,SKG) :: pathsep
4215 end function
4216#endif
4217
4218#if SK2_ENABLED
4219 impure module function getPathSep_SK2(mold, failed, errmsg) result(pathsep)
4220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4221 !DEC$ ATTRIBUTES DLLEXPORT :: getPathSep_SK2
4222#endif
4223 use pm_kind, only: SKG => SK2
4224 character(1,SKG), intent(in) :: mold
4225 logical(LK) , intent(out) , optional :: failed
4226 character(*, SK), intent(inout) , optional :: errmsg
4227 character(1,SKG) :: pathsep
4228 end function
4229#endif
4230
4231#if SK1_ENABLED
4232 impure module function getPathSep_SK1(mold, failed, errmsg) result(pathsep)
4233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4234 !DEC$ ATTRIBUTES DLLEXPORT :: getPathSep_SK1
4235#endif
4236 use pm_kind, only: SKG => SK1
4237 character(1,SKG), intent(in) :: mold
4238 logical(LK) , intent(out) , optional :: failed
4239 character(*, SK), intent(inout) , optional :: errmsg
4240 character(1,SKG) :: pathsep
4241 end function
4242#endif
4243
4244 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4245
4246 end interface
4247
4248!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4249
4367 interface getPathNew
4368 module function getPathNew(dir, prefix, sep, ext, pid, failed) result(pathNew)
4369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4370 !DEC$ ATTRIBUTES DLLEXPORT :: getPathNew
4371#endif
4372 use pm_kind, only: SKG => SK
4373 character(*,SKG) , intent(in) , optional :: dir, prefix, sep, ext
4374 integer(IK) , intent(in) , optional :: pid
4375 logical(LK) , intent(out) , optional :: failed
4376 character(:,SKG) , allocatable :: pathNew
4377 end function
4378 end interface
4379
4380!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4381
4498 interface getPathTemp
4499 module function getPathTemp(prefix, sep, ext, pid, failed) result(pathTemp)
4500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4501 !DEC$ ATTRIBUTES DLLEXPORT :: getPathTemp
4502#endif
4503 use pm_kind, only: SKG => SK
4504 character(*,SKG) , intent(in) , optional :: prefix, sep, ext
4505 integer(IK) , intent(in) , optional :: pid
4506 logical(LK) , intent(out) , optional :: failed
4507 character(:,SKG) , allocatable :: pathTemp
4508 end function
4509 end interface
4510
4511!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4512
4574 interface getPathJoined
4575
4576 impure module function getPathJoined(p1, p2) result(pathJoined)
4577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4578 !DEC$ ATTRIBUTES DLLEXPORT :: getPathJoined
4579#endif
4580 use pm_kind, only: SKG => SK
4581 character(*,SKG) , intent(in) :: p1, p2
4582 character(:,SKG) , allocatable :: pathJoined
4583 end function
4584
4585 impure module function getPathJoinedFailed(p1, p2, failed, errmsg) result(pathJoined)
4586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4587 !DEC$ ATTRIBUTES DLLEXPORT :: getPathJoinedFailed
4588#endif
4589 use pm_kind, only: SKG => SK
4590 character(*,SKG) , intent(in) :: p1, p2
4591 logical(LK) , intent(out) :: failed
4592 character(*, SK) , intent(inout) , optional :: errmsg
4593 character(:,SKG) , allocatable :: pathJoined
4594 end function
4595
4596 end interface
4597
4598!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4599
4672 interface isFile
4673
4674 impure elemental module function isFileDD(path) result(pathIsFile)
4675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4676 !DEC$ ATTRIBUTES DLLEXPORT :: isFileDD
4677#endif
4678 use pm_kind, only: SKG => SK
4679 character(*,SKG), intent(in) :: path
4680 logical(LK) :: pathIsFile
4681 end function
4682
4683 impure elemental module function isFileII(path, iostat, iomsg) result(pathIsFile)
4684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4685 !DEC$ ATTRIBUTES DLLEXPORT :: isFileII
4686#endif
4687 use pm_kind, only: SKG => SK
4688 character(*,SKG), intent(in) :: path
4689 logical(LK) :: pathIsFile
4690 integer(IK) , intent(out) :: iostat
4691 character(*, SK), intent(inout) , optional :: iomsg
4692 end function
4693
4694 end interface
4695
4696!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4697
4771 interface isDir
4772
4773 impure elemental module function isDirDD(path) result(pathIsDir)
4774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4775 !DEC$ ATTRIBUTES DLLEXPORT :: isDirDD
4776#endif
4777 use pm_kind, only: SKG => SK
4778 character(*,SKG), intent(in) :: path
4779 logical(LK) :: pathIsDir
4780 end function
4781
4782 impure elemental module function isDirII(path, iostat, iomsg) result(pathIsDir)
4783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4784 !DEC$ ATTRIBUTES DLLEXPORT :: isDirII
4785#endif
4786 use pm_kind, only: SKG => SK
4787 character(*,SKG), intent(in) :: path
4788 integer(IK) , intent(out) :: iostat
4789 character(*, SK), intent(inout) , optional :: iomsg
4790 logical(LK) :: pathIsDir
4791 end function
4792
4793 end interface
4794
4795!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4796
4859 interface isExtant
4860
4861 impure elemental module function isExtantDD(path) result(extant)
4862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4863 !DEC$ ATTRIBUTES DLLEXPORT :: isExtantDD
4864#endif
4865 use pm_kind, only: SKG => SK
4866 character(*,SKG), intent(in) :: path
4867 logical(LK) :: extant
4868 end function
4869
4870 impure elemental module function isExtantII(path, iostat, iomsg) result(extant)
4871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4872 !DEC$ ATTRIBUTES DLLEXPORT :: isExtantII
4873#endif
4874 use pm_kind, only: SKG => SK
4875 character(*,SKG), intent(in) :: path
4876 integer(IK) , intent(out) :: iostat
4877 character(*, SK), intent(inout) , optional :: iomsg
4878 logical(LK) :: extant
4879 end function
4880
4881 end interface
4882
4883!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4884
4955 interface getPathVerbatimCMD
4956
4957 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4958
4959#if SK5_ENABLED
4960 PURE module function getPathVerbatimCMD_SK5(path) result(pathVerbatim)
4961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4962 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimCMD_SK5
4963#endif
4964 use pm_kind, only: SKG => SK5
4965 character(*,SKG) , intent(in) :: path
4966 character(:,SKG) , allocatable :: pathVerbatim
4967 end function
4968#endif
4969
4970#if SK4_ENABLED
4971 PURE module function getPathVerbatimCMD_SK4(path) result(pathVerbatim)
4972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4973 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimCMD_SK4
4974#endif
4975 use pm_kind, only: SKG => SK4
4976 character(*,SKG) , intent(in) :: path
4977 character(:,SKG) , allocatable :: pathVerbatim
4978 end function
4979#endif
4980
4981#if SK3_ENABLED
4982 PURE module function getPathVerbatimCMD_SK3(path) result(pathVerbatim)
4983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4984 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimCMD_SK3
4985#endif
4986 use pm_kind, only: SKG => SK3
4987 character(*,SKG) , intent(in) :: path
4988 character(:,SKG) , allocatable :: pathVerbatim
4989 end function
4990#endif
4991
4992#if SK2_ENABLED
4993 PURE module function getPathVerbatimCMD_SK2(path) result(pathVerbatim)
4994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4995 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimCMD_SK2
4996#endif
4997 use pm_kind, only: SKG => SK2
4998 character(*,SKG) , intent(in) :: path
4999 character(:,SKG) , allocatable :: pathVerbatim
5000 end function
5001#endif
5002
5003#if SK1_ENABLED
5004 PURE module function getPathVerbatimCMD_SK1(path) result(pathVerbatim)
5005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5006 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimCMD_SK1
5007#endif
5008 use pm_kind, only: SKG => SK1
5009 character(*,SKG) , intent(in) :: path
5010 character(:,SKG) , allocatable :: pathVerbatim
5011 end function
5012#endif
5013
5014 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5015
5016 end interface
5017
5018!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5019
5077 interface getPathVerbatimPowerShell
5078
5079 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5080
5081#if SK5_ENABLED
5082 PURE module function getPathVerbatimPowerShell_SK5(path) result(pathVerbatim)
5083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5084 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPowerShell_SK5
5085#endif
5086 use pm_kind, only: SKG => SK5
5087 character(*,SKG) , intent(in) :: path
5088 character(:,SKG) , allocatable :: pathVerbatim
5089 end function
5090#endif
5091
5092#if SK4_ENABLED
5093 PURE module function getPathVerbatimPowerShell_SK4(path) result(pathVerbatim)
5094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5095 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPowerShell_SK4
5096#endif
5097 use pm_kind, only: SKG => SK4
5098 character(*,SKG) , intent(in) :: path
5099 character(:,SKG) , allocatable :: pathVerbatim
5100 end function
5101#endif
5102
5103#if SK3_ENABLED
5104 PURE module function getPathVerbatimPowerShell_SK3(path) result(pathVerbatim)
5105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5106 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPowerShell_SK3
5107#endif
5108 use pm_kind, only: SKG => SK3
5109 character(*,SKG) , intent(in) :: path
5110 character(:,SKG) , allocatable :: pathVerbatim
5111 end function
5112#endif
5113
5114#if SK2_ENABLED
5115 PURE module function getPathVerbatimPowerShell_SK2(path) result(pathVerbatim)
5116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5117 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPowerShell_SK2
5118#endif
5119 use pm_kind, only: SKG => SK2
5120 character(*,SKG) , intent(in) :: path
5121 character(:,SKG) , allocatable :: pathVerbatim
5122 end function
5123#endif
5124
5125#if SK1_ENABLED
5126 PURE module function getPathVerbatimPowerShell_SK1(path) result(pathVerbatim)
5127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5128 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPowerShell_SK1
5129#endif
5130 use pm_kind, only: SKG => SK1
5131 character(*,SKG) , intent(in) :: path
5132 character(:,SKG) , allocatable :: pathVerbatim
5133 end function
5134#endif
5135
5136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5137
5138 end interface
5139
5140!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5141
5199 interface getPathVerbatimPosix
5200
5201 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5202
5203#if SK5_ENABLED
5204 PURE module function getPathVerbatimPosix_SK5(path) result(pathVerbatim)
5205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5206 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPosix_SK5
5207#endif
5208 use pm_kind, only: SKG => SK5
5209 character(*,SKG) , intent(in) :: path
5210 character(:,SKG) , allocatable :: pathVerbatim
5211 end function
5212#endif
5213
5214#if SK4_ENABLED
5215 PURE module function getPathVerbatimPosix_SK4(path) result(pathVerbatim)
5216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5217 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPosix_SK4
5218#endif
5219 use pm_kind, only: SKG => SK4
5220 character(*,SKG) , intent(in) :: path
5221 character(:,SKG) , allocatable :: pathVerbatim
5222 end function
5223#endif
5224
5225#if SK3_ENABLED
5226 PURE module function getPathVerbatimPosix_SK3(path) result(pathVerbatim)
5227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5228 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPosix_SK3
5229#endif
5230 use pm_kind, only: SKG => SK3
5231 character(*,SKG) , intent(in) :: path
5232 character(:,SKG) , allocatable :: pathVerbatim
5233 end function
5234#endif
5235
5236#if SK2_ENABLED
5237 PURE module function getPathVerbatimPosix_SK2(path) result(pathVerbatim)
5238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5239 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPosix_SK2
5240#endif
5241 use pm_kind, only: SKG => SK2
5242 character(*,SKG) , intent(in) :: path
5243 character(:,SKG) , allocatable :: pathVerbatim
5244 end function
5245#endif
5246
5247#if SK1_ENABLED
5248 PURE module function getPathVerbatimPosix_SK1(path) result(pathVerbatim)
5249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5250 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimPosix_SK1
5251#endif
5252 use pm_kind, only: SKG => SK1
5253 character(*,SKG) , intent(in) :: path
5254 character(:,SKG) , allocatable :: pathVerbatim
5255 end function
5256#endif
5257
5258 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5259
5260 end interface
5261
5262!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5263
5322 interface getPathVerbatimFish
5323
5324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5325
5326#if SK5_ENABLED
5327 PURE module function getPathVerbatimFish_SK5(path) result(pathVerbatim)
5328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5329 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimFish_SK5
5330#endif
5331 use pm_kind, only: SKG => SK5
5332 character(*,SKG) , intent(in) :: path
5333 character(:,SKG) , allocatable :: pathVerbatim
5334 end function
5335#endif
5336
5337#if SK4_ENABLED
5338 PURE module function getPathVerbatimFish_SK4(path) result(pathVerbatim)
5339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5340 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimFish_SK4
5341#endif
5342 use pm_kind, only: SKG => SK4
5343 character(*,SKG) , intent(in) :: path
5344 character(:,SKG) , allocatable :: pathVerbatim
5345 end function
5346#endif
5347
5348#if SK3_ENABLED
5349 PURE module function getPathVerbatimFish_SK3(path) result(pathVerbatim)
5350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5351 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimFish_SK3
5352#endif
5353 use pm_kind, only: SKG => SK3
5354 character(*,SKG) , intent(in) :: path
5355 character(:,SKG) , allocatable :: pathVerbatim
5356 end function
5357#endif
5358
5359#if SK2_ENABLED
5360 PURE module function getPathVerbatimFish_SK2(path) result(pathVerbatim)
5361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5362 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimFish_SK2
5363#endif
5364 use pm_kind, only: SKG => SK2
5365 character(*,SKG) , intent(in) :: path
5366 character(:,SKG) , allocatable :: pathVerbatim
5367 end function
5368#endif
5369
5370#if SK1_ENABLED
5371 PURE module function getPathVerbatimFish_SK1(path) result(pathVerbatim)
5372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5373 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatimFish_SK1
5374#endif
5375 use pm_kind, only: SKG => SK1
5376 character(*,SKG) , intent(in) :: path
5377 character(:,SKG) , allocatable :: pathVerbatim
5378 end function
5379#endif
5380
5381 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5382
5383 end interface
5384
5385!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5386
5454 interface getPathVerbatim
5455
5456 impure module function getPathVerbatim(path, failed, errmsg) result(pathVerbatim)
5457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5458 !DEC$ ATTRIBUTES DLLEXPORT :: getPathVerbatim
5459#endif
5460 use pm_kind, only: SKG => SK
5461 character(*,SKG) , intent(in) :: path
5462 logical(LK) , intent(out) , optional :: failed
5463 character(*, SK) , intent(inout) , optional :: errmsg
5464 character(:,SKG) , allocatable :: pathVerbatim
5465 end function
5466
5467 end interface
5468
5469!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5470
5561 interface getIndexDirName
5562
5563 PURE elemental module function getIndexDirNameDef(path, dirsep) result(index)
5564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5565 !DEC$ ATTRIBUTES DLLEXPORT :: getIndexDirNameDef
5566#endif
5567 use pm_kind, only: SKG => SK
5568 character(*,SKG) , intent(in) :: path
5569 character(*,SKG) , intent(in) :: dirsep
5570 integer(IK) :: index
5571 end function
5572
5573 PURE elemental module function getIndexDirNamePM(path, dirsep, style) result(index)
5574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5575 !DEC$ ATTRIBUTES DLLEXPORT :: getIndexDirNamePM
5576#endif
5577 use pm_kind, only: SKG => SK
5578 character(*,SKG) , intent(in) :: path
5579 character(*,SKG) , intent(in) :: dirsep
5580 type(verbatim_type) , intent(in) :: style
5581 integer(IK) :: index
5582 end function
5583
5584 end interface
5585
5586!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5587
5666 interface getIndexBaseName
5667
5668 PURE elemental module function getIndexBaseNameDef(path, dirsep) result(index)
5669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5670 !DEC$ ATTRIBUTES DLLEXPORT :: getIndexBaseNameDef
5671#endif
5672 use pm_kind, only: SKG => SK
5673 character(*,SKG) , intent(in) :: path
5674 character(*,SKG) , intent(in) :: dirsep
5675 integer(IK) :: index
5676 end function
5677
5678 PURE elemental module function getIndexBaseNamePM(path, dirsep, style) result(index)
5679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5680 !DEC$ ATTRIBUTES DLLEXPORT :: getIndexBaseNamePM
5681#endif
5682 use pm_kind, only: SKG => SK
5683 character(*,SKG) , intent(in) :: path
5684 character(*,SKG) , intent(in) :: dirsep
5685 type(verbatim_type) , intent(in) :: style
5686 integer(IK) :: index
5687 end function
5688
5689 end interface
5690
5691!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5692
5758 interface getIndexExtName
5759 PURE elemental module function getIndexExtName(path, dirsep) result(indexExtName)
5760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5761 !DEC$ ATTRIBUTES DLLEXPORT :: getIndexExtName
5762#endif
5763 use pm_kind, only: SKG => SK
5764 character(*,SKG), intent(in) :: path
5765 character(*,SKG), intent(in) :: dirsep
5766 integer(IK) :: indexExtName
5767 end function
5768 end interface
5769
5770!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5771
5874 interface getDirName
5875
5876 PURE module function getDirNameDef(path, dirsep) result(dirname)
5877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5878 !DEC$ ATTRIBUTES DLLEXPORT :: getDirNameDef
5879#endif
5880 character(*, SK) , intent(in) :: path
5881 character(*, SK) , intent(in) :: dirsep
5882 character(:, SK) , allocatable :: dirname
5883 end function
5884
5885 PURE module function getDirNamePM(path, dirsep, style) result(dirname)
5886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5887 !DEC$ ATTRIBUTES DLLEXPORT :: getDirNamePM
5888#endif
5889 character(*, SK) , intent(in) :: path
5890 character(*, SK) , intent(in) :: dirsep
5891 type(verbatim_type) , intent(in) :: style
5892 character(:, SK) , allocatable :: dirname
5893 end function
5894
5895 end interface
5896
5897!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5898
5961 interface getExtName
5962 PURE module function getExtName(path, dirsep) result(extname)
5963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5964 !DEC$ ATTRIBUTES DLLEXPORT :: getExtName
5965#endif
5966 use pm_kind, only: SKG => SK
5967 character(*,SKG), intent(in) :: path
5968 character(*,SKG), intent(in) :: dirsep
5969 character(:,SKG), allocatable :: extname
5970 end function
5971 end interface
5972
5973!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5974
6050 interface getBaseName
6051
6052 PURE module function getBaseNameDef(path, dirsep) result(basename)
6053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6054 !DEC$ ATTRIBUTES DLLEXPORT :: getBaseNameDef
6055#endif
6056 use pm_kind, only: SKG => SK
6057 character(*,SKG) , intent(in) :: path
6058 character(*,SKG) , intent(in) :: dirsep
6059 character(:,SKG) , allocatable :: basename
6060 end function
6061
6062 PURE module function getBaseNamePM(path, dirsep, style) result(basename)
6063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6064 !DEC$ ATTRIBUTES DLLEXPORT :: getBaseNamePM
6065#endif
6066 use pm_kind, only: SKG => SK
6067 character(*,SKG) , intent(in) :: path
6068 character(*,SKG) , intent(in) :: dirsep
6069 type(verbatim_type) , intent(in) :: style
6070 character(:,SKG) , allocatable :: basename
6071 end function
6072
6073 end interface
6074
6075!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6076
6140 interface getFileName
6141 PURE module function getFileName(path, dirsep) result(filename)
6142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6143 !DEC$ ATTRIBUTES DLLEXPORT :: getFileName
6144#endif
6145 use pm_kind, only: SKG => SK
6146 character(*,SKG), intent(in) :: path
6147 character(*,SKG), intent(in) :: dirsep
6148 character(:,SKG), allocatable :: filename
6149 end function
6150 end interface
6151
6152!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6153
6227 interface getPathMatch
6228 module function getPathMatch(key, sep, inc, failed, errmsg) result(list)
6229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6230 !DEC$ ATTRIBUTES DLLEXPORT :: getPathMatch
6231#endif
6232 use pm_kind, only: SKG => SK
6233 use pm_container, only: css_type
6234 character(*,SKG), intent(in) , optional :: key
6235 character(*,SKG), intent(in) , optional :: inc
6236 character(1,SKG), intent(in) , optional :: sep
6237 logical(LK) , intent(out) , optional :: failed
6238 character(*,SKG), intent(inout) , optional :: errmsg
6239 type(css_type) , allocatable :: list(:)
6240 end function
6241 end interface
6242
6243!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6244
6338 interface setPathMatch
6339 module subroutine setPathMatch(key, inc, sep, list, lenList) !BIND2("setPathMatch")
6340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6341 !DEC$ ATTRIBUTES DLLEXPORT :: setPathMatch
6342#endif
6343 use pm_kind, only: SKG => SK
6344 character(*,SKG), intent(in) :: key
6345 character(*,SKG), intent(in) :: inc
6346 character(1,SKG), intent(in) :: sep
6347 character(*,SKG), intent(out) :: list
6348 integer(IK) , intent(inout) :: lenList
6349 end subroutine
6350 end interface
6351
6352!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6353
6354end module pm_sysPath ! LCOV_EXCL_LINE
6355
6356#undef MAX_PATH
6357#undef MAX_NAME
6358#undef SEP_PATH
6359#undef BIND2
pm_sysPath::getBaseName
Generate and return the basename part of the input path (i.e., all characters that appear after the l...
Definition: pm_sysPath.F90:6050
pm_sysPath::getDirCurrent
Generate and return the Current Working Directory (CWD) of the runtime shell.
Definition: pm_sysPath.F90:2759
pm_sysPath::getDirHome
Generate and return the Home Directory of the current user in the current runtime shell.
Definition: pm_sysPath.F90:2879
pm_sysPath::getDirName
Generate and return the dirname (directory name) part of the input path.
Definition: pm_sysPath.F90:5874
pm_sysPath::getDirSep
Generate and return the directory separator symbol based on the runtime system shell.
Definition: pm_sysPath.F90:3843
pm_sysPath::getDirSeps
Generate and return all the directory separator symbols supported by the current runtime operating sy...
Definition: pm_sysPath.F90:4009
pm_sysPath::getExtName
Generate and return the file extension part of the input path (including the leading dot in the file ...
Definition: pm_sysPath.F90:5961
pm_sysPath::getFileName
Generate and return the filename part of the input path.
Definition: pm_sysPath.F90:6140
pm_sysPath::getIndexBaseName
Generate and return the index of the first character of the basename part of the input path.
Definition: pm_sysPath.F90:5666
pm_sysPath::getIndexDirName
Generate and return the index of the last character of the dirname (directory part) of the input path...
Definition: pm_sysPath.F90:5561
pm_sysPath::getIndexExtName
Generate and return the index of the first character of the file extension of the input path (if any ...
Definition: pm_sysPath.F90:5758
pm_sysPath::getPathAbs
Generate and return the absolute path corresponding to the input (potentially relative) path.
Definition: pm_sysPath.F90:2641
pm_sysPath::getPathExpandedUser
Generate and return the input path wherein the initial tilde character (~) is expanded to the home di...
Definition: pm_sysPath.F90:2987
pm_sysPath::getPathHostNameIndex
Generate and return the index of the last character of the hostname part of the input UNC path.
Definition: pm_sysPath.F90:2135
pm_sysPath::getPathJoined
Generate and return the path that results from joining the two input path parts, separated by the spe...
Definition: pm_sysPath.F90:4574
pm_sysPath::getPathMatch
Generate and return a list of directory paths matching a requested system application.
Definition: pm_sysPath.F90:6227
pm_sysPath::getPathNew
Generate and return a unique (directory or file) path name in the specified directory or the default ...
Definition: pm_sysPath.F90:4367
pm_sysPath::getPathPosixEscaped
Generate and return a POSIX standard (Unix-like) version of the input POSIX-style-separated path wher...
Definition: pm_sysPath.F90:1340
pm_sysPath::getPathPosix
Generate and return a POSIX-standard (Unix-like) path from the input Windows-style path.
Definition: pm_sysPath.F90:1577
pm_sysPath::getPathSep
Generate and return the path separator character used by the runtime processor shell for separating p...
Definition: pm_sysPath.F90:4165
pm_sysPath::getPathTemp
Generate and return a unique (directory or file) path name in the temporary directory of the system o...
Definition: pm_sysPath.F90:4498
pm_sysPath::getPathVerbatimCMD
Generate and return a path quoted with double quotation marks where all instances of double quotes w...
Definition: pm_sysPath.F90:4955
pm_sysPath::getPathVerbatimFish
Generate and return a path quoted with single quotation marks where all instances of backslashes with...
Definition: pm_sysPath.F90:5322
pm_sysPath::getPathVerbatimPosix
Generate and return a path quoted with single quotation marks where all instances of single quotes w...
Definition: pm_sysPath.F90:5199
pm_sysPath::getPathVerbatimPowerShell
Generate and return a path quoted with single quotation marks where all instances of single quotes w...
Definition: pm_sysPath.F90:5077
pm_sysPath::getPathVerbatim
Generate and return a path quoted with single or double quotation marks whose metacharacters are also...
Definition: pm_sysPath.F90:5454
pm_sysPath::getPathWindows
Generate and return a normalized Windows-style path from the input POSIX-style or Windows-style path,...
Definition: pm_sysPath.F90:1857
pm_sysPath::glob
Generate and return the result of globing the specified input pattern.
Definition: pm_sysPath.F90:954
pm_sysPath::hasDriveLetter
Generate and return .true. is the input Windows-style path begins with a drive-letter pattern like C:...
Definition: pm_sysPath.F90:2247
pm_sysPath::isDir
Generate and return .true. is the input path is an extant system directory, otherwise return ....
Definition: pm_sysPath.F90:4771
pm_sysPath::isExtant
Generate and return .true. if the input path (whether a file or a directory) exists and ....
Definition: pm_sysPath.F90:4859
pm_sysPath::isFailedChangeDir
Generate and return .true. if the attempt to set the current working directory to the input dir fails...
Definition: pm_sysPath.F90:3085
pm_sysPath::isFailedCopy
Generate and return .true. if the requested copy action failed, otherwise return ....
Definition: pm_sysPath.F90:3484
pm_sysPath::isFailedGlob
Generate and return .true. if the attempt to globing the specified input pattern fails,...
Definition: pm_sysPath.F90:1104
pm_sysPath::isFailedList
Generate and return .true. if the attempt to fetch the directory listing of the specified input path ...
Definition: pm_sysPath.F90:1257
pm_sysPath::isFailedMakeDirTemp
Generate and return .true. if the attempt to create a temporary directory fails. Otherwise return ....
Definition: pm_sysPath.F90:3308
pm_sysPath::isFailedMakeDir
Generate and return .true. if the attempt to create the requested directory path fails,...
Definition: pm_sysPath.F90:3225
pm_sysPath::isFailedMove
Generate and return .true. if the requested move action failed, otherwise return ....
Definition: pm_sysPath.F90:3626
pm_sysPath::isFailedRemove
Generate and return .true. if the requested path removal action from the file system failed,...
Definition: pm_sysPath.F90:3749
pm_sysPath::isFile
Generate and return .true. is the input path is a file (not a directory), otherwise return ....
Definition: pm_sysPath.F90:4672
pm_sysPath::isPathAbsPosix
Generate and return .true. is the input path is an absolute POSIX path (whether existing or virtual),...
Definition: pm_sysPath.F90:2484
pm_sysPath::isPathAbsWindows
Generate and return .true. is the input path is an absolute Windows path (whether existing or virtual...
Definition: pm_sysPath.F90:2372
pm_sysPath::ls
Generate and return a list of all paths within the specified input path.
Definition: pm_sysPath.F90:882
pm_sysPath::setPathMatch
Return a list of directory paths matching a requested system application.
Definition: pm_sysPath.F90:6338
pm_sysPath::setPathPosixEscaped
Return a POSIX standard (Unix-like) version of the input POSIX-style-separated path where all the rel...
Definition: pm_sysPath.F90:1454
pm_sysPath::setPathPosix
Return a POSIX-standard (Unix-like) path from the input (Windows-style) path.
Definition: pm_sysPath.F90:1726
pm_sysPath::setPathWindows
Normalize the input POSIX-style or Windows-style path to a Windows-style path, such that it conforms ...
Definition: pm_sysPath.F90:1999
pm_container
This module contains the derived types for generating allocatable containers of scalar,...
Definition: pm_container.F90:113
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336
pm_sysPath
This module contains classes and procedures for manipulating system file/folder paths.
Definition: pm_sysPath.F90:274
pm_sysPath::PATH_SEP_WINDOWS
character(*, SK), parameter PATH_SEP_WINDOWS
The scalar character constant of default kind SK, containing the preferred directory separator charac...
Definition: pm_sysPath.F90:320
pm_sysPath::PATH_SEP_ALL
character(*, SK), parameter PATH_SEP_ALL
The scalar character constant of default kind SK, containing the directory separator characters recog...
Definition: pm_sysPath.F90:328
pm_sysPath::PATH_SEP_POSIX
character(*, SK), parameter PATH_SEP_POSIX
The scalar character constant of default kind SK, containing the preferred directory separator charac...
Definition: pm_sysPath.F90:324
pm_sysPath::ASCII_CONTROL_STR
character(*, SK), parameter ASCII_CONTROL_STR
The scalar character of default kind SK containing the ASCII control characters that need special car...
Definition: pm_sysPath.F90:448
pm_sysPath::POSIX_RESERVED_CHR
character(1, SK), dimension(*), parameter POSIX_RESERVED_CHR
The vector character constant of default kind SK of len = 1 containing the individual characters in P...
Definition: pm_sysPath.F90:676
pm_sysPath::verbatim
type(verbatim_type), parameter verbatim
The scalar constant of type verbatim_type that can be used to signify the verbatim interpretation of ...
Definition: pm_sysPath.F90:367
pm_sysPath::WINDOWS_CMD_METACHAR_STR
character(*, SK), parameter WINDOWS_CMD_METACHAR_STR
The scalar character constant of default kind SK, containing the Windows CMD shell metacharacters.
Definition: pm_sysPath.F90:529
pm_sysPath::WIN32_NAMESPACE_DEVICE
character(*, SK), parameter WIN32_NAMESPACE_DEVICE
The scalar character constant of default kind SK, containing the operating systems path-separator sym...
Definition: pm_sysPath.F90:430
pm_sysPath::MAX_LEN_FILE_PATH
integer(IK), parameter MAX_LEN_FILE_PATH
The scalar integer constant of default kind IK, representing the maximum system-allowed path length (...
Definition: pm_sysPath.F90:294
pm_sysPath::POSIX_RESERVED_DQUOTE_CHR
character(1, SK), dimension(*), parameter POSIX_RESERVED_DQUOTE_CHR
The vector character constant of default kind SK of len = 1 containing the individual characters in P...
Definition: pm_sysPath.F90:706
pm_sysPath::DIR_SEP_WINDOWS_ALL
character(*, SK), parameter DIR_SEP_WINDOWS_ALL
The scalar character constant of default kind SK, containing the directory separator characters recog...
Definition: pm_sysPath.F90:299
pm_sysPath::POSIX_RESERVED_STR
character(*, SK), parameter POSIX_RESERVED_STR
The scalar character constant of default kind SK, containing the ASCII characters that require escapi...
Definition: pm_sysPath.F90:636
pm_sysPath::POSIX_RESERVED_DQUOTE_STR
character(*, SK), parameter POSIX_RESERVED_DQUOTE_STR
The scalar character constant of default kind SK, containing the ASCII characters that require escapi...
Definition: pm_sysPath.F90:694
pm_sysPath::DIR_SEP_WINDOWS
character(*, SK), parameter DIR_SEP_WINDOWS
The scalar character constant of default kind SK, containing the preferred directory separator charac...
Definition: pm_sysPath.F90:307
pm_sysPath::MAX_LEN_FILE_NAME
integer(IK), parameter MAX_LEN_FILE_NAME
The scalar integer constant of default kind IK, representing the maximum system-allowed path length (...
Definition: pm_sysPath.F90:289
pm_sysPath::WINDOWS_RESERVED_STR
character(*, SK), parameter WINDOWS_RESERVED_STR
The scalar character constant of default kind SK, containing the Windows reserved characters not allo...
Definition: pm_sysPath.F90:496
pm_sysPath::DIR_SEP_POSIX
character(*, SK), parameter DIR_SEP_POSIX
The scalar character constant of default kind SK, containing the preferred directory separator charac...
Definition: pm_sysPath.F90:311
pm_sysPath::WINDOWS_RESERVED_CHR
character(1, SK), dimension(*), parameter WINDOWS_RESERVED_CHR
The vector character constant of default kind SK of len = 1 containing the individual characters in W...
Definition: pm_sysPath.F90:512
pm_sysPath::WINDOWS_RESERVED_DEVICE_NAME
character(4, SK), dimension(*), parameter WINDOWS_RESERVED_DEVICE_NAME
The vector character constant of default kind SK, containing the Windows reserved (forbidden) file na...
Definition: pm_sysPath.F90:557
pm_sysPath::WINDOWS_CMD_METACHAR_CHR
character(1, SK), dimension(*), parameter WINDOWS_CMD_METACHAR_CHR
The vector character constant of default kind SK of len = 1 containing the individual characters in W...
Definition: pm_sysPath.F90:542
pm_sysPath::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_sysPath.F90:281
pm_sysPath::DIR_SEP_ALL
character(*, SK), parameter DIR_SEP_ALL
The scalar character constant of default kind SK, containing the directory separator characters recog...
Definition: pm_sysPath.F90:315
pm_sysPath::DIR_SEP_POSIX_ALL
character(*, SK), parameter DIR_SEP_POSIX_ALL
The scalar character constant of default kind SK, containing the directory separator characters recog...
Definition: pm_sysPath.F90:303
pm_sysPath::WIN32_NAMESPACE_FILE
character(*, SK), parameter WIN32_NAMESPACE_FILE
The scalar character constant of default kind SK, containing the prefix operating systems path-separa...
Definition: pm_sysPath.F90:402
pm_container::css_type
This is the css_type type for generating instances of container of scalar of string objects.
Definition: pm_container.F90:191
pm_sysPath::verbatim_type
This is the derived type with no components, whose instantiated objects are used to signify the verba...
Definition: pm_sysPath.F90:350