paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-29 02:43:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: started parsing pas2js output

Browse Source 
git-svn-id: trunk@57846 -
This commit is contained in:
mattias 2018-05-08 17:00:34 +00:00
parent 2e95e24d2f
commit aa2b29544e
3 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/definetemplates.pas
View File

@ -978,6 +978,7 @@ type
function GetUnitSetID: string;
function GetFirstFPCCfg: string;
function GetUnitScopes: string;
function GetCompilerKind: TPascalCompiler;
end;
{ TCompilerDefinesCache }
@ -10413,6 +10414,15 @@ begin
Delete(Result,1,1);
end;
function TFPCUnitSetCache.GetCompilerKind: TPascalCompiler;
var
Cfg: TPCTargetConfigCache;
begin
Cfg:=GetConfigCache(false);
if Cfg=nil then exit(pcFPC);
Result:=Cfg.Kind;
end;
initialization
InitDefaultFPCSourceRules;

8
components/codetools/fileprocs.pas
View File

@ -138,10 +138,6 @@ const
CTPascalExtension: array[TCTPascalExtType] of string =
('', '.pas', '.pp', '.p');
function FileAgeToStr(aFileAge: longint): string;
function AVLTreeHasDoubles(Tree: TAVLTree): TAVLTreeNode;
// store date locale independent, thread safe
const DateAsCfgStrFormat='YYYYMMDD';
const DateTimeAsCfgStrFormat='YYYY/MM/DD HH:NN:SS';
@ -152,6 +148,10 @@ procedure CTIncreaseChangeStamp(var ChangeStamp: integer); inline;
procedure CTIncreaseChangeStamp64(var ChangeStamp: int64); inline;
function SimpleFormat(const Fmt: String; const Args: Array of const): String;
// misc
function FileAgeToStr(aFileAge: longint): string;
function AVLTreeHasDoubles(Tree: TAVLTree): TAVLTreeNode;
// debugging
var
CTConsoleVerbosity: integer = {$IFDEF VerboseCodetools}1{$ELSE}0{$ENDIF}; // 0=quiet, 1=normal, 2=verbose

6
components/codetools/linkscanner.pas
View File

@ -859,6 +859,7 @@ function IndexOfCodeInUniqueList(ACode: Pointer;
UniqueSortedCodeList: TList): integer;
function IndexOfCodeInUniqueList(ACode: Pointer;
UniqueSortedCodeList: TFPList): integer;
function dbgs(k: TPascalCompiler): string; overload;
function dbgs(r: TLinkScannerRange): string; overload;
function dbgs(const ModeSwitches: TCompilerModeSwitches): string; overload;
function dbgs(k: TSourceLinkKind): string; overload;
@ -911,6 +912,11 @@ begin
Result:=-1;
end;
function dbgs(k: TPascalCompiler): string;
begin
WriteStr(Result, k);
end;
function dbgs(r: TLinkScannerRange): string; overload;
begin
WriteStr(Result, r);