[PATCH consfigurator v3] DATA.ASDF:SYSTEM-VERSION-FILES support systems with version files

[Russell Sim]

Sean Whitton <spwhitton at spwhitton.name> writes:

> On Thu 06 Oct 2022 at 09:10PM +02, Russell Sim wrote:
>> What do you think the best way to deal with this issue is?  I was
>> thinking it might make more sense to instead just tar the entire
>> system directory rather than being picky about which files are taken?
>
> How about including any text file?  Then we avoid accidentally uploading
> huge screenshots etc.

>From what I can see in my local Quicklisp archive, file usage is
distributed like

read-file-form: 10 instances, 7 projects, version.sexp|version.lisp-expr|version-string.sexp
read-file-line: 10 instances, 2 projects, version.text|../make/version.make|make/version.make
uiop:read-file-string: 6 instances, 6 projects, README.md|README.org

What if instead we select the files by name using a regex like this?

CL-USER> (defvar *extra-project-files-regex* "(?i)(readme.*|license.*)")
*EXTRA-PROJECT-FILES-REGEX*
CL-USER> (let ((re (ppcre:parse-string *extra-project-files-regex*)))
           (remove-if-not (lambda (f) (ppcre:scan re (namestring f))) (directory #P"**/*.*")))
(#P"/home/russell/projects/lisp/planet-git/LICENSE"
 #P"/home/russell/projects/lisp/planet-git/README.org")

Cheers,
Russell

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: find-outputs.txt
URL: <http://www.chiark.greenend.org.uk/pipermail/sgo-software-discuss/attachments/20221011/680a1683/attachment.txt>