Support transfer transaction type in GUI

Convex-Dev · Jul 25, 2023 · 900b32b · 900b32b
1 parent ab9cf2b
commit 900b32b
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/convex-gui/src/main/java/convex/gui/manager/windows/peer/StressPanel.java b/convex-gui/src/main/java/convex/gui/manager/windows/peer/StressPanel.java
@@ -39,6 +39,7 @@
 import convex.core.transactions.ATransaction;
 import convex.core.transactions.Invoke;
 import convex.core.transactions.Multi;
+import convex.core.transactions.Transfer;
 import convex.core.util.Text;
 import convex.core.util.Utils;
 import convex.gui.components.ActionPanel;
@@ -138,7 +139,7 @@ public StressPanel(Convex peerView) {
 		JLabel lblTxType=new JLabel("Transaction Type");
 		txTypeBox=new JComboBox<String>();
 		txTypeBox.addItem("Define Data");
-		// txTypeBox.addItem("Transfer");
+		txTypeBox.addItem("Transfer");
 		// txTypeBox.addItem("AMM Trade");
 		txTypeBox.addItem("Null Op");
 		optionPanel.add(lblTxType);
@@ -341,16 +342,21 @@ protected ATransaction buildTransaction(Address origin, int reqNo) {
 		}
 
 		protected ATransaction buildSubTransaction(int reqNo, int txNo, Address origin) {
+			if (type.equals("Transfer")) {
+				ATransaction t = Transfer.create(origin,-1, origin, 100);
+				return t;
+			}
 
 			StringBuilder tsb = new StringBuilder();
-			if (opCount>1) tsb.append("(do ");
+			if (opCount>1) tsb.append("(loop [i 0] ");
 			for (int j = 0; j < opCount; j++) {
 				switch(type) {
-					case "Define Data": tsb.append("(def a"+j+" "+reqNo+") "); break;
+					case "Define Data": tsb.append("(def a"+txNo+" "+reqNo+") "); break;
 					case "Null Op": tsb.append("nil "); break;
+					default: throw new Error("Bad TX type: "+type);
 				}
 			}
-			if (opCount>1) tsb.append(")");
+			if (opCount>1) tsb.append(" (cond (> i "+opCount+") nil (recur (inc i)) ) )");
 			String source = tsb.toString();
 			ATransaction t = Invoke.create(origin,-1, Reader.read(source));
 			return t;