Overview
| Comment: | fixes to sretrive to pick hidden files |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-real |
| Files: | files | file ages | folders |
| SHA1: |
3a077a5493ccbe9af3dfada107a82533 |
| User & Date: | pjhatwal on 2021-02-03 12:58:27 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-03
| ||
| 15:31 | merged archive structure changes check-in: fa6e194fcc user: pjhatwal tags: v1.65-real | |
| 12:58 | fixes to sretrive to pick hidden files check-in: 3a077a5493 user: pjhatwal tags: v1.65-real | |
|
2021-02-01
| ||
| 13:29 | fixed match let in db.scm check-in: d486cc49ee user: pjhatwal tags: v1.6582, v1.65-real | |
Changes
Modified sretrieve.scm from [c73e7e987b] to [bc076b5abf].
| ︙ | ︙ | |||
695 696 697 698 699 700 701 |
(print (string-substitute (conc base_path "/") "" p "-"))))
((directory? p)
;;do nothing for dirs)
)
(else
(if (not (string-match (regexp exclude) p ))
| | > | 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 |
(print (string-substitute (conc base_path "/") "" p "-"))))
((directory? p)
;;do nothing for dirs)
)
(else
(if (not (string-match (regexp exclude) p ))
(print (string-substitute (conc base_path "/") "" p "-"))))))
dotfiles: #t))
(define (sretrieve:shell-help)
(conc "Usage: " *exe-name* " [action [params ...]]
ls [target path] : list contents of target area. The output of the cmd can be piped into other system cmd. eg ls <path> | grep txt
cd <target directory> : To change the current directory within the sretrive shell.
pwd : Prints the full pathname of the current directory within the sretrive shell.
|
| ︙ | ︙ | |||
1079 1080 1081 1082 1083 1084 1085 |
(else (print 0 "Unrecognised command " action))))
(define (main)
(let* ((args (argv))
(prog (car args))
(rema (cdr args))
(exe-name (pathname-file (car (argv))))
| | | | 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 |
(else (print 0 "Unrecognised command " action))))
(define (main)
(let* ((args (argv))
(prog (car args))
(rema (cdr args))
(exe-name (pathname-file (car (argv))))
;(exe-dir (or (pathname-directory prog)
; (sretrieve:find exe-name (string-split (get-environment-variable "PATH") ":"))))
;(configdat (sretrieve:load-config exe-dir exe-name))
)
;; preserve the exe data in the config file
;(hash-table-set! configdat "exe-info" (list (list "exe-name" exe-name)
; (list "exe-dir" exe-dir)))
(cond
;; one-word commands
|
| ︙ | ︙ |