46 lines
772 B
ObjectPascal
46 lines
772 B
ObjectPascal
{
|
|
Prog->NetLog - Network Driver Logs.
|
|
|
|
@author(Kieron Morris <kjm@kieronmorris.me>)
|
|
}
|
|
unit netlog;
|
|
|
|
interface
|
|
|
|
uses
|
|
console, terminal, keyboard, util, strings, tracer;
|
|
|
|
procedure init();
|
|
function getNetlogHWND : HWND;
|
|
|
|
implementation
|
|
|
|
var
|
|
Handle : HWND = 0;
|
|
|
|
function getNetlogHWND : HWND;
|
|
begin
|
|
getNetlogHWND:= Handle;
|
|
end;
|
|
|
|
procedure OnClose();
|
|
begin
|
|
Handle:= 0;
|
|
end;
|
|
|
|
procedure run(Params : PParamList);
|
|
begin
|
|
if Handle = 0 then begin
|
|
Handle:= newWindow(20, 40, 63, 14, 'NETLOG');
|
|
clearWND(Handle);
|
|
registerEventHandler(Handle, EVENT_CLOSE, void(@OnClose));
|
|
end;
|
|
end;
|
|
|
|
procedure init();
|
|
begin
|
|
tracer.push_trace('netlog.init');
|
|
terminal.registerCommand('NETLOG', @Run, 'View network event log.');
|
|
end;
|
|
|
|
end. |