From d53b6dda2adaf0525b060333f67b2003c96da5f2 Mon Sep 17 00:00:00 2001
From: SANO Masatoshi <snmsts@gmail.com>
Date: Sun, 10 Jan 2016 23:50:55 +0900
Subject: [PATCH] prepare for next release.

---
 .travis.yml         |  1 +
 scripts/release.ros | 25 +++++++++++++------------
 2 files changed, 14 insertions(+), 12 deletions(-)

diff --git a/.travis.yml b/.travis.yml
index 398cd16..18e4330 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -83,6 +83,7 @@ script:
 after_success:
   - if [ x$TRAVIS_TAG != x ] && [ $METHOD = cross ]; then lcab -q  src/ros.exe src/lisp/* ros-$XCC.cab; fi
   - if [ x$TRAVIS_TAG != x ] && [ $METHOD = cross ]; then ros ./scripts/release.ros github ros-$XCC.cab; fi
+  - if [ x$TRAVIS_TAG != x ] && [ $METHOD = debian ]; then ros ./scripts/release.ros debian; fi
   - if [ "$METHOD" = "documents" ]; then git branch;git status; fi
   - if [ "$METHOD" = "documents" ]; then git config user.email "doc@example.com"; fi
   - if [ "$METHOD" = "documents" ]; then git config user.name "Travis-CI"; fi
diff --git a/scripts/release.ros b/scripts/release.ros
index cc04866..fecd7f8 100755
--- a/scripts/release.ros
+++ b/scripts/release.ros
@@ -121,9 +121,6 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
 
 (defun release (argv)
   (declare (ignore argv))
-  #+nil
-  (unless (uiop:getenv "GITHUB_OAUTH_TOKEN")
-    (error "GITHUB_OAUTH_TOKEN must be set"))
   (let ((version (find-version)))
     (mapc
      #'uiop:run-program
@@ -134,14 +131,7 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
        ,(format nil "git tag -a \"v~A\" -m \"v~A\"" version version)
        "git push --tags"
        "git push --all"
-       "git checkout master")))
-  #+nil(load (merge-pathnames "../sn.github/sn.github.asd" *project-path*))
-  #+nil(ql:quickload :sn.github :silent t)
-  #+nil(let ((tag (string-right-trim (format nil"~%")
-                                     (uiop/run-program:run-program
-                                      "git tag |tail -n 1" :output :string))))
-         (print (funcall (read-from-string "sn.github.release::release-create")
-                         "roswell" "roswell" tag :name tag))))
+       "git checkout master"))))
 
 (defun release-exist-p (tagname &key (owner *owner*) (repo *repo*))
   (ignore-errors
@@ -167,9 +157,20 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
   (ensure-release-exists (uiop:getenv "TRAVIS_TAG"))
   (asset-upload (pathname (first argv)) (uiop:getenv "TRAVIS_TAG")))
 
+(defun debian (argv)
+  (declare (ignore argv))
+  (unless (uiop:getenv "GITHUB_OAUTH_TOKEN")
+    (error "GITHUB_OAUTH_TOKEN must be set"))
+  (ensure-release-exists (uiop:getenv "TRAVIS_TAG"))
+  (loop for i in (directory (make-pathname
+                             :type :wild :name :wild
+                             :defaults (merge-pathnames "scripts/debian/" *project-path*)))
+     when (pathname-name i)
+     do (asset-upload (pathname i) (uiop:getenv "TRAVIS_TAG"))))
+
 (defun main (subcmd &rest argv)
   (declare (ignorable argv))
-  (let ((subcmd (find subcmd '(release prepare github)
+  (let ((subcmd (find subcmd '(release prepare github debian)
                       :test 'equal :key 'string-downcase)))
     (when subcmd
       (funcall subcmd argv))))