[PATCH 036/188] adding type declarations

From d956083913f0e790979b2e972dcef5377174306f Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Wed, 20 Nov 2019 00:31:55 -0500

git-svn-id: branches/wasm@46032 -

.gitattributes

@@ -18984,6 +18984,7 @@ utils/wasmbin/wasmld.lpi svneol=native#text/plain
 utils/wasmbin/wasmld.lpr svneol=native#text/plain
 utils/wasmbin/wasmlink.pas svneol=native#text/plain
 utils/wasmbin/wasmlinkchange.pas svneol=native#text/plain
+utils/wasmbin/wasmmodule.pas svneol=native#text/plain
 utils/wasmbin/wasmtext.pas svneol=native#text/plain
 utils/wasmbin/wasmtool.lpi svneol=native#text/plain
 utils/wasmbin/wasmtool.lpr svneol=native#text/plain

utils/wasmbin/wasmmodule.pas

@@ -0,0 +1,215 @@
+unit wasmmodule;
+
+interface
+
+uses
+  Classes, SysUtils, wasmbin;
+
+type
+  TWasmParam = class(TObject)
+    id : string;
+    tp : byte;
+  end;
+
+  { TWasmType }
+
+  TWasmType = class(TObject)
+  private
+    params : TList;
+    results : TList;
+  public
+    function AddResult(tp: byte = 0): TWasmParam;
+    function AddParam(tp: byte = 0; const id: string = ''): TWasmParam;
+    function GetParam(i: integer): TWasmParam;
+    function GetResult(i: integer): TWasmParam; overload;
+    function GetResult: TWasmParam;  overload;
+    function ResultCount: Integer;
+    function ParamCount: Integer;
+  end;
+
+  { TWasmFunc }
+
+  TWasmFunc = class(TObject)
+  private
+    finlineType: TWasmType;
+    locals:  TList;
+  public
+    id : string;
+    typeIdx : Integer; // if Idx < 0 then type is declared from typeDef
+    typeId  : string;  // if tpyeID='' then type is declared from typeDef
+    constructor Create;
+    destructor Destroy; override;
+    function GetInlineType: TWasmType;
+    function AddLocal: TWasmParam;
+    function LocalsCount: integer;
+  end;
+
+  { TWasmModule }
+
+  TWasmModule = class(TObject)
+  private
+    types      : TList;
+    funcs      : TList;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    function AddFunc: TWasmFunc;
+    function GetFunc(i: integer): TWasmFunc;
+    function FuncCount: integer;
+
+    function AddType: TWasmType;
+    function GetTypes(i: integer): TWasmType;
+    function TypesCount: integer;
+  end;
+
+implementation
+
+procedure ClearList(l: TList);
+var
+  i : integer;
+begin
+  for i:=0 to l.Count-1 do
+    TObject(l[i]).Free;
+  l.Clear;
+end;
+
+{ TWasmType }
+
+function TWasmType.AddResult(tp: byte): TWasmParam;
+begin
+  Result:=TWasmParam.Create;
+  Result.tp:=tp;
+  results.Add(Result);
+end;
+
+function TWasmType.AddParam(tp: byte; const id: string): TWasmParam;
+begin
+  Result:=TWasmParam.Create;
+  Result.tp:=tp;
+  Result.id:=id;
+  params.Add(Result);
+end;
+
+function TWasmType.GetParam(i: integer): TWasmParam;
+begin
+  if (i>=0) and (i<params.Count) then
+    Result:=TWasmParam(params[i])
+  else
+    Result:=nil;
+end;
+
+function TWasmType.GetResult(i: integer): TWasmParam;
+begin
+  if (i>=0) and (i<results.Count) then
+    Result:=TWasmParam(results[i])
+  else
+    Result:=nil;
+end;
+
+function TWasmType.GetResult: TWasmParam;
+begin
+  Result:=GetResult(0);
+end;
+
+function TWasmType.ResultCount: Integer;
+begin
+  Result:=results.Count;
+end;
+
+function TWasmType.ParamCount: Integer;
+begin
+  Result:=params.Count;
+end;
+
+{ TWasmModule }
+
+constructor TWasmModule.Create;
+begin
+  inherited Create;
+  types := TList.Create;
+  funcs := TList.Create;
+end;
+
+destructor TWasmModule.Destroy;
+begin
+  ClearList(types);
+  types.Free;
+  ClearList(funcs);
+  funcs.Free;
+  inherited Destroy;
+end;
+
+function TWasmModule.AddFunc: TWasmFunc;
+begin
+  Result:=TWasmFunc.Create;
+  funcs.Add(Result);
+end;
+
+function TWasmModule.AddType: TWasmType;
+begin
+  Result:=TWasmType.Create;
+  types.Add(Result);
+end;
+
+function TWasmModule.GetFunc(i: integer): TWasmFunc;
+begin
+  if (i>=0) and (i<funcs.Count) then
+    Result:=TWasmFunc(funcs[i])
+  else
+    Result:=nil;
+end;
+
+function TWasmModule.FuncCount: integer;
+begin
+  Result:=funcs.Count;
+end;
+
+function TWasmModule.GetTypes(i: integer): TWasmType;
+begin
+  if (i>=0) and (i<types.Count) then
+    Result:=TWasmType(types[i])
+  else
+    Result:=nil;
+end;
+
+function TWasmModule.TypesCount: integer;
+begin
+  Result:=types.Count;
+end;
+
+{ TWasmFunc }
+
+constructor TWasmFunc.Create;
+begin
+  inherited;
+  typeIdx:=-1;
+  locals:=TList.Create;
+end;
+
+destructor TWasmFunc.Destroy;
+begin
+  ClearList(locals);
+  locals.Free;
+  finlineType.Free;
+  inherited Destroy;
+end;
+
+function TWasmFunc.GetInlineType: TWasmType;
+begin
+  if not Assigned(fInlineType) then finlineType:=TWasmType.Create;
+  Result:=finlineType;
+end;
+
+function TWasmFunc.AddLocal: TWasmParam;
+begin
+  Result:=TWasmParam.Create;
+  locals.AdD(Result);
+end;
+
+function TWasmFunc.LocalsCount: integer;
+begin
+  result:=locals.Count;
+end;
+
+end.