slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tools: dayssincerelease.hs -> dayssincetag.hs

Browse Source
This commit is contained in:
Simon Michael 2011-09-25 18:29:23 +00:00
parent 42df61393b
commit 7e753e13b5
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Makefile
View File

@ -806,19 +806,21 @@ showreleasestats stats: \
# simplebench # simplebench
# showerrors # showerrors
FROMTAG=.
showreleasedays: showreleasedays:
@echo Days since last release: @echo Days since last release:
@tools/dayssincerelease.hs | head -1 | cut -d' ' -f-1 @tools/dayssincetag.hs $(FROMTAG) | head -1 | cut -d' ' -f-1
@echo @echo
showunreleasedchangecount: showunreleasedchangecount:
@echo Commits since last release: @echo Commits since last release:
@darcs changes --from-tag . --count @darcs changes --from-tag $(FROMTAG) --count
@echo @echo
showreleaseauthors: showreleaseauthors:
@echo Patch authors since last release: @echo Patch authors since last release:
@darcs changes --from-tag . |grep '^\w' |cut -c 31- |sort |uniq @darcs changes --from-tag $(FROMTAG) |grep '^\w' |cut -c 31- |sort |uniq
@echo @echo
showloc sloccount: showloc sloccount:
@ -850,7 +852,7 @@ showunpushedchanges unpushed:
showunreleasedcodechanges unreleased: showunreleasedcodechanges unreleased:
@echo "hledger code changes since last release:" @echo "hledger code changes since last release:"
@darcs changes --from-tag . --matches "not (name docs: or name doc: or name site: or name tools:)" | grep '*' @darcs changes --from-tag $(FROMTAG) --matches "not (name docs: or name doc: or name site: or name tools:)" | grep '*'
@echo @echo
showcodechanges: showcodechanges:

6
tools/dayssincerelease.hs → tools/dayssincetag.hs
View File

@ -5,15 +5,17 @@ Similar to:
$ darcs changes --to-tag . --from-tag .|head -n 1 |cut -d' ' -f-7 |xargs -I {} date -d "{}" +%s |xargs -I {} expr \( $(date +%s) - {} \) / 60 / 60 / 24 $ darcs changes --to-tag . --from-tag .|head -n 1 |cut -d' ' -f-7 |xargs -I {} date -d "{}" +%s |xargs -I {} expr \( $(date +%s) - {} \) / 60 / 60 / 24
-} -}
import Data.Time import Data.Time
import System.Environment
import System.Locale import System.Locale
import System.Process import System.Process
main = do main = do
s <- readProcess "darcs" ["changes","--from-tag",".","--to-tag","."] "" tag:_ <- getArgs
s <- readProcess "darcs" ["changes","--from-tag",tag,"--to-tag",tag] ""
let datestr = unwords $ take 6 $ words $ head $ lines s let datestr = unwords $ take 6 $ words $ head $ lines s
date = readTime defaultTimeLocale "%a %b %e %H:%M:%S %Z %Y" datestr :: Day date = readTime defaultTimeLocale "%a %b %e %H:%M:%S %Z %Y" datestr :: Day
today <- getCurrentDay today <- getCurrentDay
putStrLn $ show (diffDays today date) ++ " days since the last tag:\n" putStrLn $ show (diffDays today date) ++ " days since tag "++tag++":\n"
putStr s putStr s
getCurrentDay = do getCurrentDay = do