12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576 |
- #include "api.h"
- #include "pal.h"
- #include "pal_debug.h"
- int main(int argc, char** argv, char** envp) {
- /* test regular directory opening */
- PAL_HANDLE dir1 = DkStreamOpen("dir:dir_exist.tmp", PAL_ACCESS_RDONLY, 0, 0, 0);
- if (dir1) {
- pal_printf("Directory Open Test 1 OK\n");
- PAL_STREAM_ATTR attr1;
- if (DkStreamAttributesQueryByHandle(dir1, &attr1))
- pal_printf("Query by Handle: type = %d\n", attr1.handle_type);
- char buffer[80];
- int bytes = DkStreamRead(dir1, 0, 80, buffer, NULL, 0);
- if (bytes) {
- for (char* c = buffer; c < buffer + bytes; c += strlen(c) + 1)
- if (strlen(c))
- pal_printf("Read Directory: %s\n", c);
- }
- DkObjectClose(dir1);
- }
- PAL_HANDLE dir2 = DkStreamOpen("dir:./dir_exist.tmp", PAL_ACCESS_RDONLY, 0, 0, 0);
- if (dir2) {
- pal_printf("Directory Open Test 2 OK\n");
- DkObjectClose(dir2);
- }
- PAL_HANDLE dir3 = DkStreamOpen("dir:../regression/dir_exist.tmp", PAL_ACCESS_RDONLY, 0, 0, 0);
- if (dir3) {
- pal_printf("Directory Open Test 3 OK\n");
- DkObjectClose(dir3);
- }
- PAL_STREAM_ATTR attr2;
- if (DkStreamAttributesQuery("dir:dir_exist.tmp", &attr2))
- pal_printf("Query: type = %d\n", attr2.handle_type);
- /* test regular directory creation */
- PAL_HANDLE dir4 = DkStreamOpen("dir:dir_nonexist.tmp", PAL_ACCESS_RDONLY,
- PAL_SHARE_OWNER_R | PAL_SHARE_OWNER_W | PAL_SHARE_OWNER_X,
- PAL_CREATE_TRY | PAL_CREATE_ALWAYS, 0);
- if (dir4) {
- pal_printf("Directory Creation Test 1 OK\n");
- DkObjectClose(dir4);
- }
- PAL_HANDLE dir5 = DkStreamOpen("dir:dir_nonexist.tmp", PAL_ACCESS_RDONLY,
- PAL_SHARE_OWNER_R | PAL_SHARE_OWNER_W | PAL_SHARE_OWNER_X,
- PAL_CREATE_TRY | PAL_CREATE_ALWAYS, 0);
- if (dir5) {
- DkObjectClose(dir5);
- } else {
- pal_printf("Directory Creation Test 2 OK\n");
- }
- PAL_HANDLE dir6 = DkStreamOpen("dir:dir_nonexist.tmp", PAL_ACCESS_RDWR,
- PAL_SHARE_OWNER_R | PAL_SHARE_OWNER_W, PAL_CREATE_TRY, 0);
- if (dir6) {
- pal_printf("Directory Creation Test 3 OK\n");
- DkObjectClose(dir6);
- }
- PAL_HANDLE dir7 = DkStreamOpen("dir:dir_delete.tmp", PAL_ACCESS_RDONLY, 0, 0, 0);
- if (dir7) {
- DkStreamDelete(dir7, 0);
- DkObjectClose(dir7);
- }
- return 0;
- }
|