;; ダウンローダー本体
(define (downloader fname)
  ;; 基本のパスを組み立てる
  (let ((p (build-path *base* *sub*)))
    ;; 引っ越しデータファイル(fname)を開く
    (with-input-from-file fname
      (lambda ()
        ;; ファイルを一行づつ(read-line)読みながら繰り返し
        (let loop ((c (read-line)) (html '()) (p1 p))
          ;; 空行の場合例外が投げられるのでキャッチして次の処理へ
          (with-handlers ((exn:fail:contract?
                           (lambda (e) (loop (read-line) html p1))))
            ;; ファイル末尾で処理を終了する
            (unless (eof-object? c)
              ;; 読み込んだ行をコロン(:)で分割
              (let ((lst (string-split c ":")))
                ;; 先頭(head)と残り全て(tail)へと分ける
                (let ((head (string-trim (car lst)))
                      (tail (string-trim (string-join (cdr lst)))))
                  (case head
                    ;; スキップするheadは纏めて、次の処理へ
                    (("AUTHOR" "PRIMARY CATEGORY" "STATUS" "ALLOW COMMENTS" "CONVERT BREAKS" "-----")
                     (loop (read-line) html p1))
                    ;; TITLEはフォルダを作成し次の処理へ
                    (("TITLE") (let ((p2 (build-path p1 (string-delete cs tail))))
                                 (unless (directory-exists? p2)
                                   (make-directory p2))
                                 (loop (read-line) html p2)))
                    ;; DATEはフォルダを作成し次の処理へ
                    (("DATE") (let ((p3 (build-path p1 (string-delete cs tail))))
                                (unless (directory-exists? p3)
                                  (make-directory p3))
                                (loop (read-line) html p3)))
                    ;; BODYは後続(空文字列)だけどhtmlへ積む
                    (("BODY") (loop (read-line) (cons tail html) p1))
                    ;; 一つの記事が終了
                    ;; EyeCatchフォルダへのパスを作成
                    (("--------") (let ((p4 (build-path p1 "EyeCatch"))
                                        ;; 写真アドレスを取り出してリストへ纏める
                                        (urls
                                         (map cadr
                                              ((sxpath '(// img @ src))
                                               (html->xexp (string-join (reverse html)))))))
                                    ;; EyeCatchフォルダを作成
                                    (unless (directory-exists? p4)
                                      (make-directory p4))
                                    ;; 1枚めの写真をEyeCatchフォルダへダウンロード
                                    (system (car urls) p4)
                                    ;; 残りはそのままダウンロード
                                    (for-each
                                     (lambda (url)
                                       (system (command url p1)))
                                     (cdr urls))
                                    (loop (read-line) '() p)))
                    ;; 残りはHTML情報なんで一行丸ごとhtmlへと追加する
                    (else (loop (read-line) (cons c html) p1))))))))))))
 

Ozsg44OA44Km44Oz44Ot44O844OA44O85pys5L2TCihkZWZpbmUgKGRvd25sb2FkZXIgZm5hbWUpCiAgOzsg5Z+65pys44Gu44OR44K544KS57WE44G/56uL44Gm44KLCiAgKGxldCAoKHAgKGJ1aWxkLXBhdGggKmJhc2UqICpzdWIqKSkpCiAgICA7OyDlvJXjgaPotorjgZfjg4fjg7zjgr/jg5XjgqHjgqTjg6soZm5hbWUp44KS6ZaL44GPCiAgICAod2l0aC1pbnB1dC1mcm9tLWZpbGUgZm5hbWUKICAgICAgKGxhbWJkYSAoKQogICAgICAgIDs7IOODleOCoeOCpOODq+OCkuS4gOihjOOBpeOBpChyZWFkLWxpbmUp6Kqt44G/44Gq44GM44KJ57mw44KK6L+U44GXCiAgICAgICAgKGxldCBsb29wICgoYyAocmVhZC1saW5lKSkgKGh0bWwgJygpKSAocDEgcCkpCiAgICAgICAgICA7OyDnqbrooYzjga7loLTlkIjkvovlpJbjgYzmipXjgZLjgonjgozjgovjga7jgafjgq3jg6Pjg4Pjg4HjgZfjgabmrKHjga7lh6bnkIbjgbgKICAgICAgICAgICh3aXRoLWhhbmRsZXJzICgoZXhuOmZhaWw6Y29udHJhY3Q/CiAgICAgICAgICAgICAgICAgICAgICAgICAgIChsYW1iZGEgKGUpIChsb29wIChyZWFkLWxpbmUpIGh0bWwgcDEpKSkpCiAgICAgICAgICAgIDs7IOODleOCoeOCpOODq+acq+WwvuOBp+WHpueQhuOCkue1guS6huOBmeOCiwogICAgICAgICAgICAodW5sZXNzIChlb2Ytb2JqZWN0PyBjKQogICAgICAgICAgICAgIDs7IOiqreOBv+i+vOOCk+OBoOihjOOCkuOCs+ODreODsyg6KeOBp+WIhuWJsgogICAgICAgICAgICAgIChsZXQgKChsc3QgKHN0cmluZy1zcGxpdCBjICI6IikpKQogICAgICAgICAgICAgICAgOzsg5YWI6aCtKGhlYWQp44Go5q6L44KK5YWo44GmKHRhaWwp44G444Go5YiG44GR44KLCiAgICAgICAgICAgICAgICAobGV0ICgoaGVhZCAoc3RyaW5nLXRyaW0gKGNhciBsc3QpKSkKICAgICAgICAgICAgICAgICAgICAgICh0YWlsIChzdHJpbmctdHJpbSAoc3RyaW5nLWpvaW4gKGNkciBsc3QpKSkpKQogICAgICAgICAgICAgICAgICAoY2FzZSBoZWFkCiAgICAgICAgICAgICAgICAgICAgOzsg44K544Kt44OD44OX44GZ44KLaGVhZOOBr+e6j+OCgeOBpuOAgeasoeOBruWHpueQhuOBuAogICAgICAgICAgICAgICAgICAgICgoIkFVVEhPUiIgIlBSSU1BUlkgQ0FURUdPUlkiICJTVEFUVVMiICJBTExPVyBDT01NRU5UUyIgIkNPTlZFUlQgQlJFQUtTIiAiLS0tLS0iKQogICAgICAgICAgICAgICAgICAgICAobG9vcCAocmVhZC1saW5lKSBodG1sIHAxKSkKICAgICAgICAgICAgICAgICAgICA7OyBUSVRMReOBr+ODleOCqeODq+ODgOOCkuS9nOaIkOOBl+asoeOBruWHpueQhuOBuAogICAgICAgICAgICAgICAgICAgICgoIlRJVExFIikgKGxldCAoKHAyIChidWlsZC1wYXRoIHAxIChzdHJpbmctZGVsZXRlIGNzIHRhaWwpKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICh1bmxlc3MgKGRpcmVjdG9yeS1leGlzdHM/IHAyKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChtYWtlLWRpcmVjdG9yeSBwMikpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChsb29wIChyZWFkLWxpbmUpIGh0bWwgcDIpKSkKICAgICAgICAgICAgICAgICAgICA7OyBEQVRF44Gv44OV44Kp44Or44OA44KS5L2c5oiQ44GX5qyh44Gu5Yem55CG44G4CiAgICAgICAgICAgICAgICAgICAgKCgiREFURSIpIChsZXQgKChwMyAoYnVpbGQtcGF0aCBwMSAoc3RyaW5nLWRlbGV0ZSBjcyB0YWlsKSkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICh1bmxlc3MgKGRpcmVjdG9yeS1leGlzdHM/IHAzKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKG1ha2UtZGlyZWN0b3J5IHAzKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobG9vcCAocmVhZC1saW5lKSBodG1sIHAzKSkpCiAgICAgICAgICAgICAgICAgICAgOzsgQk9EWeOBr+W+jOe2mijnqbrmloflrZfliJcp44Gg44GR44GpaHRtbOOBuOepjeOCgAogICAgICAgICAgICAgICAgICAgICgoIkJPRFkiKSAobG9vcCAocmVhZC1saW5lKSAoY29ucyB0YWlsIGh0bWwpIHAxKSkKICAgICAgICAgICAgICAgICAgICA7OyDkuIDjgaTjga7oqJjkuovjgYzntYLkuoYKICAgICAgICAgICAgICAgICAgICA7OyBFeWVDYXRjaOODleOCqeODq+ODgOOBuOOBruODkeOCueOCkuS9nOaIkAogICAgICAgICAgICAgICAgICAgICgoIi0tLS0tLS0tIikgKGxldCAoKHA0IChidWlsZC1wYXRoIHAxICJFeWVDYXRjaCIpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgOzsg5YaZ55yf44Ki44OJ44Os44K544KS5Y+W44KK5Ye644GX44Gm44Oq44K544OI44G457qP44KB44KLCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAodXJscwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChtYXAgY2FkcgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKChzeHBhdGggJygvLyBpbWcgQCBzcmMpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChodG1sLT54ZXhwIChzdHJpbmctam9pbiAocmV2ZXJzZSBodG1sKSkpKSkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA7OyBFeWVDYXRjaOODleOCqeODq+ODgOOCkuS9nOaIkAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAodW5sZXNzIChkaXJlY3RvcnktZXhpc3RzPyBwNCkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobWFrZS1kaXJlY3RvcnkgcDQpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA7OyAx5p6a44KB44Gu5YaZ55yf44KSRXllQ2F0Y2jjg5Xjgqnjg6vjg4Djgbjjg4Djgqbjg7Pjg63jg7zjg4kKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKHN5c3RlbSAoY2FyIHVybHMpIHA0KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA7OyDmrovjgorjga/jgZ3jga7jgb7jgb7jg4Djgqbjg7Pjg63jg7zjg4kKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGZvci1lYWNoCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobGFtYmRhICh1cmwpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChzeXN0ZW0gKGNvbW1hbmQgdXJsIHAxKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY2RyIHVybHMpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobG9vcCAocmVhZC1saW5lKSAnKCkgcCkpKQogICAgICAgICAgICAgICAgICAgIDs7IOaui+OCiuOBr0hUTUzmg4XloLHjgarjgpPjgafkuIDooYzkuLjjgZTjgahodG1s44G444Go6L+95Yqg44GZ44KLCiAgICAgICAgICAgICAgICAgICAgKGVsc2UgKGxvb3AgKHJlYWQtbGluZSkgKGNvbnMgYyBodG1sKSBwMSkpKSkpKSkpKSkpKQogIA==