Magic method ImageFromString. Eventually needs to be replaced by addi…

…ng const methods to lape.

Source/Simba.lpi

@@ -380,7 +380,7 @@
         <PackageName Value="LCL"/>
       </Item5>
     </RequiredPackages>
-    <Units Count="122">
+    <Units Count="123">
       <Unit0>
         <Filename Value="Simba.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -956,6 +956,10 @@
         <Filename Value="hash/simba.hash_crc64.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit121>
+      <Unit122>
+        <Filename Value="script/simba.script_compiler_imagefromstring.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit122>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

Source/script/simba.script_compiler.pas

@@ -56,7 +56,7 @@ implementation
 
 uses
   lpeval,
-  simba.script_imports, simba.script_compiler_sleepuntil, simba.script_compiler_rtti;
+  simba.script_imports, simba.script_compiler_sleepuntil, simba.script_compiler_rtti, simba.script_compiler_imagefromstring;
 
 function TSimbaScript_Compiler.addGlobalFunc(Header: lpString; Body: TStringArray): TLapeTree_Method;
 var
@@ -130,6 +130,7 @@ procedure TSimbaScript_Compiler.Import;
 
     ImportingSection := 'System';
 
+    InitializeImageFromString(Self);
     InitializeSleepUntil(Self);
     InitializeFFI(Self);
     InitializeRTTI(Self);

Source/script/simba.script_compiler_imagefromstring.pas

@@ -0,0 +1,68 @@
+{
+  Author: Raymond van Venetië and Merlijn Wajer
+  Project: Simba (https://github.com/MerlijnWajer/Simba)
+  License: GNU General Public License (https://www.gnu.org/licenses/gpl-3.0)
+}
+unit simba.script_compiler_imagefromstring;
+
+{$i simba.inc}
+
+interface
+
+uses
+  classes, sysutils,
+  lpcompiler;
+
+procedure InitializeImageFromString(Compiler: TLapeCompiler);
+
+implementation
+
+uses
+  lptypes, lptree, lpvartypes, lpmessages,
+  simba.image;
+
+type
+  TLapeTree_InternalMethod_ImageFromString = class(TLapeTree_InternalMethod)
+  public
+    function resType: TLapeType; override;
+    function Evaluate: TLapeGlobalVar; override;
+    constructor Create(ACompiler: TLapeCompilerBase; ADocPos: PDocPos=nil); override;
+  end;
+
+procedure InitializeImageFromString(Compiler: TLapeCompiler);
+begin
+  Compiler.InternalMethodMap['ImageFromString'] := TLapeTree_InternalMethod_ImageFromString;
+end;
+
+function TLapeTree_InternalMethod_ImageFromString.resType: TLapeType;
+begin
+  if (FResType = nil) then
+    FResType := FCompiler.getGlobalType('TImage');
+  Result := inherited;
+end;
+
+function TLapeTree_InternalMethod_ImageFromString.Evaluate: TLapeGlobalVar;
+var
+  Param: TLapeGlobalVar;
+begin
+  if (FParams.Count <> 1) then
+    LapeExceptionFmt(lpeWrongNumberParams, [1], DocPos);
+  Param := FParams[0].Evaluate;
+  if (Param.BaseType <> ltAnsiString) then
+    LapeExceptionFmt(lpeExpected, ['String parameter'], DocPos);
+
+  Result := resType().NewGlobalVarP();
+
+  PSimbaImage(Result.Ptr)^ := TSimbaImage.CreateFromString(PAnsiString(Param.Ptr)^);
+  PSimbaImage(Result.Ptr)^.FreeOnTerminate := True;
+end;
+
+constructor TLapeTree_InternalMethod_ImageFromString.Create(ACompiler: TLapeCompilerBase; ADocPos: PDocPos);
+begin
+  inherited Create(ACompiler, ADocPos);
+
+  FConstant := bTrue;
+end;
+
+end.
+