Javascript4D.dpr

program Javascript4D;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  JS4D.Types in 'Source\Core\JS4D.Types.pas',
  JS4D.Errors in 'Source\Core\JS4D.Errors.pas',
  JS4D.Tokens in 'Source\Lexer\JS4D.Tokens.pas',
  JS4D.Lexer in 'Source\Lexer\JS4D.Lexer.pas',
  JS4D.AST in 'Source\Parser\JS4D.AST.pas',
  JS4D.Parser in 'Source\Parser\JS4D.Parser.pas',
  JS4D.Builtins in 'Source\Runtime\JS4D.Builtins.pas',
  JS4D.Interpreter in 'Source\Runtime\JS4D.Interpreter.pas',
  JS4D.Json in 'Source\API\JS4D.Json.pas',
  JS4D.Engine in 'Source\API\JS4D.Engine.pas';

begin
  try
    var Engine := TJSEngine.Create;
    try
      WriteLn('JavaScript4D - JavaScript Parser & Interpreter for Delphi');
      WriteLn('ECMAScript 5.1 Compatible');
      WriteLn('');

      WriteLn('Test 1: Simple expression');
      var Result := Engine.Evaluate('1 + 2 * 3');
      WriteLn('  1 + 2 * 3 = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 2: Variables');
      Engine.Execute('var x = 10;');
      Result := Engine.Evaluate('x + 5');
      WriteLn('  var x = 10; x + 5 = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 3: Function declaration and call');
      Engine.Execute('function add(a, b) { return a + b; }');
      Result := Engine.Evaluate('add(2, 3)');
      WriteLn('  function add(a, b) { return a + b; } add(2, 3) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 4: Object literals');
      Engine.Execute('var obj = { x: 1, y: 2 };');
      Result := Engine.Evaluate('obj.x + obj.y');
      WriteLn('  var obj = { x: 1, y: 2 }; obj.x + obj.y = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 5: Array literals');
      Engine.Execute('var arr = [1, 2, 3, 4, 5];');
      Result := Engine.Evaluate('arr[2]');
      WriteLn('  var arr = [1, 2, 3, 4, 5]; arr[2] = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 6: Control flow (if statement)');
      Engine.Execute('var result = ""; if (x > 5) { result = "positive"; } else { result = "non-positive"; }');
      Result := Engine.GetVariable('result');
      WriteLn('  if (x > 5) result = "positive" else result = "non-positive" -> result = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 7: For loop');
      Engine.Execute('var sum = 0; for (var i = 1; i <= 5; i++) { sum += i; }');
      Result := Engine.GetVariable('sum');
      WriteLn('  for (var i = 1; i <= 5; i++) sum += i; -> sum = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 8: Math object');
      Result := Engine.Evaluate('Math.sqrt(16) + Math.pow(2, 3)');
      WriteLn('  Math.sqrt(16) + Math.pow(2, 3) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 9: String concatenation');
      Result := Engine.Evaluate('"Hello, " + "World!"');
      WriteLn('  "Hello, " + "World!" = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 10: Console output');
      Engine.Execute('console.log("This is a console.log test");');
      WriteLn('');

      WriteLn('Test 11: Array.map');
      Engine.Execute('var nums = [1, 2, 3, 4, 5];');
      Engine.Execute('var doubled = nums.map(function(x) { return x * 2; });');
      Result := Engine.Evaluate('doubled.join(",")');
      WriteLn('  [1,2,3,4,5].map(x => x*2) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 12: Array.filter');
      Engine.Execute('var evens = nums.filter(function(x) { return x % 2 == 0; });');
      Result := Engine.Evaluate('evens.join(",")');
      WriteLn('  [1,2,3,4,5].filter(x => x%2==0) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 13: Array.reduce');
      Result := Engine.Evaluate('nums.reduce(function(acc, x) { return acc + x; }, 0)');
      WriteLn('  [1,2,3,4,5].reduce((acc,x) => acc+x, 0) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 14: String.split and join');
      Result := Engine.Evaluate('"hello world".split(" ").join("-")');
      WriteLn('  "hello world".split(" ").join("-") = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 15: String.toUpperCase');
      Result := Engine.Evaluate('"hello".toUpperCase()');
      WriteLn('  "hello".toUpperCase() = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 16: Array.find');
      Result := Engine.Evaluate('nums.find(function(x) { return x > 3; })');
      WriteLn('  [1,2,3,4,5].find(x => x>3) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 17: Array.some and every');
      Result := Engine.Evaluate('nums.some(function(x) { return x > 3; })');
      WriteLn('  [1,2,3,4,5].some(x => x>3) = ' + Result.ToString);
      Result := Engine.Evaluate('nums.every(function(x) { return x > 0; })');
      WriteLn('  [1,2,3,4,5].every(x => x>0) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 18: Array.sort');
      Engine.Execute('var unsorted = [3, 1, 4, 1, 5, 9, 2, 6];');
      Result := Engine.Evaluate('unsorted.sort().join(",")');
      WriteLn('  [3,1,4,1,5,9,2,6].sort() = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 19: Object.keys');
      Engine.Execute('var person = { name: "John", age: 30, city: "NYC" };');
      Result := Engine.Evaluate('Object.keys(person).join(",")');
      WriteLn('  Object.keys({name,age,city}) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 20: Object.values');
      Result := Engine.Evaluate('Object.values(person).join(",")');
      WriteLn('  Object.values({name:"John",age:30,city:"NYC"}) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 21: JSON.stringify');
      Result := Engine.Evaluate('JSON.stringify(person)');
      WriteLn('  JSON.stringify(person) = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 22: JSON.parse');
      Engine.Execute('var parsed = JSON.parse(''{"x":1,"y":2}'');');
      Result := Engine.Evaluate('parsed.x + parsed.y');
      WriteLn('  JSON.parse(''{"x":1,"y":2}'').x + .y = ' + Result.ToString);
      WriteLn('');

      WriteLn('Test 23: Array.isArray');
      Result := Engine.Evaluate('Array.isArray([1,2,3])');
      WriteLn('  Array.isArray([1,2,3]) = ' + Result.ToString);
      Result := Engine.Evaluate('Array.isArray("hello")');
      WriteLn('  Array.isArray("hello") = ' + Result.ToString);
      WriteLn('');

      WriteLn('All tests completed successfully!');
    finally
      Engine.Free;
    end;
  except
    on E: Exception do
      WriteLn('Error: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn('');
  WriteLn('Press Enter to exit...');
  ReadLn;
end.