Add evict-peer function stub

Author: mikera

convex-core/src/main/cvx/convex/core/metadata.cvx

@@ -548,6 +548,13 @@
  {:doc {:description "Like `eval` but evaluates code in the environment of the specifed account. The current account must have controller privileges to execute this operation (see `set-controller`)."
         :examples    [{:code "(eval-as #666 '(+ 1 2))"}]
         :signature   [{:params [address form]}]}}
+ 
+ evict-peer
+ {:doc {:description "Evicts a peer. Peer must be insufficiently staked, or controlled by this account"
+        :errors      {:CAST "If the first argument is not a valid account-key."}
+        :examples    [{:code "(evict-peer peer-key)"}]
+        :signature   [{:params [peer-key]
+        		      :return Long}]}}
 
  exp
  {:doc {:description "Returns `e` raised to the power of the given numerical argument."

convex-core/src/main/java/convex/core/cvm/impl/InvalidBlockException.java

@@ -2,6 +2,9 @@
 
 import convex.core.exceptions.ValidationException;
 
+/**
+ * Exception thrown when a Block contains invalid structure or data
+ */
 @SuppressWarnings("serial")
 public class InvalidBlockException extends ValidationException {
 

convex-core/src/main/java/convex/core/lang/Context.java

@@ -2041,10 +2041,6 @@ public Context createPeer(AccountKey accountKey, long initialStake) {
 
 		Address myAddress=getAddress();
 
-		// TODO: SECURITY fix
-		// AccountStatus as=getAccountStatus(myAddress);
-		// if (!as.getAccountKey().equals(accountKey)) return this.withArgumentError("Cannot create a peer with a different account-key");
-
 		long balance=getBalance(myAddress);
 		if (initialStake>balance) return this.withFundsError("Insufficient balance ("+balance+") to assign an initial stake of "+initialStake);
 
@@ -2055,6 +2051,15 @@ public Context createPeer(AccountKey accountKey, long initialStake) {
 		s=s.withPeer(accountKey, newPeerStatus); // add peer
 		return withState(s);
 	}
+	
+	public Context evictPeer(AccountKey peerKey) {
+		State s=getState();
+		PeerStatus ps=s.getPeer(peerKey);
+		if (ps==null) {
+			return this;
+		}
+		return withError(ErrorCodes.TODO,"Can't evict peers yet!");
+	}
 
 	/**
 	 * Sets peer data.

convex-core/src/main/java/convex/core/lang/Core.java

@@ -986,7 +986,19 @@ public  Context invoke(Context context, ACell[] args) {
 			return context.createPeer(accountKey, amount.longValue()).consumeJuice(Juice.PEER_UPDATE);
 		}
 	});
+	
+	public static final CoreFn<CVMLong> EVICT_PEER = reg(new CoreFn<>(Symbols.EVICT_PEER,68) {
+		
+		@Override
+		public  Context invoke(Context context, ACell[] args) {
+			if (args.length != 1) return context.withArityError(exactArityMessage(1, args.length));
 
+			AccountKey accountKey = RT.ensureAccountKey(args[0]);
+			if (accountKey == null) return context.withCastError(0,args, Types.BLOB);
+
+			return context.evictPeer(accountKey).consumeJuice(Juice.PEER_UPDATE);
+		}
+	});
 
 	public static final CoreFn<CVMLong> SET_PEER_DATA = reg(new CoreFn<>(Symbols.SET_PEER_DATA,66) {
 

convex-core/src/main/java/convex/core/lang/Symbols.java

@@ -107,6 +107,7 @@ public class Symbols {
 	public static final Symbol CREATE_PEER = intern("create-peer");
 	public static final Symbol SET_PEER_DATA = intern("set-peer-data");
 	public static final Symbol SET_PEER_STAKE = intern("set-peer-stake");
+	public static final Symbol EVICT_PEER = intern("evict-peer");
 
 	public static final Symbol CALL = intern("call");
 	public static final Symbol CALL_STAR = intern("call*");
@@ -344,6 +345,7 @@ public class Symbols {
 
 
 
+