New --output-* switches for text-view info command

Author: newhoggy

cardano-cli/src/Cardano/CLI/EraBased/TextView/Command.hs

@@ -10,7 +10,10 @@ where
 
 import Cardano.Api.Shelley
 
+import Cardano.CLI.Type.Common (FormatCbor, FormatText)
+
 import Data.Text (Text)
+import Vary
 
 newtype TextViewCmds era
   = TextViewInfoCmd TextViewInfoCmdArgs
@@ -19,6 +22,7 @@ newtype TextViewCmds era
 data TextViewInfoCmdArgs
   = TextViewInfoCmdArgs
   { inputFile :: !FilePath
+  , outputFormat :: !(Vary [FormatCbor, FormatText])
   , mOutFile :: Maybe (File () Out)
   }
   deriving Show

cardano-cli/src/Cardano/CLI/EraBased/TextView/Option.hs

@@ -10,8 +10,10 @@ where
 
 import Cardano.CLI.EraBased.Common.Option
 import Cardano.CLI.EraBased.TextView.Command
+import Cardano.CLI.Option.Flag
 import Cardano.CLI.Parser
 
+import Data.Function ((&))
 import Options.Applicative hiding (help, str)
 import Options.Applicative qualified as Opt
 
@@ -28,9 +30,20 @@ pTextViewCmds =
           , "are stored on disk as TextView files."
           ]
     )
