Spexeah/Asuro
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@491 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron 2018-04-11 14:49:41 +00:00
parent e98881e31c
commit d492b8a122
8 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Asuro.iso
View File

Binary file not shown.

BIN
bin/kernel.bin
View File

Binary file not shown.

BIN
iso/boot/asuro.bin
View File

Binary file not shown.

BIN
lib/libpconsole.a
View File

Binary file not shown.

BIN
lib/libpmultiboot.a
View File

Binary file not shown.

BIN
lib/libpsystem.a
View File

Binary file not shown.

BIN
lib/terminal.ppu
View File

Binary file not shown.

9
src/terminal.pas
View File

@ -60,6 +60,7 @@ var
i : uint32; i : uint32;
begin begin
push_trace('terminal.paramCount');
current:= params; current:= params;
i:= 0; i:= 0;
while current^.param <> nil do begin while current^.param <> nil do begin
@ -67,6 +68,7 @@ begin
current:= current^.next; current:= current^.next;
end; end;
paramCount:= i-1; paramCount:= i-1;
pop_trace;
end; end;
function getParams(buf : TCommandBuffer) : PParamList; function getParams(buf : TCommandBuffer) : PParamList;
@ -78,6 +80,7 @@ var
current : PParamList; current : PParamList;
begin begin
push_trace('terminal.getParams');
root:= PParamList(kalloc(sizeof(TParamList))); root:= PParamList(kalloc(sizeof(TParamList)));
current:= root; current:= root;
current^.next:= nil; current^.next:= nil;
@ -103,6 +106,7 @@ begin
inc(finish); inc(finish);
end; end;
getParams:= root; getParams:= root;
pop_trace;
end; end;
function getParam(index : uint32; params : PParamList) : pchar; function getParam(index : uint32; params : PParamList) : pchar;
@ -112,12 +116,15 @@ var
i : uint32; i : uint32;
begin begin
push_trace('terminal.getParam');
result:= nil; result:= nil;
search:= params; search:= params;
for i:=0 to index do begin for i:=0 to index do begin
search:= search^.next; search:= search^.next;
end; end;
result:= search^.param; result:= search^.param;
getParam:= result;
pop_trace;
end; end;
procedure freeParams(params : PParamList); procedure freeParams(params : PParamList);
@ -126,6 +133,7 @@ var
next : PParamList; next : PParamList;
begin begin
push_trace('terminal.freeParams');
p:= params; p:= params;
next:= p^.next; next:= p^.next;
while p^.next <> nil do begin while p^.next <> nil do begin
@ -134,6 +142,7 @@ begin
p:= next; p:= next;
next:= p^.next; next:= p^.next;
end; end;
pop_trace;
end; end;
procedure testParams(params : PParamList); procedure testParams(params : PParamList);