GaucheのHEADをMakeするスクリプト

gauche-head-make.scm

(use gauche.process)
(use file.util)

(define *conf* `((gauche-repo . "https://github.com/shirok/Gauche.git")
  	 (tmp-dir . "./tmp")
		 (gauche-dir . "/Gauche")))
(define (main args)
  (let* ((repo (assq-ref *conf* 'gauche-repo))
	 (tmp (assq-ref *conf* 'tmp-dir))
	 (proj-dir (string-append tmp
				  (assq-ref *conf* 'gauche-dir))))
    (current-directory (home-directory))
    (run-process (list 'git
		       'clone
		       (string->symbol repo)
		       (string->symbol proj-dir))
		 :wait #t)
    (run-process '(sh DIST gen)
		 :wait #t
		 :directory proj-dir)
    (run-process '(sh configure)
		 :wait #t
		 :directory proj-dir)
    (run-process '(make)
		 :wait #t
		 :directory proj-dir)
    (run-process '(make install)
		 :wait #t
		 :directory proj-dir)))