common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

prepare for next release.

Browse source
This commit is contained in:
SANO Masatoshi 2016-01-10 23:50:55 +09:00
parent 4782911834
commit d53b6dda2a
2 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.travis.yml
View file

@ -83,6 +83,7 @@ script:
after_success: 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 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 = 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 branch;git status; fi
- if [ "$METHOD" = "documents" ]; then git config user.email "doc@example.com"; fi - if [ "$METHOD" = "documents" ]; then git config user.email "doc@example.com"; fi
- if [ "$METHOD" = "documents" ]; then git config user.name "Travis-CI"; fi - if [ "$METHOD" = "documents" ]; then git config user.name "Travis-CI"; fi

25
scripts/release.ros
View file

@ -121,9 +121,6 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
(defun release (argv) (defun release (argv)
(declare (ignore argv)) (declare (ignore argv))
#+nil
(unless (uiop:getenv "GITHUB_OAUTH_TOKEN")
(error "GITHUB_OAUTH_TOKEN must be set"))
(let ((version (find-version))) (let ((version (find-version)))
(mapc (mapc
#'uiop:run-program #'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) ,(format nil "git tag -a \"v~A\" -m \"v~A\"" version version)
"git push --tags" "git push --tags"
"git push --all" "git push --all"
"git checkout master"))) "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))))
(defun release-exist-p (tagname &key (owner *owner*) (repo *repo*)) (defun release-exist-p (tagname &key (owner *owner*) (repo *repo*))
(ignore-errors (ignore-errors
@ -167,9 +157,20 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
(ensure-release-exists (uiop:getenv "TRAVIS_TAG")) (ensure-release-exists (uiop:getenv "TRAVIS_TAG"))
(asset-upload (pathname (first argv)) (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) (defun main (subcmd &rest argv)
(declare (ignorable argv)) (declare (ignorable argv))
(let ((subcmd (find subcmd '(release prepare github) (let ((subcmd (find subcmd '(release prepare github debian)
:test 'equal :key 'string-downcase))) :test 'equal :key 'string-downcase)))
(when subcmd (when subcmd
(funcall subcmd argv)))) (funcall subcmd argv))))