-    [ Just $
-        Opt.hsubparser $
-          commandWithMetavar "decode-cbor" $
-            Opt.info (fmap TextViewInfoCmd (TextViewInfoCmdArgs <$> pCBORInFile <*> pMaybeOutputFile)) $
-              Opt.progDesc "Print a TextView file as decoded CBOR."
+    [ Just
+        . Opt.hsubparser
+        . commandWithMetavar "decode-cbor"
+        $ Opt.info
+          ( fmap
+              TextViewInfoCmd
+              $ TextViewInfoCmdArgs
+                <$> pCBORInFile
+                <*> pFormatFlags
+                  "text view info output format"
+                  [ flagFormatCbor
+                  , flagFormatText & setDefault
+                  ]
+                <*> pMaybeOutputFile
+          )
+        $ Opt.progDesc "Print a TextView file as decoded CBOR."
     ]

cardano-cli/src/Cardano/CLI/EraBased/TextView/Run.hs

@@ -2,6 +2,8 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NamedFieldPuns #-}
 
+{- HLINT ignore "Redundant id" -}
+
 module Cardano.CLI.EraBased.TextView.Run
   ( runTextViewCmds
   , runTextViewInfoCmd
@@ -11,10 +13,15 @@ where
 import Cardano.Api
 
 import Cardano.CLI.EraBased.TextView.Command
-import Cardano.CLI.Helper (pPrintCBOR)
+import Cardano.CLI.Helper (cborToText)
+import Cardano.CLI.OS.Posix qualified as IO
+import Cardano.CLI.Type.Common
 import Cardano.CLI.Type.Error.TextViewFileError
 
 import Data.ByteString.Lazy.Char8 qualified as LBS
+import Data.Function ((&))
+import Data.Text.Encoding qualified as Text
+import Vary qualified
 
 runTextViewCmds :: TextViewCmds era -> ExceptT TextViewFileError IO ()
 runTextViewCmds = \case
@@ -27,10 +34,21 @@ runTextViewInfoCmd
 runTextViewInfoCmd
   TextViewInfoCmdArgs
     { inputFile
+    , outputFormat
     , mOutFile
     } = do
     tv <- firstExceptT TextViewReadFileError $ newExceptT (readTextEnvelopeFromFile inputFile)
     let lbCBOR = LBS.fromStrict (textEnvelopeRawCBOR tv)
-    case mOutFile of
-      Just (File oFpath) -> liftIO $ LBS.writeFile oFpath lbCBOR
-      Nothing -> firstExceptT TextViewCBORPrettyPrintError $ pPrintCBOR lbCBOR
+
+    outputContent <-
+      outputFormat
+        & ( id
+              . Vary.on (\FormatCbor -> pure lbCBOR)
+              . Vary.on (\FormatText -> LBS.fromStrict . Text.encodeUtf8 <$> cborToText lbCBOR)
+              $ Vary.exhaustiveCase
+          )
+        & firstExceptT TextViewCBORPrettyPrintError
+
+    let writeOutput = maybe (LBS.hPut IO.stdout) (LBS.writeFile . unFile) mOutFile
+
+    liftIO $ writeOutput outputContent

cardano-cli/src/Cardano/CLI/Helper.hs

@@ -6,6 +6,7 @@
 
 module Cardano.CLI.Helper
   ( HelpersError (..)
+  , cborToText
   , printWarning
   , deprecationWarning
   , ensureNewFile
@@ -106,6 +107,25 @@ pPrintCBOR bs = do
       unless (LB.null remaining) $
         pPrintCBOR remaining
 
+cborToText :: LB.ByteString -> ExceptT HelpersError IO Text
+cborToText bs = do
+  as <- cborToTextList bs
+  let cs = filter (not . Text.null) as
+  pure $ mconcat $ fmap (<> "\n") cs
+
+cborToTextList :: LB.ByteString -> ExceptT HelpersError IO [Text]
+cborToTextList bs = do
+  case deserialiseFromBytes decodeTerm bs of
+    Left err -> left $ CBORPrettyPrintError err
+    Right (remaining, decodedVal) -> do
+      let text = Text.pack . prettyHexEnc $ encodeTerm decodedVal
+
+      if LB.null remaining
+        then pure [text]
+        else do
+          extraText <- cborToTextList remaining
+          pure $ text : extraText
+
 readCBOR :: FilePath -> ExceptT HelpersError IO LB.ByteString
 readCBOR fp =
   handleIOExceptT

cardano-cli/test/cardano-cli-golden/Test/Golden/Shelley/TextView/DecodeCbor.hs

@@ -22,6 +22,7 @@ hprop_golden_shelleyTextViewDecodeCbor = propertyOnce $ H.moduleWorkspace "tmp"
       [ "latest"
       , "text-view"
       , "decode-cbor"
+      , "--output-text"
       , "--file"
       , unsignedTxFile
       ]

cardano-cli/test/cardano-cli-golden/files/golden/help.cli

@@ -2622,6 +2622,9 @@ Usage: cardano-cli conway text-view decode-cbor
   are stored on disk as TextView files.
 
 Usage: cardano-cli conway text-view decode-cbor --in-file FILEPATH
+                                                  [ --output-cbor
+                                                  | --output-text
+                                                  ]
                                                   [--out-file FILEPATH]
 
   Print a TextView file as decoded CBOR.
@@ -4855,6 +4858,9 @@ Usage: cardano-cli latest text-view decode-cbor
   are stored on disk as TextView files.
 
 Usage: cardano-cli latest text-view decode-cbor --in-file FILEPATH
+                                                  [ --output-cbor
+                                                  | --output-text
+                                                  ]
                                                   [--out-file FILEPATH]
 
   Print a TextView file as decoded CBOR.

cardano-cli/test/cardano-cli-golden/files/golden/help/conway_text-view_decode-cbor.cli

@@ -1,9 +1,15 @@
 Usage: cardano-cli conway text-view decode-cbor --in-file FILEPATH
+                                                  [ --output-cbor
+                                                  | --output-text
+                                                  ]
                                                   [--out-file FILEPATH]
 
   Print a TextView file as decoded CBOR.
 
 Available options:
   --in-file FILEPATH       CBOR input file.
+  --output-cbor            Format text view info output format to BASE16 CBOR.
+  --output-text            Format text view info output format to TEXT
+                           (default).
   --out-file FILEPATH      Optional output file. Default is to write to stdout.
   -h,--help                Show this help text

cardano-cli/test/cardano-cli-golden/files/golden/help/latest_text-view_decode-cbor.cli

@@ -1,9 +1,15 @@
 Usage: cardano-cli latest text-view decode-cbor --in-file FILEPATH
+                                                  [ --output-cbor
+                                                  | --output-text
+                                                  ]
                                                   [--out-file FILEPATH]
 
   Print a TextView file as decoded CBOR.
 
 Available options:
   --in-file FILEPATH       CBOR input file.
+  --output-cbor            Format text view info output format to BASE16 CBOR.
+  --output-text            Format text view info output format to TEXT
+                           (default).
   --out-file FILEPATH      Optional output file. Default is to write to stdout.
   -h,--help                Show this help text