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

change versioning rule.

Browse source
This commit is contained in:
SANO Masatoshi 2016-11-03 09:52:18 +09:00
parent 82958a93e3
commit 823daa2bac
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scripts/release.ros
View file

@ -25,12 +25,12 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
do (return-from find-version (aref match 0)))))
(defun inc-version (v)
(let ((pos (position-if (complement #'digit-char-p) v :from-end t)))
(if pos
(format nil "~A~A"
(subseq v 0 (1+ pos))
(1+ (parse-integer (subseq v (1+ pos)))))
v)))
(let ((version (mapcar #'parse-integer (split-sequence:split-sequence #\. v)))
(d (multiple-value-list(decode-universal-time (get-universal-time)))))
(setf (first version) (- (nth 5 d) 2000)
(second version) (nth 4 d)
(fourth version) (1+ (fourth version)))
(format nil "~{~A~^.~}" version)))
(defun edit-file (path match replace version &key test)
(let ((file (with-open-file (in path :direction :input)