* Add wasm-job for webassembly

packages/fpmake_add.inc

@@ -156,4 +156,4 @@
   add_fcl_css(ADirectory+IncludeTrailingPathDelimiter('fcl-css'));
   add_gstreamer(ADirectory+IncludeTrailingPathDelimiter('gstreamer'));
   add_testinsight(ADirectory+IncludeTrailingPathDelimiter('testinsight'));
-  
+  add_wasm_job(ADirectory+IncludeTrailingPathDelimiter('wasm-job'));

packages/fpmake_proc.inc

@@ -876,7 +876,15 @@ begin
 {$include gstreamer/fpmake.pp}
 end;
 
+procedure add_wasm_job(const ADirectory: string);
+begin
+  with Installer do
+{$include wasm-job/fpmake.pp}
+end;
+
 {$include testinsight/fpmake.pp}
 
 {$include ide/fpmake.pp}
 {$include gitlab/fpmake.pp}
+
+

packages/wasm-job/fpmake.pp

@@ -0,0 +1,35 @@
+{$ifndef ALLPACKAGES}
+{$mode objfpc}{$H+}
+program fpmake;
+
+uses {$ifdef unix}cthreads,{$endif} fpmkunit;
+
+Var
+  P : TPackage;
+  T : TTarget;
+begin
+  With Installer do
+    begin
+{$endif ALLPACKAGES}
+
+    P:=AddPackage('wasm-job');
+    P.Dependencies.Add('rtl-objpas');
+    P.ShortName:='wasmjob';
+    P.Description := 'Javascript Object Bindings units for webassembly.';
+{$ifdef ALLPACKAGES}
+    P.Directory:=ADirectory;
+{$endif ALLPACKAGES}
+    P.Version:='3.3.1';
+    P.SourcePath.Add('src');
+    P.OSes := [wasi];
+    P.CPUs:=[wasm32];
+    T:=P.Targets.AddUnit('job.shared.pas');
+    T:=P.Targets.AddUnit('job.js.pas');
+    T.Dependencies.AddUnit('job.shared');
+    P.NamespaceMap:='namespaces.lst';
+    
+{$ifndef ALLPACKAGES}
+    Run;
+    end;
+end.
+{$endif ALLPACKAGES}

packages/wasm-job/namespaced/Wasm.Job.Js.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit Wasm.Job.Js;
+{$i job.js.pas}

packages/wasm-job/namespaced/Wasm.Job.Shared.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit Wasm.Job.Shared;
+{$i job.shared.pas}

packages/wasm-job/src/job.shared.pas

@@ -0,0 +1,120 @@
+{
+  JOB - JS Object Bridge for Webassembly
+
+  These types and constants are shared between pas2js and webassembly.
+}
+{$IFNDEF FPC_DOTTEDUNITS}
+unit JOB.Shared;
+{$ENDIF}
+
+interface
+
+type
+  TJOBObjectID = NativeInt;
+  TJOBObjectIDArray = array of TJOBObjectID;
+
+// invoke results
+type
+  TJOBResult = longint;
+const
+  JOBResult_None = 0;
+  JOBResult_Success = 1;
+  JOBResult_UnknownObjId = 2;
+  JOBResult_NotAFunction = 3;
+  JOBResult_WrongArgs = 4;
+  JOBResult_Undefined = 5;
+  JOBResult_Null = 6;
+  JOBResult_Boolean = 7;
+  JOBResult_Double = 8;
+  JOBResult_String = 9;
+  JOBResult_Function = 10;
+  JOBResult_Object = 11;
+  JOBResult_BigInt = 12;
+  JOBResult_Symbol = 13;
+  JOBResult_ArrayOfString = 14;
+
+  JOBResultLast = 14;
+
+  JOBResult_Names: array[0..JOBResultLast] of string = (
+    'None',
+    'Success',
+    'UnknownObjId',
+    'NotAFunction',
+    'WrongArgs',
+    'Undefined',
+    'Null',
+    'Boolean',
+    'Double',
+    'String',
+    'Function',
+    'Object',
+    'BigInt',
+    'Symbol',
+    'ArrayOfString'
+    );
+
+  JOBExportName = 'job';
+  JOBFn_GetGlobal = 'get_registered';
+  JOBFn_InvokeNoResult = 'invoke_noresult';
+  JOBFn_InvokeBooleanResult = 'invoke_boolresult';
+  JOBFn_InvokeDoubleResult = 'invoke_doubleresult';
+  JOBFn_InvokeStringResult = 'invoke_stringresult';
+  JOBFn_GetStringResult = 'get_stringresult';
+  JOBFn_InvokeArrayStringResult = 'invoke_arraystringresult';
+  JOBFn_ReleaseStringResult = 'release_stringresult';
+  JOBFn_InvokeObjectResult = 'invoke_objectresult';
+  JOBFn_ReleaseObject = 'release_object';
+  JOBFn_InvokeJSValueResult = 'invoke_jsvalueresult';
+  JOBFn_CallbackHandler = 'JOBCallback';
+
+  JOBArgUndefined = 0;
+  JOBArgLongint = 1;
+  JOBArgDouble = 2;
+  JOBArgTrue = 3;
+  JOBArgFalse = 4;
+  JOBArgChar = 5; // followed by a word
+  JOBArgString = 6; // followed by length and UTF-16 data
+  JOBArgUnicodeString = 7; // followed by length and pointer
+  JOBArgNil = 8;
+  JOBArgPointer = 9;
+  JOBArgObject = 10; // followed by ObjectID
+  JOBArgMethod = 11; // followed by Callback, Data, Code
+  JOBArgDictionary = 12; // followed by count and pairs
+  JOBArgArrayOfJSValue = 13; // followed by count and values
+  JOBArgArrayOfDouble = 14; // followed by count and pointer
+
+  JOBArgNames: array[0..14] of string = (
+    'Undefined',
+    'Longint',
+    'Double',
+    'True',
+    'False',
+    'Char',
+    'UTF8String',
+    'UnicodeString',
+    'Nil',
+    'Pointer',
+    'Object',
+    'Method',
+    'Dictionary',
+    'ArrayOfJSValue',
+    'ArrayOfDouble'
+    );
+
+  JOBInvokeCall = 0; // call function
+  JOBInvokeGet = 1; // read property
+  JOBInvokeGetTypeOf = 2; // read property and typeof
+  JOBInvokeSet = 3; // set property
+  JOBInvokeNew = 4; // new operator
+
+  JOBInvokeNames: array[0..4] of string = (
+    'Call',
+    'Get',
+    'GetTypeOf',
+    'Set',
+    'New'
+    );
+
+implementation
+
+end.