suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

:names-checker can have a filename list

Browse Source 
svn: r2513
This commit is contained in:
Eli Barzilay 2006-03-27 03:58:19 +00:00
parent dd942a3885
commit d328e461be
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/handin-server/doc.txt
View File

@ -953,10 +953,11 @@ submissions, do the following:
suffix that should be used for the single concatenated output file.
* You can also add a `:names-checker' keyword -- the value can be a
regexp that all submitted files must follow (eg, ".*[.]scm$").
Alternatively, it can be a 1-argument procedure that will receive
the (sorted) list of submitted files and can throw an error if some
files are missing or some files are forbidden.
regexp that all submitted files must follow (eg, ".*[.]scm$"), or a
list of expected file names. Alternatively, it can be a 1-argument
procedure that will receive the (sorted) list of submitted files and
can throw an error if some files are missing or some files are
forbidden.
* In the "info.ss" file of the handin-client you need to set
`enable-multifile-handin' to #t, and adjust `selection-default' to

5
collects/handin-server/extra-utils.ss
View File

@ -299,6 +299,11 @@
(and (not (regexp-match names-checker n)) n))
names)
=> (lambda (file) (error* "bad filename: ~e" file))])]
[(and (list? names-checker) (andmap string? names-checker))
(let ([missing (remove* names names-checker)])
(when (pair? missing) (error* "missing files: ~e" missing)))
(let ([extra (remove* names-checker names)])
(when (pair? extra) (error* "unexpected files: ~e" extra)))]
[names-checker (error* "bad names-checker specification: ~e"
names-checker)])
;; problem: students might think that submitting files one-by-one will keep