Brummel/MycLib
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

Refactoring Keyword mapping, introducing tuples

Browse Source
This commit is contained in:
Michael Schimmel
2026-01-04 15:29:26 +01:00
parent 700088b5c5
commit 8914d59607
6 changed files with 56 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Test/AST/Test.Myc.Ast.Pipes.pas
+4 -4
View File
@@ -192,7 +192,7 @@ begin
source := CreateSourceSeries('val', TScalar.TKind.Ordinal, [10, 20, 30]);
mockStream := TTestStream.Create(source);
FEnv.RootScope.Define('src', TDataValue.FromStream(mockStream), TTypes.CreateRecordSeries(source.Def));
FEnv.RootScope.Define('src', mockStream, TTypes.CreateRecordSeries(source.Def));
// Act
script := '(pipe [src [:val]] (fn [x] {:res (* x 2)}))';
@@ -225,7 +225,7 @@ begin
source := CreateSourceSeries('val', TScalar.TKind.Ordinal, [1]);
mockStream := TTestStream.Create(source);
FEnv.RootScope.Define('src', TDataValue.FromStream(mockStream), TTypes.CreateRecordSeries(source.Def));
FEnv.RootScope.Define('src', mockStream, TTypes.CreateRecordSeries(source.Def));
script := '(pipe [src [:non_existent]] (fn [x] {:res x}))';
@@ -249,8 +249,8 @@ begin
m1 := TTestStream.Create(s1);
m2 := TTestStream.Create(s2);
FEnv.RootScope.Define('in1', TDataValue.FromStream(m1), TTypes.CreateRecordSeries(s1.Def));
FEnv.RootScope.Define('in2', TDataValue.FromStream(m2), TTypes.CreateRecordSeries(s2.Def));
FEnv.RootScope.Define('in1', m1, TTypes.CreateRecordSeries(s1.Def));
FEnv.RootScope.Define('in2', m2, TTypes.CreateRecordSeries(s2.Def));
// Act
script := '(pipe [in1 [:a] in2 [:b]] (fn [valA valB] {:sum (+ valA valB)}))';
Test/Demo.Finance.pas
+1 -1
View File
@@ -85,7 +85,7 @@ begin
// Für den Compiler ist es eine RecordSeries (Typ), zur Laufzeit ein Stream (Wert)
StaticType := TTypes.CreateRecordSeries(Def);
Scope.Define(VarName, TDataValue.FromStream(Stream), StaticType);
Scope.Define(VarName, Stream, StaticType);
end;
procedure TFinanceSimulator.AddRandomCandle(const Scope: IExecutionScope; const VarName: string);