GUI app

NDLC.CLI/DLC/OfferDLCCommand.cs

@@ -51,7 +51,10 @@ protected override async Task InvokeAsyncBase(InvocationContext context)
 			var payoffsStr = context.ParseResult.CommandResult.GetArgumentValueOrDefault<List<string>>("payoff");
 			if (payoffsStr is null || payoffsStr.Count == 0)
 				throw new CommandOptionRequiredException("payoff");
-			var payoffs = CreatePayoffs(payoffsStr);
+			if (!DiscretePayoffs.TryParse(payoffsStr, out var payoffs) || payoffs is null)
+			{
+				throw new CommandException("payoff", "The payoff can't be parsed");
+			}
 			FixCasing(evt, payoffs);
 			var builder = new DLCTransactionBuilder(true, null, null, null, Network);
 
@@ -75,18 +78,6 @@ protected override async Task InvokeAsyncBase(InvocationContext context)
 			context.Console.Out.Write($"Offer created, you now need to setup the DLC sending {collateral} BTC to yourself. For more information, run `dlc show \"{name}\"`.");
 		}
 
-		private DiscretePayoffs CreatePayoffs(List<string> payoffs)
-		{
-			var result = new DiscretePayoffs();
-			foreach (var payoff in payoffs)
-			{
-				if (!DiscretePayoff.TryParse(payoff, out var o) || o is null)
-					throw new CommandException("payoff", "The payoff can't be parsed");
-				result.Add(o);
-			}
-			return result;
-		}
-
 		/// <summary>
 		/// Fix case mistakes
 		/// </summary>

NDLC.CLI/DLC/ReviewDLCCommand.cs

@@ -27,6 +27,7 @@ public static Command CreateCommand()
 		protected override async Task InvokeAsyncBase(InvocationContext context)
 		{
 			var offer = context.GetOffer(Repository.JsonSettings);
+			Console.WriteLine($" Offer is {offer}");
 			if (offer.OracleInfo is null)
 				throw new CommandException("offer", "Missing oracleInfo");
 			if (offer.Timeouts is null)

NDLC.CLI/Helpers.cs

@@ -21,12 +21,14 @@ public static PSBT ParsePSBT(this InvocationContext ctx, string argName, Network
 				throw new CommandException(argName, "Invalid PSBT");
 			return psbt;
 		}
+
 		public static string ToString(ECXOnlyPubKey pubKey)
 		{
 			var buf = new byte[32];
 			pubKey.WriteToSpan(buf);
 			return Encoders.Hex.EncodeData(buf);
 		}
+
 		public static string ToBase58(ECXOnlyPubKey pubKey)
 		{
 			var buf = new byte[32];
@@ -35,3 +37,4 @@ public static string ToBase58(ECXOnlyPubKey pubKey)
 		}
 	}
 }
+

NDLC.GUI/About.fs

