diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-09-25 09:23:02 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-09-25 09:23:02 -0700 |
| commit | 5f944b144b5bae019e578213d76e9bd81237c6dd (patch) | |
| tree | ad4838706d8d48d08a74b2b549346670e9a37566 /stdlib | |
| parent | 7e36a3f2a6501a0bc6d24836610746f59427b496 (diff) | |
| download | txr-5f944b144b5bae019e578213d76e9bd81237c6dd.tar.gz txr-5f944b144b5bae019e578213d76e9bd81237c6dd.tar.bz2 txr-5f944b144b5bae019e578213d76e9bd81237c6dd.zip | |
path-search: rewrite in C with saner semantics.
The new function:
- just returns the name if it contains path name components.
- returns nil if the name is "." or "..".
- tests for existence only, not permission to execute.
* lisplib.c (path_test_set_entries): Do not auto-load path-test
module on the path-search symbol, since it is no longer implemented
there.
* stdlib/path-test.tl (path-search): Function removed.
* stream.c (path_var_sep_char): New global variable.
(path_search): New function.
(detect_path_separators): Also set path_var_sep_char to semicolon
on Cygnal.
(stream-init): Register path-search intrinsic here now.
* stream.h (path_var_sep_char, path_search): Declared.
* tests/018/path-test.tl: New tests.
* txr.1: Documentation revised for path-search.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/path-test.tl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/stdlib/path-test.tl b/stdlib/path-test.tl index 4d700167..04ed2055 100644 --- a/stdlib/path-test.tl +++ b/stdlib/path-test.tl @@ -185,16 +185,3 @@ (casequal ent (("." "..")) (t (return nil)))))))) - -(defun path-search (name : (path (getenv "PATH"))) - (if (empty name) - nil - (let ((pcomp (if (listp path) - path - (spl (if (starts-with "CYGNAL" (uname).sysname) #\; #\:) - path)))) - (each ((pc pcomp)) - (if (nequal pc "") - (let ((st (ignerr (stat (path-cat pc name))))) - (if (and st (path-executable-to-me-p st) (path-file-p st)) - (return st.path)))))))) |