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@664 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-05-05 21:04:48 +00:00
parent e5321d8b46
commit cac366e78c
15 changed files with 70 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/include/asuro.pas
View File

@ -3,17 +3,20 @@ unit asuro;
interface
const
VERSION = '1.0.0-662a';
VERSION = '1.0.1-663ia';
VERSION_MAJOR = '1';
VERSION_MINOR = '0';
VERSION_SUB = '0';
REVISION = '662';
RELEASE = 'a';
LINE_COUNT = 26907;
VERSION_SUB = '1';
REVISION = '663';
RELEASE = 'ia';
LINE_COUNT = 26954;
FILE_COUNT = 83;
DRIVER_COUNT = 28;
FPC_VERSION = '2.6.4';
NASM_VERSION = '2.10.09';
COMPILE_DATE = '05-05-18';
COMPILE_TIME = '20:57:19';
MAKE_VERSION = '3.81';
COMPILE_DATE = '05/05/18';
COMPILE_TIME = '22:04:28';
implementation

41
src/prog/shell.pas
View File

@ -3,7 +3,7 @@ unit shell;
interface
uses
Console, RTC, terminal, strings;
Console, RTC, terminal, strings, asuro;
procedure init();
@ -63,8 +63,45 @@ begin
end;
procedure onBaseDraw();
var
versionSize : uint32;
versionDrawX : uint32;
releaseSize : uint32;
releaseDrawX : uint32;
begin
clearWNDEx(DesktopHandle, Desktop_Colors);
if not(StringEquals(asuro.RELEASE, 'r')) then begin
versionSize:= StringSize(asuro.VERSION) + StringSize('Asuro v');
versionDrawX:= 157 - versionSize;
setCursorPosWND(versionDrawX, 60, DesktopHandle);
writestringExWND('ASURO v', Desktop_Colors, DesktopHandle);
writestringExWND(asuro.VERSION, Desktop_Colors, DesktopHandle);
if StringEquals(asuro.RELEASE, 'rc') then begin
releaseSize:= StringSize('RELEASE CANDIDATE');
releaseDrawX:= 157 - (versionSize div 2) - (releaseSize div 2);
setCursorPosWND(releaseDrawX, 61, DesktopHandle);
writeStringExWND('RELEASE CANDIDATE', Desktop_Colors, DesktopHandle);
end;
if StringEquals(asuro.RELEASE, 'ia') then begin
releaseSize:= StringSize('INTERNAL ALPHA');
releaseDrawX:= 157 - (versionSize div 2) - (releaseSize div 2);
setCursorPosWND(releaseDrawX, 61, DesktopHandle);
writeStringExWND('INTERNAL ALPHA', Desktop_Colors, DesktopHandle);
end;
if StringEquals(asuro.RELEASE, 'a') then begin
releaseSize:= StringSize('ALPHA');
releaseDrawX:= 157 - (versionSize div 2) - (releaseSize div 2);
setCursorPosWND(releaseDrawX, 61, DesktopHandle);
writeStringExWND('ALPHA', Desktop_Colors, DesktopHandle);
end;
if StringEquals(asuro.RELEASE, 'b') then begin
releaseSize:= StringSize('BETA');
releaseDrawX:= 157 - (versionSize div 2) - (releaseSize div 2);
setCursorPosWND(releaseDrawX, 61, DesktopHandle);
writeStringExWND('BETA', Desktop_Colors, DesktopHandle);
end;
end;
end;
procedure Command_Background(Params : PParamList);
@ -92,7 +129,7 @@ procedure init();
begin
Takbar_Colors:= console.combinecolors($0000, $FFFF);
Explore_Colors:= console.combinecolors($01C3, $07EE);
Desktop_Colors:= console.combinecolors($01C3, $34DB);
Desktop_Colors:= console.combinecolors($FFFF, $34DB);
DesktopHandle:= Console.newWindow(0, 0, 159, 63, 'DESKTOP');
TaskBarHandle:= Console.newWindow(0, 63, 159, 1, 'SHELL');

19
src/prog/terminal.pas
View File

@ -206,19 +206,26 @@ end;
procedure version(params : PParamList);
begin
console.writestringWND('Asuro Version: ', TERMINAL_HWND);
console.writestringWND(' Asuro Version: ', TERMINAL_HWND);
console.writestringlnWND(asuro.VERSION, TERMINAL_HWND);
console.writestringWND(' Compiled on: ', TERMINAL_HWND);
console.writestringWND(asuro.COMPILE_DATE, TERMINAL_HWND);
console.writestringWND(' ', TERMINAL_HWND);
console.writestringlnWND(asuro.COMPILE_TIME, TERMINAL_HWND);
console.writestringlnWND(' Compiled With: ', TERMINAL_HWND);
console.writestringWND(' FPC Version: ', TERMINAL_HWND);
console.writestringlnWND(asuro.FPC_VERSION, TERMINAL_HWND);
console.writestringWND(' NASM Version: ', TERMINAL_HWND);
console.writestringWND(' NASM - Version: ', TERMINAL_HWND);
console.writestringlnWND(asuro.NASM_VERSION, TERMINAL_HWND);
console.writestringWND(' Source Line-Count: ', TERMINAL_HWND);
console.writeintlnWND(asuro.LINE_COUNT, TERMINAL_HWND);
console.writestringWND(' FPC - Version: ', TERMINAL_HWND);
console.writestringlnWND(asuro.FPC_VERSION, TERMINAL_HWND);
console.writestringWND(' MAKE - Version: ', TERMINAL_HWND);
console.writestringlnWND(asuro.MAKE_VERSION, TERMINAL_HWND);
console.writestringWND(' ', TERMINAL_HWND);
console.writeintWND(asuro.LINE_COUNT, TERMINAL_HWND);
console.writestringWND(' lines, across ', TERMINAL_HWND);
console.writeintWND(asuro.FILE_COUNT, TERMINAL_HWND);
console.writestringlnWND(' files.', TERMINAL_HWND);
console.writestringWND(' Baked Drivers: ', TERMINAL_HWND);
console.writeintlnWND(asuro.DRIVER_COUNT, TERMINAL_HWND);
end;
procedure help(params : PParamList);