diff options
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 164b435e..a29779e9 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -449,3 +449,14 @@ makeFilename(filearg,filetype==nil) == makeFullFilePath(filearg,filetype==nil) == filePathString mergeFilePaths makeFilename(filearg,filetype) +getDirectoryList ft == + here := getWorkingDirectory() + ft in '("NRLIB" "DAASE" "EXPOSED") => + $UserLevel = 'development => [here,:$LIBRARY_-DIRECTORY_-LIST] + $LIBRARY_-DIRECTORY_-LIST + home := filePathString userHomeDirectory() + dirs := + stringMember?(home,$DIRECTORY_-LIST) => $DIRECTORY_-LIST + [home,:$DIRECTORY_-LIST] + stringMember?(here,dirs) => dirs + [here,:dirs] |