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

more robust --binary-filename

Browse Source
This commit is contained in:
Simon Michael 2009-06-05 02:40:33 +00:00
parent dc3be35eef
commit 4ceab68e1f
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Version.hs
View File

@ -23,12 +23,12 @@ patchlevel = "." ++ show PATCHLEVEL -- must be numeric !
patchlevel = "" patchlevel = ""
#endif #endif
buildversion = version ++ patchlevel buildversion = version ++ patchlevel :: String
binaryfilename = prettify $ splitAtElement '.' buildversion binaryfilename = prettify $ splitAtElement '.' buildversion :: String
where where
prettify (major:minor:bugfix:patches:[]) = prettify (major:minor:bugfix:patches:[]) =
printf "hledger-%s.%s%s%s-%s-%s" major minor bugfix' patches' os arch printf "hledger-%s.%s%s%s-%s-%s" major minor bugfix' patches' os' arch
where where
bugfix' bugfix'
| bugfix `elem` ["0"{-,"98","99"-}] = "" | bugfix `elem` ["0"{-,"98","99"-}] = ""
@ -36,9 +36,14 @@ binaryfilename = prettify $ splitAtElement '.' buildversion
patches' patches'
| patches/="0" = "+"++patches | patches/="0" = "+"++patches
| otherwise = "" | otherwise = ""
prettify s = intercalate "." s os'
| os == "darwin" = "mac"
| otherwise = os
prettify (major:minor:bugfix:[]) = prettify (major:minor:bugfix:"0":[])
prettify (major:minor:[]) = prettify (major:minor:"0":"0":[])
prettify (major:[]) = prettify (major:"0":"0":"0":[])
versionstr = prettify $ splitAtElement '.' buildversion versionstr = prettify $ splitAtElement '.' buildversion :: String
where where
prettify (major:minor:bugfix:patches:[]) = prettify (major:minor:bugfix:patches:[]) =
printf "%s.%s%s%s%s" major minor bugfix' patches' desc printf "%s.%s%s%s%s" major minor bugfix' patches' desc
@ -55,7 +60,7 @@ versionstr = prettify $ splitAtElement '.' buildversion
| otherwise = "" | otherwise = ""
prettify s = intercalate "." s prettify s = intercalate "." s
versionmsg = progname ++ "-" ++ versionstr ++ configmsg versionmsg = progname ++ "-" ++ versionstr ++ configmsg :: String
where configmsg where configmsg
| null configflags = " with no extras" | null configflags = " with no extras"
| otherwise = " with " ++ intercalate ", " configflags | otherwise = " with " ++ intercalate ", " configflags