Restructure some imports

Source/forms/simba.functionlistform.pas

@@ -82,6 +82,10 @@     TFunctionListState = record
     function AddPluginDecl(ParentNode: TTreeNode; Decl: TDeclaration): TTreeNode;
 
     procedure AddSimbaNodes;
+
+    procedure ArrangeBaseNodes;
+
+    function CompareNodes(A, B: TTreeNode): Integer;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -663,13 +667,119 @@ procedure TSimbaFunctionListForm.AddSimbaNodes;
         AddSimbaDecl(ParentNode, Decl);
   end;
 
+  ParentNode := FSimbaNode.FindNode('Base');
+  if Assigned(ParentNode) then
+    ParentNode.CustomSort(@CompareNodes);
+
+  ArrangeBaseNodes();
+
   FSimbaNode.AlphaSort();
   FSimbaNode.Expanded := True; // This needs to be on main thread it seems?
 
   FTreeView.Loading := False;
   FTreeView.EndUpdate();
 end;
 
+procedure TSimbaFunctionListForm.ArrangeBaseNodes;
+var
+  BaseNode: TTreeNode;
+  Cur: Integer = 0;
+
+  procedure MoveToTop(const NodeText: String);
+  var
+    Node: TTreeNode;
+  begin
+    Node := BaseNode.FindNode(NodeText);
+    if not Assigned(Node) then
+    begin
+      DebugLn('ArrangeBaseNodes: Not found: ' + NodeText);
+      Exit;
+    end;
+
+    Node.Index := Cur;
+    Inc(Cur);
+  end;
+
+begin
+  BaseNode := FSimbaNode.FindNode('Base');
+  if (BaseNode = nil) then
+    Exit;
+
+  MoveToTop('Integer');
+  MoveToTop('Byte');
+  MoveToTop('Char');
+  MoveToTop('Boolean');
+
+  MoveToTop('Int8');
+  MoveToTop('Int16');
+  MoveToTop('Int32');
+  MoveToTop('Int64');
+  MoveToTop('UInt8');
+  MoveToTop('UInt16');
+  MoveToTop('UInt32');
+  MoveToTop('UInt64');
+
+  MoveToTop('NativeInt');
+  MoveToTop('NativeUInt');
+  MoveToTop('SizeInt');
+  MoveToTop('SizeUInt');
+  MoveToTop('PtrInt');
+  MoveToTop('PtrUInt');
+
+  MoveToTop('Single');
+  MoveToTop('Double');
+  MoveToTop('Currency');
+
+  MoveToTop('ByteBool');
+  MoveToTop('WordBool');
+  MoveToTop('LongBool');
+  MoveToTop('EvalBool');
+
+  MoveToTop('AnsiChar');
+  MoveToTop('WideChar');
+
+  MoveToTop('string');
+  MoveToTop('ShortString');
+  MoveToTop('AnsiString');
+  MoveToTop('WideString');
+  MoveToTop('UnicodeString');
+
+  MoveToTop('Pointer');
+  MoveToTop('ConstPointer');
+
+  MoveToTop('TByteArray');
+  MoveToTop('TBooleanArray');
+  MoveToTop('TSingleArray');
+  MoveToTop('TDoubleArray');
+  MoveToTop('TIntegerArray');
+  MoveToTop('TInt64Array');
+  MoveToTop('TStringArray');
+
+  MoveToTop('T2DIntegerArray');
+  MoveToTop('T2DStringArray');
+end;
+
+function TSimbaFunctionListForm.CompareNodes(A, B: TTreeNode): Integer;
+begin
+  Result := CompareText(A.Text, B.Text);
+
+  case A.ImageIndex of
+    IMG_TYPE:  Dec(Result, 2000);
+    IMG_CONST: Dec(Result, 1500);
+    IMG_VAR:   Dec(Result, 1000);
+    IMG_PROC:  Dec(Result, 500);
+    IMG_FUNC:  Dec(Result, 500);
+  end;
+
+  case B.ImageIndex of
+    IMG_TYPE:  Inc(Result, 2000);
+    IMG_CONST: Inc(Result, 1500);
+    IMG_VAR:   Inc(Result, 1000);
+    IMG_PROC:  Inc(Result, 500);
+    IMG_FUNC:  Inc(Result, 500);
+  end;
+end;
+
 procedure TSimbaFunctionListForm.DoIdleBegin(Sender: TObject);
 begin
   FIsIdle := True;

Source/image/simba.image_stringconv.pas

@@ -28,7 +28,7 @@ interface
     Name: String[128];
   end;
 
-procedure SimbaImage_FromString(Image: TSimbaImage; const Str: String);
+procedure SimbaImage_FromString(Image: TSimbaImage; Str: String);
 function SimbaImage_ToString(Image: TSimbaImage): String;
 
 implementation
@@ -37,7 +37,7 @@ implementation
   FPReadPNG, FPWritePNG,
   simba.encoding, simba.image_lazbridge;
 
-procedure SimbaImage_FromString(Image: TSimbaImage; const Str: String);
+procedure SimbaImage_FromString(Image: TSimbaImage; Str: String);
 var
   Stream: TStringStream;
   Header: TImageStringHeader;

Source/script/imports/simba.import_misc.pas

@@ -14,15 +14,39 @@ implementation
 
 uses
   clipbrd, lptypes,
-  simba.nativeinterface,
-  simba.settings, simba.compress, simba.encoding;
+  simba.nativeinterface, simba.settings, simba.compress, simba.encoding, simba.env;
 
 (*
 Misc
 ====
 Miscellaneous methods that dont go in any other sections.
 *)
 