@@ -0,0 +1,120 @@
+namespace NDLC.GUI
+
+open System
+open System.Diagnostics
+open System.Runtime.InteropServices
+
+open Avalonia.Layout
+open Avalonia.Controls
+open Avalonia.Controls.Presenters
+open Avalonia.Media
+open Avalonia.Styling
+
+open Elmish
+open Avalonia.FuncUI
+open Avalonia.FuncUI.DSL
+open Avalonia.FuncUI.Components
+open Avalonia.FuncUI.Elmish
+
+
+module About =
+    type State = { noop: bool }
+
+    type Links =
+        | NDLC
+        | DLCSpecs
+        | AvaloniaFuncUI
+        with
+        member this.Text =
+            match this with
+            | NDLC -> "About NDLC"
+            | DLCSpecs -> "Spec for the DLC protocol itself"
+            | AvaloniaFuncUI -> "About the framework we used to create this GUI"
+
+    type Msg = OpenUrl of Links
+
+    let init = { noop = false }
+
+
+    let update (msg: Msg) (state: State) =
+        match msg with
+        | OpenUrl link ->
+            let url =
+                match link with
+                | NDLC -> "https://github.com/dgarage/NDLC"
+                | DLCSpecs -> "https://github.com/discreetlogcontracts/dlcspecs"
+                | AvaloniaFuncUI -> "https://github.com/AvaloniaCommunity/Avalonia.FuncUI"
+
+            ignore <|
+                if RuntimeInformation.IsOSPlatform OSPlatform.Windows then
+                    let start = sprintf "/c start %s" url
+                    Process.Start(ProcessStartInfo("cmd", start))
+                else if RuntimeInformation.IsOSPlatform OSPlatform.Linux then
+                    Process.Start ("xdg-open", url)
+                else if RuntimeInformation.IsOSPlatform OSPlatform.OSX then
+                    Process.Start ("open", url)
+                else
+                    raise <| NotSupportedException("Unknown OS platform")
+            state
+
+
+    let view (state: State) (dispatch: Msg -> unit) =
+        let linkView (l: Links) =
+            TextBlock.create [
+                TextBlock.classes ["link"]
+                TextBlock.text l.Text
+                TextBlock.foreground "#009bd2"
+                TextBlock.fontSize 16.
+                TextBlock.fontWeight FontWeight.SemiBold
+                TextBlock.fontStyle FontStyle.Oblique
+                TextBlock.onTapped (fun _ -> dispatch (OpenUrl l))
+            ]
+        DockPanel.create [
+            DockPanel.margin (0., 20.)
+            DockPanel.horizontalAlignment HorizontalAlignment.Center
+            DockPanel.verticalAlignment VerticalAlignment.Top
+            DockPanel.children [
+                StackPanel.create [
+                    StackPanel.dock Dock.Top
+                    StackPanel.verticalAlignment VerticalAlignment.Top
+                    StackPanel.children [
+                        TextBlock.create [
+                            TextBlock.classes ["title"]
+                            TextBlock.fontSize 24.
+                            TextBlock.fontWeight FontWeight.Thin
+                            TextBlock.text "GUI application for managing DLC (Experimental)"
+                        ]
+                        TextBlock.create [
+                            TextBlock.classes [ "subtitle" ]
+                            TextBlock.fontSize 16.
+                            TextBlock.fontWeight FontWeight.Thin
+                            TextBlock.text
+                                ("DLC is an exciting new mechanism to create an anonymous prediction market\n" +
+                                 "with just a bitcoin. And this is a wrapper GUI to manage your position and more.")
+                        ]
+                    ]
+                ]
+                StackPanel.create [
+                    StackPanel.dock Dock.Left
+                    StackPanel.horizontalAlignment HorizontalAlignment.Left
+                    StackPanel.children [
+                        linkView NDLC
+                        linkView Links.DLCSpecs
+                        linkView Links.AvaloniaFuncUI
+                    ]
+                ]
+                StackPanel.create [
+                    StackPanel.dock Dock.Right
+                ]
+            ]
+        ]
+
+    type Host() as this =
+        inherit Hosts.HostControl()
+        do
+            this.Styles.Load "avares://NDLC.GUI/Styles.xaml"
+            Elmish.Program.mkSimple (fun () -> init) update view
+            |> Program.withHost this
+            |> Program.run
+
+

NDLC.GUI/Components.fs

@@ -0,0 +1,28 @@
+namespace NDLC.GUI
+
+open Avalonia
+open Avalonia.Controls
+open Avalonia.Controls.Presenters
+open Avalonia.FuncUI.DSL
+open Avalonia.Layout
+open Avalonia.Styling
+
+module Components =
+    let spinner =
+        StackPanel.create [
+            StackPanel.children [
+                StackPanel.create [
+                    StackPanel.horizontalAlignment HorizontalAlignment.Center
+                    StackPanel.verticalAlignment VerticalAlignment.Center
+                    StackPanel.children [
+                        TextBox.create [
+                            TextBox.text "Now loading..."
+                        ]
+                    ]
+                ]
+            ]
+        ]
+
+
+    let inputTextBox (name) (watermark) =
+        TextBox.create []

NDLC.GUI/Controls.fs

