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 a29779e9..e0cece17 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -1,3 +1,5 @@ +)eval TRACE bfIS1 + -- Copyright (C) 2007-2013 Gabriel Dos Reis. -- All rights reserved. -- @@ -460,3 +462,12 @@ getDirectoryList ft == [home,:$DIRECTORY_-LIST] stringMember?(here,dirs) => dirs [here,:dirs] + +makeInputFilename(filearg,filetype == nil) == + filename := makeFilename(filearg,filetype) + dirname := filePathDirectory filename + dirname = nil or dirname is [KEYWORD::RELATIVE,:.] => + or/[probeReadableFile strconc(dir,filename) + for dir in getDirectoryList filePathType filename] + or probeReadableFile filename + probeReadableFile filename |