+(*
+SimbaEnv
+--------
+```
+type
+  SimbaEnv = record
+    const SimbaPath       = 'PathToSimbaDir';
+    const IncludesPath    = 'PathToSimbaDir/Includes';
+    const PluginsPath     = 'PathToSimbaDir/Plugins';
+    const ScriptsPath     = 'PathToSimbaDir/Scripts';
+    const ScreenshotsPath = 'PathToSimbaDir/Screenshots';
+    const DataPath        = 'PathToSimbaDir/Data';
+    const TempPath        = 'PathToSimbaDir/Data/Temp';
+  end;
+```
+
+Record which contains constants to Simba environment paths.
+
+*Example:*
+
+```
+WriteLn(SimbaEnv.ScriptsPath);
+```
+*)
+
 (*
 ClearSimbaOutput
 ----------------
@@ -151,6 +175,18 @@ procedure ImportMisc(Compiler: TSimbaScript_Compiler);
   begin
     ImportingSection := 'Misc';
 
+    addGlobalType([
+      'record',
+      '  const SimbaPath       = "' + SimbaEnv.SimbaPath       + '";',
+      '  const IncludesPath    = "' + SimbaEnv.IncludesPath    + '";',
+      '  const PluginsPath     = "' + SimbaEnv.PluginsPath     + '";',
+      '  const ScriptsPath     = "' + SimbaEnv.ScriptsPath     + '";',
+      '  const ScreenshotsPath = "' + SimbaEnv.ScreenshotsPath + '";',
+      '  const DataPath        = "' + SimbaEnv.DataPath        + '";',
+      '  const TempPath        = "' + SimbaEnv.TempPath        + '";',
+      'end;'
+    ], 'SimbaEnv');
+
     addGlobalFunc(
       'procedure SetSimbaTitle(S: String);', [
       'begin',

Source/script/imports/simba.import_process.pas

@@ -142,6 +142,33 @@ procedure _LapeTerminateProcess(const Params: PParamArray; const Result: Pointer
   SimbaProcess.TerminateProcess(PProcessID(Params^[0])^);
 end;
 
+procedure _LapeGetEnvVar(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PString(Result)^ := GetEnvironmentVariable(PString(Params^[0])^);
+end;
+
+procedure _LapeGetEnvVars(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+
+  function _GetEnvVars: TStringArray;
+  var
+    Count, I: Integer;
+  begin
+    Count := 0;
+
+    SetLength(Result, GetEnvironmentVariableCount() + 1);
+    for I := 1 to GetEnvironmentVariableCount() do
+      if (GetEnvironmentString(I) <> '') then
+      begin
+        Result[Count] := GetEnvironmentString(I);
+        Inc(Count);
+      end;
+    SetLength(Result, Count);
+  end;
+
+begin
+  PStringArray(Result)^ := _GetEnvVars();
+end;
+
 procedure ImportProcess(Compiler: TSimbaScript_Compiler);
 begin
   with Compiler do
@@ -163,6 +190,9 @@ procedure ImportProcess(Compiler: TSimbaScript_Compiler);
     addGlobalFunc('function RunCommand(Executable: String; Commands: TStringArray): TProcessID; overload', @_LapeRunCommand);
     addGlobalFunc('function RunCommandTimeout(Executable: String; Commands: TStringArray; out Output: String; Timeout: Integer): Boolean', @_LapeRunCommandTimeout);
 
+    addGlobalFunc('function GetEnvVar(Name: String): String', @_LapeGetEnvVar);
+    addGlobalFunc('function GetEnvVars: TStringArray', @_LapeGetEnvVars);
+
     ImportingSection := '';
   end;
 end;

Source/script/imports/simba.import_random.pas

@@ -36,9 +36,28 @@ implementation
 Methods relating to generating random numbers.
 *)
 
+(*
+Random
+------
+> function Random: Double;'
+*)
+
+(*
+Random
+------
+> function Random(l: Int64): Int64;
+*)
+
+(*
+Random
+------
+> function Random(min, max: Int64): Int64;
+> function Random(min, max: Double): Double;
+*)
+
 (*
 RandSeed
-----------
+--------
 > var RandSeed: UInt32;
 
 The random seed used for all random number generation.

Source/script/imports/simba.import_script.pas

@@ -188,6 +188,17 @@ procedure ImportScript(Compiler: TSimbaScript_Compiler);
   begin
     ImportingSection := 'Script';
 
+    // Assigned later in `TSimbaScript.Run`
+    addGlobalVar('String', '', 'SCRIPT_FILE').isConstant := True;
+    addGlobalVar('UInt64', '0', 'SCRIPT_START_TIME').isConstant := True;
+
+    addDelayedCode([
+      'function GetTimeRunning: UInt64;',
+      'begin',
+      '  Result := GetTickCount() - SCRIPT_START_TIME;',
+      'end;'
+    ]);
+
     addGlobalFunc('function RunScript(Script: String; Parameters: TStringArray; out Output: String): TProcessExitStatus; overload', @_LapeRunScript);
     addGlobalFunc('function RunScript(Script: String; Parameters: TStringArray): TProcessID; overload', @_LapeRunScriptEx);
     addGlobalFunc('function RunScriptOutputToFile(Script: String; Parameters: TStringArray; OutputFileName: String): TProcessID', @_LapeRunScriptOutputToFile);