Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
16
Issues
16
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
8772c1a3
Commit
8772c1a3
authored
Nov 01, 2015
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Tweak debian package code
parent
4ab58fb3
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
6 additions
and
5 deletions
+6
-5
tools/git.lisp
tools/git.lisp
+1
-1
tools/release.lisp
tools/release.lisp
+1
-1
tools/version.lisp
tools/version.lisp
+4
-3
No files found.
tools/git.lisp
View file @
8772c1a3
...
...
@@ -48,4 +48,4 @@
(
deftestcmd
git-all-committed-p
()
"is your checkout clean, with all files committed?"
(
null
(
nth-value
1
(
git
'
(
status
-s
)
:output
:lines
))))
(
null
(
nth-value
2
(
git
'
(
status
-s
)
:output
:lines
))))
tools/release.lisp
View file @
8772c1a3
...
...
@@ -192,7 +192,7 @@
(
unless
(
equal
new-version
(
parse-debian-version
debian-version
))
(
error
"You're trying to release version ~A but the debian/changelog wasn't properly updated"
new-version
)))
(
when
(
nth-value
1
(
run
'
(
parse-changelog
debian/
changelog
)
:output
nil
:error-output
:lines
))
(
when
(
nth-value
1
(
run
'
(
dpkg-parse
changelog
)
:output
nil
:error-output
:lines
))
(
error
"Malformed debian/changelog entry"
)))
scripts
;; TODO: needs to be passed as argument!
(
and
;; need a better combinator, that tells us about progress, etc.
...
...
tools/version.lisp
View file @
8772c1a3
...
...
@@ -6,17 +6,18 @@
(
defun
version-from-tag
(
&optional
commit
)
;; run-program issue: :output :line closes the fd, which causes the program to die in error.
(
first
(
nth-value
1
(
git
`
(
describe
--tags
--match
,
*version-tag-glob*
,
commit
)
:output
:lines
))))
(
first
(
nth-value
2
(
git
`
(
describe
--tags
--match
,
*version-tag-glob*
,
commit
)
:output
:lines
))))
(
defun
version-from-file
(
&optional
commit
)
(
if
commit
(
nth-value
1
(
git
`
(
show
(
,
commit
":version.lisp-expr"
))
:output
:form
))
(
nth-value
2
(
git
`
(
show
(
,
commit
":version.lisp-expr"
))
:output
:form
))
(
safe-read-file-form
(
pn
"version.lisp-expr"
))))
(
defun
debian-version-from-file
(
&optional
commit
)
(
match
(
if
commit
;; run-program issue: :output :line closes the fd, which causes the program to die in error.
(
first
(
nth-value
1
(
git
`
(
show
(
,
commit
":debian/changelog"
))
:output
:lines
)))
(
first
(
nth-value
2
(
git
`
(
show
(
,
commit
":debian/changelog"
))
:output
:lines
:error-output
nil
)))
(
read-file-line
(
pn
"debian/changelog"
)))
((
ppcre
"^[^(]*\\(([-0-9.:-]+)\\)"
ver
)
ver
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment