haikuprojects/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small fixes

Browse Source
This commit is contained in:
ocoursiere
2003-02-05 22:25:11 +00:00
parent fd0ffd303f
commit ece235b72e
1 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
bepascal/bepascal/codegen/apireader.pp
View File

@@ -535,6 +535,13 @@ var
s := Format('%s%s : %s;', [List.Strings[List.Count - 1], EndChar, CppToPas(ResultType.Typ)]); s := Format('%s%s : %s;', [List.Strings[List.Count - 1], EndChar, CppToPas(ResultType.Typ)]);
List.Strings[List.Count - 1] := s; List.Strings[List.Count - 1] := s;
end end
else if IsConstructor then
begin
WriteLn(ResultType.Typ);
WriteLn(Name);
s := Format('%s%s;', [List.Strings[List.Count - 1], EndChar]);
List.Strings[List.Count - 1] := s;
end
else else
List.Strings[List.Count - 1] := Format('%s%s;', [List.Strings[List.Count - 1], EndChar]); List.Strings[List.Count - 1] := Format('%s%s;', [List.Strings[List.Count - 1], EndChar]);
end; end;
@@ -591,6 +598,22 @@ begin
end; end;
procedure TParam.Middle; procedure TParam.Middle;
procedure WriteParamImport(List : TStringList);
var
s : string;
begin
WriteLn('WriteParamImport');
WriteLn(List.Strings[List.Count - 1]);
if IsObject then
begin
WriteLn('IsObject');
s := Format('%s%s : %s; ', [List.Strings[List.Count - 1], Name, 'TCPlusObject']);
end
else
s := Format('%s%s : %s; ', [List.Strings[List.Count - 1], Name, CppToPas(Typ)]);
List.Strings[List.Count - 1] := s;
WriteLn(List.Strings[List.Count - 1]);
end;
procedure WriteParam(List : TStringList); procedure WriteParam(List : TStringList);
var var
s : string; s : string;
@@ -603,7 +626,7 @@ procedure TParam.Middle;
begin begin
WriteLn('Param Middle'); WriteLn('Param Middle');
WriteParam(SourceWriter.InterfacePas); WriteParam(SourceWriter.InterfacePas);
WriteParam(SourceWriter.ImportFuncsPas); WriteParamImport(SourceWriter.ImportFuncsPas);
WriteParam(SourceWriter.ImplementationPas); WriteParam(SourceWriter.ImplementationPas);
if IsObject then if IsObject then
ParentFunction.BodyPas := Format('%s%s.CPlusObject, ', [ParentFunction.BodyPas, Name]) ParentFunction.BodyPas := Format('%s%s.CPlusObject, ', [ParentFunction.BodyPas, Name])