Initial import

code/DecisionHostText.pas

@@ -0,0 +1,22 @@
+unit DecisionHostText;
+{$mode objfpc}{$H+}
+{$ifndef ANDROID}{$fatal Android-only text provider probe}{$endif}
+interface
+implementation
+uses cwstring,fpjson,CastleWindow,ProbeReport,ProbePlatform,ProbeTextProvider;
+var Window:TCastleWindow;
+procedure Initialize;
+var R:TProbeReport;Dir:string;
+begin
+  R:=TProbeReport.Create;
+  try
+    Dir:=ProbeDirectory;R.Root.Add('report_directory',Dir);
+    R.Add('android.startup','PASS','Pinned FPC text-provider host initialized');
+    R.Add('decision.text.cwstring_unit','PASS','cwstring unit linked and initialized for Android target');
+    RunTextProviderChecks(R);R.Save(Dir+'runtime.json');
+  finally R.Free;end;
+end;
+initialization
+  Application.OnInitialize:=@Initialize;
+  Window:=TCastleWindow.Create(Application);Application.MainWindow:=Window;
+end.