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

Browse Source
This commit is contained in:
aaron
2018-05-07 23:45:38 +00:00
parent 2cbea55087
commit 680b758ee7
4 changed files with 76 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/driver/storage/storagemanagement.pas
View File

@ -25,6 +25,7 @@ uses
type
TControllerType = (ControllerIDE, ControllerUSB, ControllerAHCI, ControllerNET);
TDirectory_Entry_Type = (Directory, Data, Executable, Mounted);
PStorage_volume = ^TStorage_Volume;
PStorage_device = ^TStorage_Device;
APStorage_Volume = array[0..10] of PStorage_volume;
@ -74,6 +75,13 @@ type
end;
APStorage_Device = array[0..255] of PStorage_device;
TDirectory_Entry = record //TODO implement dtae.time stuff
fileName : pchar;
extension : pchar;
volume : PStorage_Volume;
entryType : TDirectory_Entry_Type;
end;
var
storageDevices : PLinkedListBase; //index in this array is global drive id
@ -208,17 +216,19 @@ var
dirp : PDirectory;
device : PStorage_Device;
volume : PStorage_Volume;
error : uint32;
error : puint32;
i : uint32;
begin
push_trace('ls');
error:= puint32(kalloc(4));
if paramCount(params) > 0 then begin
dir := getParam(0, params);
device:= PStorage_Device(LL_Get(storageDevices, 0));
volume:= PStorage_Volume(LL_Get(device^.volumes, 0));
dirs:= volume^.filesystem^.readDirCallback(volume, dir, @error);
dirs:= volume^.filesystem^.readDirCallback(volume, dir, error);
//if error <> 1 then console.writestringln('ERROR');
for i:=2 to LL_Size(dirs) - 1 do begin
@ -232,6 +242,7 @@ begin
end;
end;
procedure volume_command(params : PParamList);
var
i : uint32;