feat: add makefile targets for script serialization

Author: errfrom

Makefile

@@ -1,4 +1,4 @@
-.PHONY: build, repl, format, hoogle, auction_metadata_validator
+.PHONY: build, repl, format, hoogle, all_scripts, auction_metadata_validator, standing_bid_validator
 
 hs-sources := $(shell fd --no-ignore-parent -ehs)
 cabal-sources := $(shell fd --no-ignore-parent -ecabal)
@@ -15,5 +15,11 @@ format:
 hoogle:
 	hoogle server --local --port=8070 > /dev/null &
 
+all_scripts:
+	cabal v2-run hydra-auction-onchain-exe -- --script all
+
 auction_metadata_validator:
-	cabal v2-run hydra-auction-onchain-exe
+	cabal v2-run hydra-auction-onchain-exe -- --script metadata
+
+standing_bid_validator:
+	cabal v2-run hydra-auction-onchain-exe -- --script standing_bid

app/Main.hs

@@ -1,10 +1,66 @@
 module Main (main) where
 
-import HydraAuctionOnchain.Scripts (auctionMetadataValidatorUntyped, writeScript)
+import HydraAuctionOnchain.Scripts
+  ( auctionMetadataValidatorUntyped
+  , standingBidValidatorUntyped
+  , writeScript
+  )
+import Options.Applicative
+  ( Parser
+  , execParser
+  , fullDesc
+  , help
+  , helper
+  , info
+  , long
+  , maybeReader
+  , metavar
+  , option
+  )
 
 main :: IO ()
 main =
+  execParser (info (helper <*> scriptToCompile) fullDesc) >>= \case
+    AllScripts -> do
+      writeAuctionMetadataValidator
+      writeStandingBidValidator
+    AuctionMetadataValidator ->
+      writeAuctionMetadataValidator
+    StandingBidValidator ->
+      writeStandingBidValidator
+
+writeAuctionMetadataValidator :: IO ()
+writeAuctionMetadataValidator =
   writeScript
     "Auction metadata validator"
     "compiled/auction_metadata_validator.plutus"
     auctionMetadataValidatorUntyped
+
+writeStandingBidValidator :: IO ()
+writeStandingBidValidator =
+  writeScript
+    "Standing bid validator"
+    "compiled/standing_bid_validator.plutus"
+    standingBidValidatorUntyped
+
+data ScriptToCompile
+  = AllScripts
+  | AuctionMetadataValidator
+  | StandingBidValidator
+  deriving stock (Show, Eq)
+
+toScript :: String -> Maybe ScriptToCompile
+toScript = \case
+  "all" -> Just AllScripts
+  "metadata" -> Just AuctionMetadataValidator
+  "standing_bid" -> Just StandingBidValidator
+  _ -> Nothing
+
+scriptToCompile :: Parser ScriptToCompile
+scriptToCompile =
+  option
+    (maybeReader toScript)
+    ( long "script"
+        <> metavar "SCRIPT"
+        <> help "Name of the Plutarch script to compile"
+    )