AI Chat Library added, New Package versions

aafent · aafent · commit 1eb1d2c5027a · 2025-11-17T13:24:29.000+02:00
diff --git a/FAST.FBasic.InteractiveConsole/FBasicIC_Setup.cs b/FAST.FBasic.InteractiveConsole/FBasicIC_Setup.cs
@@ -1,14 +1,11 @@
 ﻿using FAST.FBasic.InteractiveConsole.DemoObjects;
 using FAST.FBasic.TemplatingLibrary;
 using FAST.FBasicInteractiveConsole.BusinessCases;
-using FAST.FBasicInteractiveConsole.TestCode;
 using FAST.FBasicInterpreter;
 using FAST.FBasicInterpreter.Types;
 using Microsoft.Data.Sqlite;
-using Microsoft.Extensions.Configuration;
 using System.Dynamic;
 using System.Text.Json;
-using System.Xml.XPath;
 
 namespace FAST.FBasic.InteractiveConsole
 {
@@ -20,6 +17,12 @@ private void setupEnvironment()
             env.DefaultEnvironment(programsFolder);
             env.requestForObjectHandler = (request) =>
             {
+                // (v) Get a string from configuration files
+                string entry = config[$"RequestForObject:{request.Level3Request()}"]!;
+                if (string.IsNullOrEmpty(entry) ) entry = config[$"RequestForObject:{request.Level2Request()}"]!;
+                if (!string.IsNullOrEmpty(entry)) return entry;
+
+                // (v) return Object using HC logic
 
                 if ( request.Level3Request() == "SQL.CONNECTION.MyCursor1")
                 {
@@ -69,6 +72,7 @@ private void setupEnvironment()
                     return emp;
                 }
 
+                // (v) Nothing found, so raise an error
                 Console.WriteLine($"Interactive: THE REQUEST FOR OBJECT NOT FOUND. Context:{request.Context}, Group:{request.Group}, Name:{request.Name}");
 
                 return null;
@@ -85,6 +89,7 @@ private void setupEnvironment()
             env.AddLibrary(new FBasicStreams());
             env.AddLibrary(new FBasicJsonLibrary());
             env.AddLibrary(new FBasicTemplatingLibrary());
+            env.AddLibrary(new FBasicAIChat());
             env.AddVariable("table.column", "myColumn1");
 
             FBasicEvents.Reset();
diff --git a/FAST.FBasic.InteractiveConsole/FBasicSettings.json b/FAST.FBasic.InteractiveConsole/FBasicSettings.json
@@ -5,5 +5,13 @@
   },
   "ConnectionStrings": {
     "DefaultConnection": "Server=myServer;Database=myDB;Trusted_Connection=True;"
+  },
+  "RequestForObject": {
+    "APIKEY.OPENAI": "<Your_API_Key_Here>",
+    "APIKEY.GEMINI": "<Your_API_Key_Here>",
+    "APIKEY.CLAUDE": "<Your_API_Key_Here>",
+    "APIKEY.HUGGINGFACE": "<Your_API_Key_Here>",
+    "APIKEY.TEST": "test"
   }
+
 }
diff --git a/FAST.FBasic.InteractiveConsole/Tests/test.bas b/FAST.FBasic.InteractiveConsole/Tests/test.bas
@@ -1,16 +1,11 @@
 rem
 
-' RETRIEVE array_name, NEW|APPEND, number|*, SQL Data retrieval statement
-retrieve Cust, APPEND, *, "select CustomerID, Name, Email,City from Customers where CustomerID=1"  
-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]
+AiPROVIDER prov, test, *
+AiSESSION chat, prov, "You are an Oceanographer. Provide clear and concise responses, no more that 100 words."
 
+AiPROMPT chat, resp, "What is the whale? reply with up to 20 words" 
 
+print resp
 
 halt
 
