ERROR statement in Events Library

Author: aafent

FAST.FBasic.InteractiveConsole/Tests/test.bas

@@ -5,6 +5,8 @@ retrieve Cust, APPEND, *, "select CustomerID, Name, Email,City from Customers wh
 retrieve Cust, APPEND, 1, "select CustomerID, Name, Email,City from Customers"  
 retrieve Cust, APPEND, 2, "select CustomerID, Name, Email,City from Customers"  
 
+Error 1,"Not found"
+
 print "Count="+ubound("Cust")
 print [Cust.CustomerID]+": Name:"+[Cust.Name]+", Email: "+[Cust.Email]
 

FAST.FBasic.LibraryToolkit/Core/Errors.cs

@@ -2,6 +2,10 @@
 {
     public static class Errors
     {
+        public static string E001_UserError(string msg)
+        {
+            return $"{msg} [E001].";
+        }
 
         public static string E100_RequestForObjectHandlerNotInstalled(IFBasicRequestForObjectDescriptor request =null, string more="")
         {

FAST.FBasicInterpreter/Libraries/FBasicEvents.cs

@@ -5,6 +5,7 @@
         Statements:
 
         RAISEEVENT event_name [, parameter1, parameter2, ...]	Triggers an event named event_name and optionally passes data (parameters) to any registered handlers. 
+        ERROR RESULTVALUE, error_message
      */
     public class FBasicEvents : IFBasicLibrary
     {
@@ -17,6 +18,7 @@ public class FBasicEvents : IFBasicLibrary
         public void InstallAll(IInterpreter interpreter)
         {
             interpreter.AddStatement("RAISEEVENT", RaiseEvent);
+            interpreter.AddStatement("ERROR", RaiseError);
         }
 
 
@@ -80,6 +82,22 @@ private static void RaiseEvent(IInterpreter interpreter)
 
         }
 
+        private static void RaiseError(IInterpreter interpreter)
+        {
+            //Syntax: Error RESULTVALUE, error_message
+            interpreter.SetVar("RESULTVALUE",interpreter.ValueOrVariable(true));
+
+            interpreter.GetNextToken();
+            interpreter.MatchAndThenNextToken(Token.Comma);
+
+            var msg= interpreter.ValueOrVariable(true).ToString();
+
+            interpreter.Error($"",Errors.E001_UserError(msg));
+            return;
+
+        }
+
+
     }
 
 }