mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-14 15:46:26 +02:00
d2dabe9a33
- Removed unused/outdated stuff from libndsfpc + Added new examples for libndsfpc + Added working (I hope so...) makefile.fpc for all libndsfpc/libgbafpc examples git-svn-id: trunk@13217 -
49 lines
903 B
ObjectPascal
49 lines
903 B
ObjectPascal
program libfatdir;
|
|
|
|
uses
|
|
ctypes, nds9, fat;
|
|
|
|
|
|
var
|
|
MyDir: PDir;
|
|
pent: pdirent;
|
|
statbuf: Tstat;
|
|
|
|
begin
|
|
// Initialise the console, required for printf
|
|
consoleDemoInit();
|
|
|
|
if (fatInitDefault()) then
|
|
begin
|
|
|
|
|
|
MyDir := opendir('/');
|
|
|
|
if (MyDir) <> nil then
|
|
begin
|
|
repeat
|
|
pent := readdir(MyDir);
|
|
_stat(pent^.d_name, statbuf);
|
|
if (strcmp('.', pent^.d_name) = 0) or (strcmp('..', pent^.d_name) = 0) then
|
|
continue;
|
|
if (S_ISDIR(statbuf.st_mode)) then
|
|
iprintf('%s <dir>'#10, pent^.d_name);
|
|
if not (S_ISDIR(statbuf.st_mode)) then
|
|
iprintf('%s %ld'#10, pent^.d_name, statbuf.st_size);
|
|
until pent = nil;
|
|
closedir(MyDir);
|
|
end else
|
|
begin
|
|
iprintf ('opendir() failure; terminating'#10);
|
|
end;
|
|
|
|
end else
|
|
begin
|
|
iprintf('fatInitDefault failure: terminating'#10);
|
|
end;
|
|
|
|
while true do
|
|
swiWaitForVBlank();
|
|
|
|
end.
|