Overview
Comment: | fix to sretrive to get hidden files |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-logintest |
Files: | files | file ages | folders |
SHA1: |
613b0cc3319a04515e4de1c25a01778b |
User & Date: | pjhatwal on 2020-12-31 11:17:08 |
Other Links: | branch diff | manifest | tags |
Context
2020-12-31
| ||
11:20 | catchup with v1.65 Leaf check-in: d8f4f4ee27 user: pjhatwal tags: v1.65-logintest | |
11:17 | fix to sretrive to get hidden files check-in: 613b0cc331 user: pjhatwal tags: v1.65-logintest | |
2020-11-05
| ||
16:14 | Updated megatest version to 1.6577 Leaf check-in: 76129d203b user: mmgraham tags: v1.6577 | |
Changes
Modified sretrieve.scm from [15a6ca2860] to [2252792c2d].
︙ | |||
636 637 638 639 640 641 642 | 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 | - + | (last-dir-name (if (pathname-extension target-path) (conc(pathname-file target-path) "." (pathname-extension target-path)) (pathname-file target-path))) (curr-dir (current-directory)) (start-dir (conc (current-directory) "/" last-dir-name)) (execlude (make-exclude-pattern (string-split restrictions ","))) (tmpfile (conc "/tmp/" (current-user-name) "/my-pipe-" (current-process-id)))) |
︙ | |||
696 697 698 699 700 701 702 | 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 | - + + | (print (string-substitute (conc base_path "/") "" p "-")))) ((directory? p) ;;do nothing for dirs) ) (else (if (not (string-match (regexp exclude) p )) |
︙ | |||
1080 1081 1082 1083 1084 1085 1086 | 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 | - - + + + | (else (print 0 "Unrecognised command " action)))) (define (main) (let* ((args (argv)) (prog (car args)) (rema (cdr args)) (exe-name (pathname-file (car (argv)))) |