Synnefo » snf-ganeti

  , xmUptimeParser

  , uptimeLineParser

-- | A parser for parsing the output of the @xm uptime@ command.

xmUptimeParser :: Parser (Map.Map Int UptimeInfo)

xmUptimeParser = do

  _ <- headerParser

  uptimes <- uptimeLineParser `AC.manyTill` A.endOfInput

  return $ Map.fromList [(uInfoID u, u) | u <- uptimes]

    where headerParser = A.string "Name" <* A.skipSpace <* A.string "ID"

            <* A.skipSpace <* A.string "Uptime" <* A.skipSpace

-- | A helper for parsing a single line of the @xm uptime@ output.

uptimeLineParser :: Parser UptimeInfo

uptimeLineParser = do

  name <- A.takeTill isSpace <* A.skipSpace

  idNum <- A.decimal <* A.skipSpace

  uptime <- A.takeTill (`elem` "\n\r") <* A.skipSpace

  return . UptimeInfo (unpack name) idNum $ unpack uptime