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

cleanup

Browse Source
This commit is contained in:
Simon Michael 2007-01-29 00:29:50 +00:00
parent 5ef4d437e9
commit 0a3cc44a0f
1 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
hledger.hs
View File

@ -218,7 +218,7 @@ data Ledger = Ledger {
periodic_entries :: [PeriodicEntry], periodic_entries :: [PeriodicEntry],
entries :: [Entry] entries :: [Entry]
} deriving (Show, Eq) } deriving (Show, Eq)
data ModifierEntry = ModifierEntry { data ModifierEntry = ModifierEntry { -- aka automated entry
valueexpr :: String, valueexpr :: String,
m_transactions :: [Transaction] m_transactions :: [Transaction]
} deriving (Eq) } deriving (Eq)
@ -295,7 +295,6 @@ ledgerdirective = char '!' >> restofline <?> "directive"
ledgertransactions = (ledgertransaction <?> "transaction") `manyTill` (newline <?> "blank line") ledgertransactions = (ledgertransaction <?> "transaction") `manyTill` (newline <?> "blank line")
-- => unlike ledger, we need to end the file with a blank line -- => unlike ledger, we need to end the file with a blank line
-- "automated entry"
ledgermodifierentry = do ledgermodifierentry = do
char '=' <?> "entry" char '=' <?> "entry"
many spacenonewline many spacenonewline
@ -351,7 +350,7 @@ ledgereol = ledgercomment <|> do {newline; return []}
spacenonewline = satisfy (\c -> c `elem` " \v\f\t") spacenonewline = satisfy (\c -> c `elem` " \v\f\t")
-- run tests -- utils
test = do test = do
parseTest ledgertransaction sample_transaction parseTest ledgertransaction sample_transaction
@ -376,27 +375,23 @@ test = do
-- putStrLn "ok" -- putStrLn "ok"
-- where assert_ e = assert e return () -- where assert_ e = assert e return ()
-- utils
printParseResult r = printParseResult r =
case r of case r of
Left err -> do putStr "ledger parse error at "; print err Left err -> do putStr "ledger parse error at "; print err
Right x -> do print x Right x -> do print x
-- ok, what can we do with it ?
parseMyLedgerFile = do parseMyLedgerFile = do
fname <- ledgerFilePath ledgerFile >>= parseFromFile ledger >>= return
parsed <- parseFromFile ledger fname
return parsed
where where
ledgerFilePath = do ledgerFile = do
filepath <- getEnv "LEDGER" `catch` \_ -> return "ledger.dat" filepath <- getEnv "LEDGER" `catch` \_ -> return "ledger.dat"
-- don't know how to accomplish this great feat -- don't know how to accomplish this great feat
--ledger_file <- tildeExpand filepath --ledger_file <- tildeExpand filepath
let ledger_file = filepath let ledger_file = filepath
return ledger_file return ledger_file
-- ok, what can we do with it ?
showLedger l = "Ledger has\n" showLedger l = "Ledger has\n"
++ (showModifierEntries $ modifier_entries l) ++ (showModifierEntries $ modifier_entries l)
++ (showPeriodicEntries $ periodic_entries l) ++ (showPeriodicEntries $ periodic_entries l)
@ -438,8 +433,7 @@ instance Show Transaction where
instance Show Amount where show a = (currency a) ++ (show $ quantity a) instance Show Amount where show a = (currency a) ++ (show $ quantity a)
r = reg r = register
reg = register
register = do register = do
p <- parseMyLedgerFile p <- parseMyLedgerFile
case p of case p of