mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-13 04:09:25 +00:00
e431f850a0
Fixes #10546. Format compiler messages in the same way as kmc, and match the colors from kmc's console log messages.
55 lines
1.5 KiB
ObjectPascal
55 lines
1.5 KiB
ObjectPascal
(*
|
|
Name: Keyman.Developer.System.Project.ProjectLog
|
|
Copyright: Copyright (C) SIL International.
|
|
Documentation:
|
|
Description:
|
|
Create Date: 11 May 2015
|
|
|
|
Modified Date: 11 May 2015
|
|
Authors: mcdurdin
|
|
Related Files:
|
|
Dependencies:
|
|
|
|
Bugs:
|
|
Todo:
|
|
Notes:
|
|
History: 11 May 2015 - mcdurdin - I4706 - V9.0 - Update compile logging for silent and warning-as-error cleanness
|
|
|
|
*)
|
|
unit Keyman.Developer.System.Project.ProjectLog; // I4706
|
|
|
|
interface
|
|
|
|
type
|
|
TProjectLogState = (
|
|
plsInfo, // informational only, process-oriented
|
|
plsHint, // code-level hint
|
|
plsWarning, // code-level warning
|
|
plsError, // code-level error
|
|
plsFatal, // code-level or system-level fatal error, unexpected
|
|
plsSuccess, // Overall success of build
|
|
plsFailure); // Overall failure of build
|
|
|
|
type
|
|
TCompilePackageMessageEvent = procedure(Sender: TObject; msg: string; State: TProjectLogState) of object;
|
|
|
|
TProjectLogEvent = procedure(state: TProjectLogState; filename, msg: string; msgcode, line: Integer);
|
|
TProjectLogObjectEvent = procedure(state: TProjectLogState; filename, msg: string; msgcode, line: Integer) of object;
|
|
|
|
const
|
|
ProjectLogStateTitle: array[TProjectLogState] of string = (
|
|
'info',
|
|
'hint',
|
|
'warn',
|
|
'error',
|
|
'fatal',
|
|
'info',
|
|
'info'
|
|
);
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils;
|
|
|
|
end.
|