#!/bin/sh string=? ; exec mzscheme -g -l core.ss -r $0 "$@" (require "../aux.ss") (define (main) (case (vector-length argv) [(1) (let* ((name (vector-ref argv 0))) (assignment name))] [(0) (let L ((i 1)) (unless (> i LAST-LECTURE) (assignment i) (L (+ i 1))))] [else (error 'assign " or no argument")])) ;; assignment : X -> void ;; effect: prepare an assignment file based on its index (define (assignment no) (let ((body (format "~a" no))) (unless (file-exists? body) (error 'assign "no such file: ~a" body)) (let* ((iport (open-input-file body)) (aline (read-line iport)) (title (format "Lecture ~a: ~a" no (second (regexp-match TITLE aline)))) (oport (delete-and-open (format "~a.shtml" no)))) (current-output-port oport) (printf ASSIGNMENT title title) (file-copy iport) (close-input-port iport) (printf BOTTOM) (close-output-port oport)))) (define ASSIGNMENT " ~a

~a


    ") (define BOTTOM "
Matthias Felleisen Last modified at
") (main)