center.lisp

(ql:quickload '(:trivial-download) :silent t)

(defparameter +subjects+ '("sekaishi-b" "rinri_seikei" "kokugo" "eigo" "listning" "butsuri-kiso" "kagaku-kiso"
		     "sugaku-1a" "sugaku-2b"))
(defparameter *subject* (nth 4 +subjects+))

(defparameter +output-dir+ "")

(defparameter *base-url1* "http://sokuhou.toshin.com")
(defparameter *base-url2* "http://www.toshin.com")

(declaim (inline dl-silent))
(defun dl-silent (url output)
  (trivial-download:download url output :quiet t))

;; 2016
(dl-silent (format nil "~A/q/~A.pdf" *base-url1* *subject*)
			   (format nil "~A/~A/~A.pdf" +output-dir+ 2016 *subject*))
(dl-silent (format nil "~A/a/~A_ans.pdf" *base-url1* *subject*)
			   (format nil "~A/~A/~A_ans.pdf" +output-dir+ 2016 *subject*))
(when (string= *subject* "listning")
  (dl-silent
   (format nil "~A/q/listening.mp3" *base-url1*)
   (format nil "~A/~A/listening.mp3" +output-dir+ 2016))
  (dl-silent
   (format nil "~A/q/script.pdf" *base-url1*)
   (format nil "~A/~A/script.pdf" +output-dir+ 2016)))

;; 2015-2011
(loop :for year :from 2015 :downto 2011
      :do (progn (dl-silent (format nil "~A/~A/q/~A.pdf" *base-url1* year *subject*)
					    (format nil "~A/~A/~A.pdf" +output-dir+ year *subject*))
		 (dl-silent (format nil "~A/~A/a/~A_ans.pdf" *base-url1* year *subject*)
					    (format nil "~A/~A/~A_ans.pdf" +output-dir+ year *subject*))
		 (when (string= *subject* "listning")
		   (dl-silent
		    (format nil
			    (if (>= year 2014)
				"~A/~A~:*/q/~Acenter_listening.mp3"
				"~A/center/mp3/~Acenter_listening.mp3")
			    (if (>= year 2014)
				*base-url1*
				*base-url2*)
			    year)
		    (format nil "~A/~A/listening.mp3" +output-dir+ year))
		   (dl-silent
		    (format nil "~A/~A/q/script.pdf" *base-url1* year)
		    (format nil "~A/~A/script.pdf" +output-dir+ year)))))

;; 2010-2007
(loop :for year :from 2010 :downto 2007
      :do (progn (dl-silent
		  (format nil "~A/center/~A/pdf/q/~A.pdf" *base-url2* year *subject*)
		  (format nil "~A/~A/~A.pdf" +output-dir+ year *subject*))
		 (dl-silent
		  (format nil "~A/center/~A/pdf/a/~A_ans.pdf" *base-url2* year *subject*)
		  (format nil "~A/~A/~A_ans.pdf" +output-dir+ year *subject*))
		 (when (and (string= *subject* "listning") (>= year 2010))
		   (dl-silent
		    (format nil "~A/center/mp3/~Acenter_listening.mp3" *base-url2* year)
		    (format nil "~A/~A/listening.mp3" +output-dir+ year))
		   (dl-silent
		    (format nil "~A/center/~A/pdf/q/script.pdf" *base-url2* year)
		    (format nil "~A/~A/script.pdf" +output-dir+ year)))))