PascalAI.exe run scripts\hello.pai

// hello.pai
program Hello;
begin
  WriteLn('Hello from PascalAI!');
  var x := 6 * 7;
  WriteLn('6 × 7 = ' + IntToStr(x));
end.

program AskLLM;
begin
  var answer := LLM_Complete('What is the capital of France? Answer in one word.');
  WriteLn('Answer: ' + answer);
end.

program Summarizer;

agent Writer
  providers begin
    primary:  'openai/gpt-4o-mini'
    fallback: 'anthropic/claude-haiku-4-5'
    budget:   5000
  end

  behaviour oneshot
  begin
    var raw := BB.GetStr('input');
    BB.SetStr('summary', LLM_Complete('Summarize in 2 sentences: ' + raw));
  end
end.

type TProduct = record
  Name    : string;
  Price   : Double;
  InStock : Boolean;
end;

var p := LLM_JSON<TProduct>('Extract product from: "Blue pen, $1.99, available"');
WriteLn(p.Name + '  $' + FloatToStr(p.Price));

var h1 := LLM_Async('Translate to French: Hello world');
var h2 := LLM_Async('Translate to German: Hello world');
LLM_AwaitAll;
WriteLn('FR: ' + LLM_Await(h1));
WriteLn('DE: ' + LLM_Await(h2));

Mem_VInit('memory');
Mem_VStore('PascalAI was created in 2025', '{"source":"docs"}');
Mem_VStore('The language compiles to Lape bytecode', '{"source":"docs"}');

var ctx := Mem_VSearchText('what VM does PascalAI use?', 3);
WriteLn(LLM_Complete('Answer using only this context: ' + ctx));

// Declare a function from a .dll / .so
external function sqlite3_libversion: string; from 'libpai_sqlite';

WriteLn('SQLite version: ' + sqlite3_libversion);

uses
  PAI.ScriptSession,  // TPAIScriptSession
  PAI.Runtime;        // TPAIRuntime (only if sharing a runtime)

// No session management needed for simple cases
var R := TPAIScriptSession.Eval('run begin export result := 6 * 7; end.');
ShowMessage(R);  // '42'

var R2 := TPAIScriptSession.EvalWith(
  'run begin export r := nombre + '' '' + IntToStr(edad); end.',
  ['nombre', 'Gustavo', 'edad', 38]
);
// R2 = 'Gustavo 38'

// script.pai
program Saludo;
run
begin
  // 'nombre' and 'repeticiones' are injected by the host
  var s := '';
  for var i := 1 to repeticiones do
    s := s + 'Hola, ' + nombre + '! ';
  export saludo := Trim(s);  // 'export' sends the value back to Delphi
end.

// Delphi host
var Session := TPAIScriptSession.Create;
try
  Session.SetStr('nombre', EditNombre.Text);
  Session.SetInt('repeticiones', SpinEdit.Value);
  Session.LoadFile('scripts\script.pai');
  Session.Run;
  ShowMessage(Session.GetOutputStr('saludo'));
finally
  Session.Free;
end;

// All published properties and whitelisted methods become PAI functions
Session.ExposeObject('Bar', ProgressBar, [], {AQueueToMain=}True);

// Runs safely in a background thread — UI calls are queued to the main thread
TTask.Run(procedure begin
  Session.LoadSource('run begin Bar_SetPosition(75); end.');
  Session.Run;
end);

Session.RegisterFunc('FormatCurrency', 'amount: Double', 'string',
  function(A: TArray<Variant>): Variant
  begin
    Result := FormatFloat('$#,##0.00', Double(A[0]));
  end
);

// script.pai
run begin
  export precio := FormatCurrency(1234.5);  // '$1,234.50'
end.

// Load the script as a library (no run block)
Session.LoadSource(
  'program MiLib;'                                      + sLineBreak +
  'function Cuadrado(n: Int64): Int64;'                 + sLineBreak +
  'begin Result := n * n; end;'
);
Session.Run;

// Call specific functions directly, multiple times without recompiling
var R := Session.CallFunc<Int64>('Cuadrado', [Int64(9)]);  // 81

git clone https://github.com/gustavoeenriquez/PascalAI
cd PascalAI

# Clone Lape dependency
mkdir vendor
git clone https://github.com/nielsAD/lape vendor/lape

# Open host/PascalAI.dproj in the Delphi IDE and Build (Win64 Release)
# Or via MSBuild:
call "C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\rsvars.bat"
msbuild host\PascalAI.dproj /t:Build /p:Config=Release /p:Platform=Win64

PascalAI/
  compiler/        Lexer ��� Parser ��� AST ��� SemanticAnalyzer ��� CodeGen ��� Compiler
  runtime/
    core/          Runtime, GraphEngine, AgentScheduler
    memory/        Blackboard, VQL, RAG, 5 memory types
    stdlib/        IO, Data, Prompts, Skills
  bridge/          LapeBridge, LLMBridge, LLMProvider, ClibBridge
  debug/           WebSocket debug server + viewer.html
  host/            PascalAI.dpr ��� the pai.exe binary
  docs/            Integration guide (.md + .docx + gen_docx.py)
  tests/examples/  180+ demo scripts
  vendor/lape/     Lape bytecode interpreter

# Windows
tests\run_demos.ps1

# Linux / macOS
bash tests/run_demos.sh