Blame gauche-xz-info.patch
|
aekoroglu |
faea755 |
--- a/lib/gauche/interactive/info.scm
|
|
aekoroglu |
faea755 |
+++ b/lib/gauche/interactive/info.scm
|
|
aekoroglu |
faea755 |
@@ -113,7 +113,8 @@
|
|
aekoroglu |
faea755 |
:paths (get-info-paths)
|
|
aekoroglu |
faea755 |
:pred (^p (or (file-is-readable? p)
|
|
aekoroglu |
faea755 |
(file-is-readable? #"~|p|.gz")
|
|
aekoroglu |
faea755 |
- (file-is-readable? #"~|p|.bz2")))))
|
|
aekoroglu |
faea755 |
+ (file-is-readable? #"~|p|.bz2")
|
|
aekoroglu |
faea755 |
+ (file-is-readable? #"~|p|.xz")))))
|
|
aekoroglu |
faea755 |
|
|
aekoroglu |
faea755 |
(define (handle-ambiguous-name entry-name)
|
|
aekoroglu |
faea755 |
(let* ([keys (map x->string (hash-table-keys (~ (get-info)'index)))]
|
|
aekoroglu |
faea755 |
--- a/lib/text/info.scm
|
|
aekoroglu |
faea755 |
+++ b/lib/text/info.scm
|
|
aekoroglu |
faea755 |
@@ -67,6 +67,7 @@
|
|
aekoroglu |
faea755 |
|
|
aekoroglu |
faea755 |
;; Find bzip2 location
|
|
aekoroglu |
faea755 |
(define bzip2 (find-file-in-paths "bzip2"))
|
|
aekoroglu |
faea755 |
+(define xz (find-file-in-paths "xz"))
|
|
aekoroglu |
faea755 |
|
|
aekoroglu |
faea755 |
(cond-expand
|
|
aekoroglu |
faea755 |
[gauche.sys.zlib]
|
|
aekoroglu |
faea755 |
@@ -90,6 +91,8 @@
|
|
aekoroglu |
faea755 |
(with-input-from-process #"~gzip -c -d ~|file|.gz" thunk)])]
|
|
aekoroglu |
faea755 |
[(and bzip2 (file-exists? #"~|file|.bz2"))
|
|
aekoroglu |
faea755 |
(with-input-from-process #"~bzip2 -c -d ~|file|.bz2" thunk)]
|
|
aekoroglu |
faea755 |
+ [(and xz (file-exists? #"~|file|.xz"))
|
|
aekoroglu |
faea755 |
+ (with-input-from-process #"~xz -c -d ~|file|.xz" thunk)]
|
|
aekoroglu |
faea755 |
[else (error "can't find info file" file)]))
|
|
aekoroglu |
faea755 |
(with-input-from-info
|
|
aekoroglu |
faea755 |
(^[]
|