diff --git a/FAST.FBasic.LibraryToolkit/AIProvider/AITrace.cs b/FAST.FBasic.LibraryToolkit/AIProvider/AITrace.cs
@@ -1,4 +1,4 @@
-﻿namespace FAST.IAIProvider
+﻿namespace FAST.AIProvider
 {
     /// <summary>
     /// Trace record of AI provider
diff --git a/FAST.FBasic.LibraryToolkit/AIProvider/IAIProvider.cs b/FAST.FBasic.LibraryToolkit/AIProvider/IAIProvider.cs
@@ -1,5 +1,5 @@
 ﻿
-namespace FAST.IAIProvider
+namespace FAST.AIProvider
 {
     /// <summary>
     /// Base interface for all AI providers
diff --git a/FAST.FBasic.LibraryToolkit/AIProvider/IAITraceableProvider.cs b/FAST.FBasic.LibraryToolkit/AIProvider/IAITraceableProvider.cs
@@ -1,4 +1,4 @@
-﻿namespace FAST.IAIProvider
+﻿namespace FAST.AIProvider
 {
     /// <summary>
     /// Traceable AI provider interface
diff --git a/FAST.FBasic.LibraryToolkit/FAST.FBasic.LibraryToolkit.csproj b/FAST.FBasic.LibraryToolkit/FAST.FBasic.LibraryToolkit.csproj
@@ -10,7 +10,7 @@
 	  <Copyright>Global Cloud Services EOOD</Copyright>
 	  <PackageOutputPath>.\Packages</PackageOutputPath>
 	  <PackageId>FAST.FBasicLibraryToolkit</PackageId>
-	  <Version>1.0.2</Version>
+	  <Version>1.0.3</Version>
 	  <Authors>GCS</Authors>
 	  <RepositoryUrl>https://github.com/aafent/FAST.FBasic</RepositoryUrl>
 	  <PackageProjectUrl>https://github.com/aafent/FAST.FBasic/blob/main/README.md</PackageProjectUrl>
diff --git a/FAST.FBasicInterpreter/DataProviders/AIProvider/AIChatSessionManager.cs b/FAST.FBasicInterpreter/DataProviders/AIProvider/AIChatSessionManager.cs
@@ -1,4 +1,4 @@
-﻿namespace FAST.IAIProvider
+﻿namespace FAST.AIProvider
 {
     /// <summary>
     /// Main Session Manager
diff --git a/FAST.FBasicInterpreter/DataProviders/AIProvider/ClaudeProvider.cs b/FAST.FBasicInterpreter/DataProviders/AIProvider/ClaudeProvider.cs
@@ -1,7 +1,7 @@
 ﻿using System.Text;
 using System.Text.Json;
 
-namespace FAST.IAIProvider
+namespace FAST.AIProvider
 {
     /// <summary>
     /// Anthropic Claude Provider
diff --git a/FAST.FBasicInterpreter/DataProviders/AIProvider/GeminiProvider.cs b/FAST.FBasicInterpreter/DataProviders/AIProvider/GeminiProvider.cs
@@ -1,7 +1,7 @@
 ﻿using System.Text;
 using System.Text.Json;
 
-namespace FAST.IAIProvider
+namespace FAST.AIProvider
 {
     // Google Gemini Provider
     public class GeminiProvider : IAIProvider, IAITraceableProvider
diff --git a/FAST.FBasicInterpreter/DataProviders/AIProvider/HuggingFaceProvider.cs b/FAST.FBasicInterpreter/DataProviders/AIProvider/HuggingFaceProvider.cs
@@ -2,7 +2,7 @@
 using System.Text;
 using System.Text.Json;
 
-namespace FAST.IAIProvider
+namespace FAST.AIProvider
 {
     /// <summary>
     /// Hugging Face Inference Providers API (New 2025 API)
diff --git a/FAST.FBasicInterpreter/DataProviders/AIProvider/OpenAIProvider.cs b/FAST.FBasicInterpreter/DataProviders/AIProvider/OpenAIProvider.cs
@@ -2,7 +2,7 @@
 using System.Text;
 using System.Text.Json;
 
-namespace FAST.IAIProvider
+namespace FAST.AIProvider
 {
     /// <summary>
     /// OpenAI GPT Provider
diff --git a/FAST.FBasicInterpreter/DataProviders/AIProvider/README.txt b/FAST.FBasicInterpreter/DataProviders/AIProvider/README.txt
@@ -20,4 +20,4 @@ var hfKey = Environment.GetEnvironmentVariable("HF_API_KEY") ?? "your-key-here";
 var hf = new HuggingFaceProvider(hfKey, "meta-llama/Llama-3.3-70B-Instruct");
 var session = new AIChatSessionManager(hf, systemPrompt);
 var resp = await session.SendPromptAsync("Write a text of 200 words about the sea polution");
-Console.WriteLine($"Response: {resp4}\n");
+Console.WriteLine($"Response: {resp4}\n");
diff --git a/FAST.FBasicInterpreter/DataProviders/AIProvider/TestAIProvider.cs b/FAST.FBasicInterpreter/DataProviders/AIProvider/TestAIProvider.cs
@@ -0,0 +1,37 @@
+﻿namespace FAST.AIProvider
+{
+    // Test Provider
+    public class TestAIProvider : IAIProvider, IAITraceableProvider
+    {
+        public AITrace trace { get; private set; } = new();
+
+        public TestAIProvider(string apiKey, string model = "test")
+        {
+            trace.model=model;
+        }
+
+        public void SetSystemPrompt(string systemPrompt)
+        {
+        }
+
+        public async Task<string> SendMessageAsync(string message)
+        {
+            try
+            { 
+
+                var msg= "Whales are magnificent, diverse marine mammals, not fish. As warm-blooded, air-breathing vertebrates, they are highly adapted to life in the ocean, found in all major oceans from polar to tropical waters.\r\n\r\nThere are two main groups:\r\n1.  **Baleen whales:** Filter feeders that strain tiny organisms like krill and small fish from the water.\r\n2.  **Toothed whales:** Active predators that hunt fish, squid, and other marine mammals using echolocation.\r\n\r\nWhales are intelligent creatures, exhibiting complex social behaviors, vocalizations, and incredible migratory patterns. They play crucial roles in maintaining healthy marine ecosystems. Many species face significant conservation challenges.";
+
+                return msg;
+            }
+            catch (Exception ex)
+            {
+                throw new Exception($"TEST-AI-Provider request failed: {ex.Message}", ex);
+            }
+        }
+
+        public void ClearHistory()
+        {
+        }
+
+    }
+}
diff --git a/FAST.FBasicInterpreter/FAST.FBasicInterpreter.csproj b/FAST.FBasicInterpreter/FAST.FBasicInterpreter.csproj
@@ -10,7 +10,7 @@
     <Copyright>Global Cloud Services EOOD</Copyright>
     <PackageOutputPath>.\Packages</PackageOutputPath>
 	  <PackageId>FAST.FBasicInterpreter</PackageId>
-	  <Version>1.1.2</Version>
+	  <Version>1.1.3</Version>
 	  <Authors>GCS</Authors>
 	  <RepositoryUrl>https://github.com/aafent/FAST.FBasic</RepositoryUrl>
 	  <PackageProjectUrl>https://github.com/aafent/FAST.FBasic/blob/main/README.md</PackageProjectUrl>
diff --git a/FAST.FBasicInterpreter/Libraries/FBasicAIChat.cs b/FAST.FBasicInterpreter/Libraries/FBasicAIChat.cs
@@ -0,0 +1,176 @@
+﻿using FAST.AIProvider;
+
+namespace FAST.FBasicInterpreter
+{
+    /*
+    AIChat:
+        Statements:
+
+        AIPROVIDER provider_name, OPENAI|CLAUDE|GEMINI|HUGGINGFACE|TEST, *|model     :: setup a AI provider and a model. Use * for the default model.
+        AISESSION session_name, provider_name, system_prompt              :: initialize an AI session topic.
+        AIPROMPT session_name, variable_response, prompt                  :: Send a prompt over a session and store the response at a variable
+        AISETPROVIDER session_name, provider_name                         :: Change the initial provider
+     */
+    public class FBasicAIChat : IFBasicLibrary
+    {
+        public void InstallAll(IInterpreter interpreter)
+        {
+            interpreter.AddStatement("AIPROVIDER", AIPROVIDER);
+            interpreter.AddStatement("AISESSION", AISESSION);
+            interpreter.AddStatement("AIPROMPT", AIPROMPT);
+            interpreter.AddStatement("AISETPROVIDER", AISETPROVIDER);
+        }
+
+
+        private static void AIPROVIDER(IInterpreter interpreter)
+        {
+            // Syntax: AIPROVIDER provider_name, OPENAI|CLAUDE|GEMINI|HUGGINGFACE|TEST,  *|model
+            //  
+            interpreter.Match(Token.Identifier);
+            string name = interpreter.lex.Identifier;
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Comma);
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Identifier);
+            string providerNameToUse = interpreter.lex.Identifier;
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Comma);
+            interpreter.GetNextToken();
+
+            Value model;
+            if (interpreter.LastToken == Token.Asterisk) 
+            {
+                model = Value.Wildcard;
+            }
+            else
+            {
+                model = interpreter.ValueOrVariable(doMatch: true);
+            }
+            interpreter.GetNextToken();
+
+            // (v) implementation
+            string apiKey ="";
+            var request = new FBasicRequestForObjectDescriptor(interpreter, context: "APIKEY", providerNameToUse.ToUpper(), model.String);
+            apiKey = interpreter.RequestForObject(request,errorIfNull: true) as string;
+
+            string aiModel = model.String == "*"?null:model.String;
+            IAIProvider provider;
+            switch (providerNameToUse.ToUpper())
+            {
+                case "TEST":
+                    provider = string.IsNullOrEmpty(aiModel) ? new TestAIProvider(apiKey) : new TestAIProvider(apiKey, aiModel);
+                    break;
+                case "OPENAI":
+                    provider = string.IsNullOrEmpty(aiModel)?new OpenAIProvider(apiKey): new OpenAIProvider(apiKey, aiModel);
+                    break;
+                case "CLAUDE":
+                    provider = string.IsNullOrEmpty(aiModel)?new ClaudeProvider(apiKey): new ClaudeProvider(apiKey, aiModel);
+                    break;
+                case "GEMINI":
+                    provider = string.IsNullOrEmpty(aiModel)?new GeminiProvider(apiKey): new GeminiProvider(apiKey, aiModel);
+                    break;
+                case "HUGGINGFACE":
+                    provider = string.IsNullOrEmpty(aiModel)?new HuggingFaceProvider(apiKey):new HuggingFaceProvider(apiKey, aiModel);
+                    break;
+                default:
+                    interpreter.Error("AIChat", Errors.E106_ExpectingKeyword(providerNameToUse, "Expected: CLAUDE,GEMINI or HUGGINGFACE") );
+                    return;
+            }
+
+            interpreter.SetVar(name, new Value(provider, $"::AIProvider::{providerNameToUse}"));
+
+        }
+
+        private static void AISESSION(IInterpreter interpreter)
+        {
+            // Syntax: AISESSION session_name, provider_name, system_prompt
+            // 
+            interpreter.Match(Token.Identifier);
+            string sessionName = interpreter.lex.Identifier;
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Comma);
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Identifier);
+            string providerName = interpreter.lex.Identifier;
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Comma);
+            interpreter.GetNextToken();
+
+            var prompt = interpreter.ValueOrVariable(doMatch: true).String;
+            interpreter.GetNextToken();
+
+            // (v) implementation
+            IAIProvider provider=interpreter.GetVar(providerName).Object as IAIProvider;
+            if (string.IsNullOrWhiteSpace(prompt)) prompt = "Use very short responses. Do not provide long analysis texts";
+            var session = new AIChatSessionManager(provider, prompt);
+
+            interpreter.SetVar(sessionName,new Value(session, $"::AISESSION::"));
+
+        }
+
+
+        private static void AIPROMPT(IInterpreter interpreter)
+        {
+            // Syntax: AIPROMPT session_name, variable_response, prompt
+            // 
+            interpreter.Match(Token.Identifier);
+            string sessionName = interpreter.lex.Identifier;
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Comma);
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Identifier);
+            string responseVariableName = interpreter.lex.Identifier;
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Comma);
+            interpreter.GetNextToken();
+
+            var prompt = interpreter.ValueOrVariable(doMatch: true).String;
+            interpreter.GetNextToken();
+
+            // (v) implementation
+            var session = interpreter.GetVar(sessionName).Object as AIChatSessionManager;
+            if (string.IsNullOrWhiteSpace(prompt)) 
+            {
+                interpreter.SetVar(responseVariableName,Value.Empty);
+                return;
+            }
+            var response = session.SendPromptAsync(prompt).Result;
+            interpreter.SetVar(responseVariableName, new Value(response) );
+        }
+
+        private static void AISETPROVIDER(IInterpreter interpreter)
+        {
+            // Syntax: AISETPROVIDER session_name, provider_name
+            // 
+            interpreter.Match(Token.Identifier);
+            string sessionName = interpreter.lex.Identifier;
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Comma);
+            interpreter.GetNextToken();
+
+            interpreter.Match(Token.Identifier);
+            string providerName = interpreter.lex.Identifier;
+            interpreter.GetNextToken();
+
+            // (v) implementation
+            var session = interpreter.GetVar(sessionName).Object as AIChatSessionManager;
+            var provider = interpreter.GetVar(providerName).Object as IAIProvider;
+
+            session.SwitchProvider(provider);
+        }
+
+
+        
+    }
+
+}
diff --git a/FAST.FBasicInterpreter/ReleaseNotes.md b/FAST.FBasicInterpreter/ReleaseNotes.md
@@ -9,7 +9,9 @@ For **Business and Technical** documentation read the [Wiki page](https://github
 
 | When       | Description                                            |
 |------------|--------------------------------------------------------|
-| 2025-11-16 | Now Arrays supporting the Lazy Initialization Pattern           |
+| 2025-11-17 | New Package version for Interpreter and Toolkit        |
+| 2025-11-17 | AI Chat Library added                                  |
+| 2025-11-16 | Now Arrays supporting the Lazy Initialization Pattern  |
 | 2025-11-16 | New statement RETRIEVE for SQL Data Adapter using lazy initialization |
 | 2025-11-15 | New format specifier D for dates                       |
 | 2025-11-13 | Support for .Net.10.0                                  |

Original file line number	Diff line number	Diff line change
`@@ -5,5 +5,13 @@`
`5`	`5`	`},`
`6`	`6`	`"ConnectionStrings": {`
`7`	`7`	`"DefaultConnection": "Server=myServer;Database=myDB;Trusted_Connection=True;"`
	`8`	`+ },`
	`9`	`+ "RequestForObject": {`
	`10`	`+ "APIKEY.OPENAI": "<Your_API_Key_Here>",`
	`11`	`+ "APIKEY.GEMINI": "<Your_API_Key_Here>",`
	`12`	`+ "APIKEY.CLAUDE": "<Your_API_Key_Here>",`
	`13`	`+ "APIKEY.HUGGINGFACE": "<Your_API_Key_Here>",`
	`14`	`+ "APIKEY.TEST": "test"`
`8`	`15`	`}`
	`16`	`+`
`9`	`17`	`}`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-namespace FAST.IAIProvider`
	`1`	`+namespace FAST.AIProvider`
`2`	`2`	`{`
`3`	`3`	`/// <summary>`
`4`	`4`	`/// Trace record of AI provider`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,5 @@`
`1`	`1`
`2`		`-namespace FAST.IAIProvider`
	`2`	`+namespace FAST.AIProvider`
`3`	`3`	`{`
`4`	`4`	`/// <summary>`
`5`	`5`	`/// Base interface for all AI providers`
Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`using System.Text;`
`2`	`2`	`using System.Text.Json;`
`3`	`3`
`4`		`-namespace FAST.IAIProvider`
	`4`	`+namespace FAST.AIProvider`
`5`	`5`	`{`
`6`	`6`	`/// <summary>`
`7`	`7`	`/// Anthropic Claude Provider`