paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 08:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

wasmjob: merged job_wasm into job_js, moved job_shared and job_browser to packages/job

Browse Source
This commit is contained in:
mattias 2022-07-13 15:27:24 +02:00
parent 211f4021eb
commit eb74dbf3b0
12 changed files with 1973 additions and 1981 deletions

11
demo/wasienv/button/BrowserButton1.lpi
View File

@ -36,17 +36,22 @@
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="../button/index.html"/>
<Filename Value="index.html"/>
<IsPartOfProject Value="True"/>
<CustomData Count="1">
<Item0 Name="PasJSIsProjectHTMLFile" Value="1"/>
</CustomData>
</Unit>
<Unit>
<Filename Value="../dom/job_browser.pp"/>
<Filename Value="../../../packages/job/job_browser.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_Browser"/>
</Unit>
<Unit>
<Filename Value="../../../packages/job/job_shared.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_Shared"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
@ -56,7 +61,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="../dom"/>
<OtherUnitFiles Value="../../../packages/job"/>
<UnitOutputDirectory Value="js"/>
</SearchPaths>
<Parsing>

2
demo/wasienv/button/BrowserButton1.lpr
View File

@ -4,7 +4,7 @@ program BrowserButton1;
uses
BrowserConsole, BrowserApp, JS, Classes, SysUtils, Web, WebAssembly, Types,
WasiEnv, JOB_Browser, JOB_Shared;
WasiEnv, JOB_Shared, JOB_Browser;
Type

12
demo/wasienv/button/WasiButton1.lpi
View File

@ -28,11 +28,6 @@
<Filename Value="WasiButton1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="../dom/job_wasm.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_WAsm"/>
</Unit>
<Unit>
<Filename Value="../dom/job_web.pas"/>
<IsPartOfProject Value="True"/>
@ -43,6 +38,11 @@
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_JS"/>
</Unit>
<Unit>
<Filename Value="../../../packages/job/job_shared.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_Shared"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
@ -52,7 +52,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="../dom"/>
<OtherUnitFiles Value="../dom;../../../packages/job"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>

4
demo/wasienv/button/WasiButton1.lpr
View File

@ -5,7 +5,7 @@ library WasiButton1;
{$codepage UTF8}
uses
SysUtils, JOB_WAsm, JOB_Shared, JOB_Web, JOB_JS;
SysUtils, JOB_Shared, JOB_Web, JOB_JS;
type
@ -58,7 +58,7 @@ end;
// workaround: fpc wasm does not yet support exporting functions from units
function JOBCallback(const Func: TJOBCallback; Data, Code: Pointer; Args: PByte): PByte;
begin
Result:=JOB_WAsm.JOBCallback(Func,Data,Code,Args);
Result:=JOB_JS.JOBCallback(Func,Data,Code,Args);
end;
exports

8
demo/wasienv/dom/BrowserDomTest1.lpi
View File

@ -42,10 +42,15 @@
</CustomData>
</Unit>
<Unit>
<Filename Value="job_browser.pp"/>
<Filename Value="../../../packages/job/job_browser.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_Browser"/>
</Unit>
<Unit>
<Filename Value="../../../packages/job/job_shared.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_Shared"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
@ -55,6 +60,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="../../../packages/job"/>
<UnitOutputDirectory Value="js"/>
</SearchPaths>
<Parsing>

2
demo/wasienv/dom/BrowserDomTest1.lpr
View File

@ -4,7 +4,7 @@ program BrowserDomTest1;
uses
BrowserConsole, BrowserApp, JS, Classes, SysUtils, Web, WebAssembly, Types,
wasienv, job_browser, job_shared;
wasienv, job_shared, JOB_Browser;
Type

11
demo/wasienv/dom/WasiDomTest1.lpi
View File

@ -28,11 +28,6 @@
<Filename Value="WasiDomTest1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="job_wasm.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_WAsm"/>
</Unit>
<Unit>
<Filename Value="job_web.pas"/>
<IsPartOfProject Value="True"/>
@ -43,6 +38,11 @@
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_JS"/>
</Unit>
<Unit>
<Filename Value="../../../packages/job/job_shared.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="JOB_Shared"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
@ -52,6 +52,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="../../../packages/job"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>

6
demo/wasienv/dom/WasiDomTest1.lpr
View File

@ -5,7 +5,7 @@ library WasiDomTest1;
{$codepage UTF8}
uses
SysUtils, JOB_WAsm, JOB_Shared, JOB_Web, JOB_JS;
SysUtils, JOB_Shared, JOB_Web, JOB_JS;
type
@ -66,7 +66,7 @@ begin
exit;
obj:=TJSObject.CreateFromID(JObjIdBird);
obj:=TJSObject.JOBCreateFromID(JObjIdBird);
obj.WriteJSPropertyUnicodeString('Caption','Root');
writeln('AAA1 ');
//u:='äbc';
@ -141,7 +141,7 @@ end;
// workaround: fpc wasm does not yet support exporting functions from units
function JOBCallback(const Func: TJOBCallback; Data, Code: Pointer; Args: PByte): PByte;
begin
Result:=JOB_WAsm.JOBCallback(Func,Data,Code,Args);
Result:=JOB_JS.JOBCallback(Func,Data,Code,Args);
end;
exports

1943
demo/wasienv/dom/job_js.pas
View File

File diff suppressed because it is too large Load Diff

1955
demo/wasienv/dom/job_wasm.pas
View File

File diff suppressed because it is too large Load Diff

0
demo/wasienv/dom/job_browser.pp → packages/job/job_browser.pp
View File

0
demo/wasienv/dom/job_shared.pp → packages/job/job_shared.pp
View File