diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-09-20 17:54:46 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-09-20 17:54:46 +0000 |
| commit | fde9260a842114ae27a99f7de23c9a46b79eccf4 (patch) | |
| tree | 5c5535e97654b0491321cb1dbbaef5800b751980 /src/algebra/fname.spad.pamphlet | |
| parent | 75cc0a4b26fd4d3f896677f792f47659430e9824 (diff) | |
| download | open-axiom-fde9260a842114ae27a99f7de23c9a46b79eccf4.tar.gz | |
* include/cfuns.h (oa_dirname): Declare.
* lib/cfuns-c.c (openaxiom_is_path_separator): New.
(oa_dirname): Define.
(writeablep): Use it.
* algebra/fname.spad.pamphlet (writable?$FileName): Tidy.
Diffstat (limited to 'src/algebra/fname.spad.pamphlet')
| -rw-r--r-- | src/algebra/fname.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/fname.spad.pamphlet b/src/algebra/fname.spad.pamphlet index bfc9dc11..e9c558fb 100644 --- a/src/algebra/fname.spad.pamphlet +++ b/src/algebra/fname.spad.pamphlet @@ -99,8 +99,8 @@ FileName(): FileNameCategory == add extension(f:%): String == fnameType(f)$Lisp exists? f == existingFile?(f::String)$Lisp - readable? f == readablep(f::String)$Lisp : Integer = 1 - writable? f == writeablep(f::String)$Lisp : Integer = 1 + readable? f == readablep(f::String)$Lisp = 1@SingleInteger + writable? f == writeablep(f::String)$Lisp > 0@SingleInteger new(d,pref,e) == fnameNew(d,pref,e)$Lisp |