@@ -0,0 +1,31 @@
+namespace NDLC.GUI
+open System
+
+open Avalonia.Controls
+open Avalonia.FuncUI.DSL
+open Avalonia.Input
+open Avalonia.Interactivity
+
+module TextBox =
+    let onTextInput handler =
+        let handler' (args: RoutedEventArgs) =
+            let tx = (args.Source :?> TextBox).Text
+            if String.IsNullOrEmpty tx then () else
+            handler tx
+        [
+            TextBox.onKeyDown(handler')
+            TextBox.onKeyUp(handler')
+        ]
+
+    let onTextInputFinished handler =
+        let handler' =
+           fun (args: KeyEventArgs) ->
+               if args.Key = Key.Enter || args.Key = Key.Tab then
+                   let tx = (args.Source :?> TextBox).Text
+                   if String.IsNullOrEmpty tx then () else
+                   handler tx
+        [
+            TextBox.onKeyDown(handler')
+            TextBox.onKeyUp(handler')
+        ]
+

NDLC.GUI/DLC/CheckSig.fs

@@ -0,0 +1,75 @@
+module internal NDLC.GUI.DLC.CheckSig
+
+open System.Text
+open System.Threading.Tasks
+open FSharp.Control.Tasks
+open NBitcoin
+open NBitcoin.DataEncoders
+open NDLC.GUI.DLC
+open NDLC.GUI.Utils
+open NDLC.Infrastructure
+open NDLC.Messages
+open NDLC.Messages
+open Newtonsoft.Json
+open Newtonsoft.Json.Linq
+
+let private parse<'T when 'T : null and 'T : not struct> (g, base64: string): 'T option =
+    let repo = ConfigUtils.repository g
+    let json = UTF8Encoding.UTF8.GetString(Encoders.Base64.DecodeData(base64));
+    JsonConvert.DeserializeObject<'T>(json, repo.JsonSettings) |> Option.ofObj
+
+let private tryGetDLCFromID (repo: Repository) (contractId: uint256) = task {
+    if (contractId |> isNull) then
+        // TODO: Allow to pass a hint via command line
+        return Error("This accept message does not match any of our DLC");
+    else
+        let! dlc = repo.GetDLC(contractId);
+        if (dlc |> isNull) then
+            return Error("This accept message does not match any of our DLC")
+        else
+            return Ok(dlc)
+    }
+
+let private handleAccept g (accept: Accept): Task<PSBT> = task {
+    let repo = ConfigUtils.repository g
+    let! dlcResult = tryGetDLCFromID (repo) (accept.OffererContractId)
+    match dlcResult with
+    | Error e -> return failwith e
+    | Ok dlc ->
+    match DLCUtils.assertState (dlc, true, Repository.DLCState.DLCNextStep.CheckSigs, g.Network) with
+    | Error e -> return failwith e
+    | Ok _ ->
+    let builder = DLCTransactionBuilder(dlc.BuilderState.ToString(), g.Network);
+    builder.Sign1(accept);
+    dlc.BuilderState <- builder.ExportStateJObject();
+    dlc.Accept <- JObject.FromObject(accept, JsonSerializer.Create(repo.JsonSettings));
+    do! repo.SaveDLC(dlc);
+    return (builder.GetFundingPSBT());
+}
+
+let private handleSign g (s: Sign) = task {
+    let repo = ConfigUtils.repository g
+    let! dlcResult = tryGetDLCFromID (repo) (s.AcceptorContractId)
+    match dlcResult with
+    | Error e -> return failwith e
+    | Ok dlc ->
+    match DLCUtils.assertState (dlc, false, Repository.DLCState.DLCNextStep.CheckSigs, g.Network) with
+    | Error e -> return failwith e
+    | Ok _ ->
+    let builder = DLCTransactionBuilder(dlc.BuilderState.ToString(), g.Network)
+    builder.Finalize1(s)
+    dlc.Sign <- JObject.FromObject(sign, JsonSerializer.Create(repo.JsonSettings));
+    dlc.BuilderState <- builder.ExportStateJObject();
+    do! repo.SaveDLC(dlc);
+    return (builder.GetFundingPSBT())
+} 
+let checksig globalConfig (base64: string) = task {
+    match parse<Accept>(globalConfig, base64),parse<Sign> (globalConfig, base64)  with
+    | Some a, None ->
+        return! handleAccept (globalConfig) (a)
+    | _, Some s ->
+        return! handleSign (globalConfig) (s)
+    | None, None ->
+        return failwith "Failed to parse Accept/Sign message"
+}
+