1
0
mirror of https://github.com/cc65/cc65.git synced 2024-11-12 07:07:19 +00:00
cc65/testcode/lib/dir-test.c
uz 640460deb5 Fixed problems reported by Greg King.
git-svn-id: svn://svn.cc65.org/cc65/trunk@5819 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-09-06 20:36:35 +00:00

91 lines
2.3 KiB
C

/*
first test for posix directory routines for the c64
kludges:
- currently uses cbm_open, which conflicts with standard i/o,
which in turn makes it infact kindof unuseable. this can
be easily changed however, since the only reason not to use
open/read was that it currently appends ,u,r to filenames
- the offset in current dir stream should better be calculated
from the values returned by "read".
- the type flag isnt filled in atm.
- scandir/alphasort/versionsort is missing
- some bits are currently untested (ie, unused in the testprogram)
27/02/2003 gpz
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <dirent.h>
#include <cbm.h>
#include <conio.h>
int main(void)
{
char* name = ".";
unsigned char go = 0;
DIR *D;
register struct dirent* E;
/* Explain usage and wait for a key */
printf ("Use the following keys:\n"
" g -> go ahead without stop\n"
" q -> quit directory listing\n"
" r -> return to last entry\n"
" s -> seek back to start\n"
"Press any key to start ...\n");
cgetc ();
/* Open the directory */
D = opendir (name);
if (D == 0) {
printf("error opening %s: %s\n", name, strerror (errno));
return 1;
}
/* Output the directory */
errno = 0;
printf("contents of \"%s\":\n", name);
while ((E = readdir (D)) != 0) {
printf ("dirent.d_name[] : \"%s\"\n", E->d_name);
printf ("dirent.d_blocks : %10u\n", E->d_blocks);
printf ("dirent.d_type : %10d\n", E->d_type);
printf ("telldir() : %10lu\n", telldir (D));
printf ("---\n");
if (!go) {
switch (cgetc ()) {
case 'g':
go = 1;
break;
case 'q':
goto done;
case 'r':
seekdir (D, E->d_off);
break;
case 's':
rewinddir (D);
break;
}
}
}
done:
if (errno == 0) {
printf ("Done\n");
} else {
printf("Done: %d (%s)\n", errno, strerror (errno));
}
/* Close the directory */
closedir (D);
return 0;
}