Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@577 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-04-29 14:28:09 +00:00
parent 9b15036772
commit 335b0a12de
9 changed files with 24 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/terminal.pas
View File

@ -63,6 +63,9 @@ function getTerminalHWND : uint32;
implementation
uses
RTC;
function getTerminalHWND : uint32;
begin
getTerminalHWND:= TERMINAL_HWND;
@ -247,6 +250,26 @@ begin
end;
end;
procedure printTime(Params : PParamList);
begin
writeStringWND('Seconds: ', TERMINAL_HWND);
writeIntlnWND(DateTime.Seconds, TERMINAL_HWND);
writeStringWND('Minutes: ', TERMINAL_HWND);
writeIntlnWND(DateTime.Minutes, TERMINAL_HWND);
writeStringWND('Hours: ', TERMINAL_HWND);
writeIntlnWND(DateTime.Hours, TERMINAL_HWND);
writeStringWND('Weekday: ', TERMINAL_HWND);
writeIntlnWND(DateTime.Weekday, TERMINAL_HWND);
writeStringWND('Day: ', TERMINAL_HWND);
writeIntlnWND(DateTime.Day, TERMINAL_HWND);
writeStringWND('Month: ', TERMINAL_HWND);
writeIntlnWND(DateTime.Month, TERMINAL_HWND);
writeStringWND('Year: ', TERMINAL_HWND);
writeIntlnWND(DateTime.Year, TERMINAL_HWND);
writeStringWND('Century: ', TERMINAL_HWND);
writeIntlnWND(DateTime.Century, TERMINAL_HWND);
end;
procedure registerCommand(command : pchar; method : TCommandMethod; description : pchar);
var
index : uint32;
@ -359,6 +382,7 @@ begin
registerCommand('CD', @change_dir, 'Change Directory test.');
registerCommand('PATTERN', @cockwomble, 'Print an animated pattern to the screen.');
registerCommand('TOGGLEWND1', @ToggleWND1, 'Toggle WND 1 Visibility.');
registerCommand('TIME', @printTime, 'PRINT TIME!');
console.writestringln('TERMINAL: INIT END.');
end;