enforce feature flag for virtual()

Author: ascandone

internal/flags/flags.go

@@ -10,6 +10,7 @@ const (
 	ExperimentalAccountInterpolationFlag     FeatureFlag = "experimental-account-interpolation"
 	ExperimentalMidScriptFunctionCall        FeatureFlag = "experimental-mid-script-function-call"
 	ExperimentalAssetColors                  FeatureFlag = "experimental-asset-colors"
+	ExperimentalVirtualAccount               FeatureFlag = "experimental-virtual-account"
 )
 
 var AllFlags []string = []string{
@@ -20,4 +21,5 @@ var AllFlags []string = []string{
 	ExperimentalAccountInterpolationFlag,
 	ExperimentalMidScriptFunctionCall,
 	ExperimentalAssetColors,
+	ExperimentalVirtualAccount,
 }

internal/interpreter/function_exprs.go

@@ -156,6 +156,12 @@ func getAmount(
 	return mon.Amount, nil
 }
 
-func virtual() Value {
-	return Account{Repr: NewVirtualAccount()}
+func virtual(
+	s *programState,
+) (Value, InterpreterError) {
+	err := s.checkFeatureFlag(flags.ExperimentalVirtualAccount)
+	if err != nil {
+		return nil, err
+	}
+	return Account{Repr: NewVirtualAccount()}, nil
 }

internal/interpreter/interpreter.go

@@ -195,7 +195,7 @@ func (s *programState) handleFnCall(type_ *string, fnCall parser.FnCall) (Value,
 	case analysis.FnVarOriginGetAmount:
 		return getAmount(s, fnCall.Range, args)
 	case analysis.FnVarOriginVirtual:
-		return virtual(), nil
+		return virtual(s)
 
 	default:
 		return nil, UnboundFunctionErr{Name: fnCall.Caller.Name}