summaryrefslogtreecommitdiffstats
path: root/private/os2/client/os2dir.c
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--private/os2/client/os2dir.c329
1 files changed, 329 insertions, 0 deletions
diff --git a/private/os2/client/os2dir.c b/private/os2/client/os2dir.c
new file mode 100644
index 000000000..0c80c5086
--- /dev/null
+++ b/private/os2/client/os2dir.c
@@ -0,0 +1,329 @@
+/*++
+
+Copyright (c) 1989 Microsoft Corporation
+
+Module Name:
+
+ os2file.c
+
+Abstract:
+
+ This is a test OS/2 application to test the file system component of OS/2
+
+Author:
+
+ Therese Stowell (thereses) 24-Oct-1989
+
+Environment:
+
+ User Mode Only
+
+Revision History:
+
+--*/
+
+#define OS2_API32
+#define INCL_OS2V20_ERRORS
+#define INCL_OS2V20_FILESYS
+#define INCL_OS2V20_TASKING
+#include <os2.h>
+
+
+int
+main(
+ int argc,
+ char *argv[],
+ char *envp[]
+ )
+{
+ int i;
+ APIRET rc;
+ ULONG DiskNumber,
+ LogicalDrives;
+ char DirectoryName[50];
+ ULONG DirectoryNameLength=50;
+ HFILE FileHandle;
+ ULONG ActionTaken;
+
+ DbgPrint( "*** Entering OS/2 File System Test Application\n" );
+
+ DbgPrint( "argc: %ld\n", argc );
+ for (i=0; i<argc; i++) {
+ DbgPrint( "argv[ %ld ]: %s\n", i, argv[ i ] );
+ }
+
+ // set current disk to a:
+ // curdir is a:\
+
+ rc = DosSetDefaultDisk(1L);
+ if (rc) {
+ DbgPrint( "*** DosSetCurDisk returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else
+ DbgPrint( "*** DosSetCurDisk(1) was successful\n");
+
+ // query current dir
+ // curdir is a:\
+
+ DirectoryNameLength=50;
+ rc = DosQueryCurrentDir(0,DirectoryName,&DirectoryNameLength);
+ if (rc) {
+ DbgPrint( "*** DosQCurDir %ld returned an error code = %ld\n", 0, rc );
+ return 1;
+ }
+ else {
+ if (DirectoryNameLength == 0) {
+ DbgPrint( "*** DosQCurDir %ld returned %s\n", 0, "a:\\" );
+ }
+ else {
+ DbgPrint( "*** DosQCurDir %ld returned %s\n", 0, DirectoryName );
+ DbgPrint( "*** NameLength = %ld\n", DirectoryNameLength);
+ return 1;
+ }
+ }
+
+
+ // make a:\dir1
+ // curdir is a:\
+
+ rc = DosCreateDir("a:\\dir1",0L);
+ if (rc) {
+ DbgPrint( "*** DosMkDir returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else
+ DbgPrint( "*** DosMkDir(a:\\dir1) was successful\n");
+
+ // cd to a:\dir1
+ // curdir is a:\
+
+ rc = DosSetCurrentDir("a:\\dir1");
+ if (rc) {
+ DbgPrint( "*** DosChDir returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else
+ DbgPrint( "*** DosChDir(a:\\dir1) was successful\n");
+
+ // query the current directory
+ // curdir is a:\dir1
+
+ DirectoryNameLength=50;
+ rc = DosQueryCurrentDir(0,DirectoryName,&DirectoryNameLength);
+ if (rc) {
+ DbgPrint( "*** DosQCurDir %ld returned an error code = %ld\n", 0, rc );
+ return 1;
+ }
+ else {
+ DbgPrint( "*** DosQCurDir %ld returned %s\n", 0, DirectoryName );
+ DbgPrint( "*** NameLength = %ld\n", DirectoryNameLength);
+ if (strcmp(DirectoryName,"dir1"))
+ return 1;
+ }
+
+ // make a:\dir1\dir2
+ // curdir is a:\dir1
+
+ rc = DosCreateDir("dir2",0L);
+ if (rc) {
+ DbgPrint( "*** DosMkDir returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else
+ DbgPrint( "*** DosMkDir(a:\\dir2) was successful\n");
+
+ // cd to a:\dir1\dir2
+ // curdir is a:\
+
+ rc = DosSetCurrentDir("dir2");
+ if (rc) {
+ DbgPrint( "*** DosChDir returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else
+ DbgPrint( "*** DosChDir(a:\\dir1\\dir2) was successful\n");
+
+ // query current dir
+ // curdir is a:\dir1\dir2
+
+ DirectoryNameLength=50;
+ rc = DosQueryCurrentDir(0,DirectoryName,&DirectoryNameLength);
+ if (rc) {
+ DbgPrint( "*** DosQCurDir %ld returned an error code = %ld\n", 0, rc );
+ return 1;
+ }
+ else {
+ DbgPrint( "*** DosQCurDir %ld returned %s\n", 0, DirectoryName );
+ DbgPrint( "*** NameLength = %ld\n", DirectoryNameLength);
+ if (strcmp(DirectoryName,"dir1\\dir2"))
+ return 1;
+ }
+
+ // create a:\dir1\dir2\file1
+ // curdir is a:\dir1\dir2
+
+ rc = DosOpen("..\\dir2\\.\\file1",
+ &FileHandle,
+ &ActionTaken,
+ 0L,
+ FILE_SYSTEM, // system attribute
+ OPEN_ACTION_OPEN_IF_EXISTS | OPEN_ACTION_CREATE_IF_NEW,
+ OPEN_ACCESS_READWRITE | OPEN_SHARE_DENYNONE,
+ 0L
+ );
+ if (rc) {
+ DbgPrint( "*** DosOpen a:\\dir1\\dir2\\file1 returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else {
+ DbgPrint( "*** DosOpen a:\\dir1\\dir2\\file1 was successful\n");
+ }
+ DosClose(FileHandle);
+
+ // try to mkdir a:\dir1\dir2\file1. should fail
+ // curdir is a:\dir1\dir2
+
+ rc = DosCreateDir("file1",0L);
+ if (rc) {
+ DbgPrint( "*** DosMkDir returned an error code = %ld, as expected\n", rc );
+ }
+ else {
+ DbgPrint( "*** DosMkDir(file1) was successful. it should have failed.\n");
+ return 1;
+ }
+
+ // try to delete a:\dir1\dir2. should fail
+ // curdir is a:\dir1\dir2
+
+ rc = DosDeleteDir("..");
+ if (rc) {
+ DbgPrint( "*** DosRmDir returned an error code = %ld, as expected\n", rc );
+ }
+ else {
+ DbgPrint( "*** DosRmDir(dir2) was successful. it should have failed.\n");
+ return 1;
+ }
+
+ // delete a:\dir1\dir2\file1
+ // curdir is a:\dir1\dir2
+
+ rc = DosDelete("file1");
+ if (rc) {
+ DbgPrint( "*** DosDelete returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else {
+ DbgPrint( "*** DosDelete(file1) was successful\n");
+ }
+
+ // query current disk
+ // curdir is a:\dir1\dir2
+ // current disk is a:
+
+ rc = DosQueryCurrentDisk(&DiskNumber,&LogicalDrives);
+ if (rc) {
+ DbgPrint( "*** DosQCurDisk returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else {
+ DbgPrint( "*** DosQCurDisk returned DiskNumber = %ld\n", DiskNumber );
+ DbgPrint( "*** LogicalDrives = %lX\n", LogicalDrives);
+ }
+
+ // set current disk to c:
+ // curdir is a:\dir1\dir2
+
+ rc = DosSetDefaultDisk(3L);
+ if (rc) {
+ DbgPrint( "*** DosSetCurDisk returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else {
+ DbgPrint( "*** DosSetCurDisk(1) was successful\n");
+ }
+
+ // set current dir to a:\dir1
+ // curdir is a:\dir1\dir2
+
+ rc = DosSetCurrentDir("a:..");
+ if (rc) {
+ DbgPrint( "*** DosChDir returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else
+ DbgPrint( "*** DosChDir(a:..) was successful\n");
+
+ // query current dir
+ // curdir is a:\dir1
+
+ DirectoryNameLength=50;
+ rc = DosQueryCurrentDir(1,DirectoryName,&DirectoryNameLength);
+ if (rc) {
+ DbgPrint( "*** DosQCurDir a: returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else {
+ DbgPrint( "*** DosQCurDir a: returned %s\n", DirectoryName );
+ DbgPrint( "*** NameLength = %ld\n", DirectoryNameLength);
+ if (strcmp(DirectoryName,"dir1"))
+ return 1;
+ }
+
+ // rmdir a:\dir1\dir2
+ // curdir is a:\dir1
+
+ rc = DosDeleteDir("a:dir2");
+ if (rc) {
+ DbgPrint( "*** DosRmDir returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else
+ DbgPrint( "*** DosRmDir(a:\\dir1\\dir2) was successful\n");
+
+ // cd to a:\
+ // curdir is a:\dir1
+
+ rc = DosSetCurrentDir("A:\\");
+ if (rc) {
+ DbgPrint( "*** DosSetCurDir a:\\ returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else {
+ DbgPrint( "*** DosSetCurDir a:\\ was successful\n");
+ }
+
+ // query current dir
+ // curdir is a:\
+
+ DirectoryNameLength=50;
+ rc = DosQueryCurrentDir(1,DirectoryName,&DirectoryNameLength);
+ if (rc) {
+ DbgPrint( "*** DosQCurDir %ld returned an error code = %ld\n", 0, rc );
+ return 1;
+ }
+ else {
+ if (DirectoryNameLength == 0) {
+ DbgPrint( "*** DosQCurDir %ld returned %s\n", 0, "a:\\" );
+ }
+ else {
+ DbgPrint( "*** DosQCurDir %ld returned %s\n", 0, DirectoryName );
+ DbgPrint( "*** NameLength = %ld\n", DirectoryNameLength);
+ return 1;
+ }
+ }
+
+ // rmdir a:\dir1
+ // curdir is a:\
+
+ rc = DosDeleteDir("a:\\dir1");
+ if (rc) {
+ DbgPrint( "*** DosRmDir returned an error code = %ld\n", rc );
+ return 1;
+ }
+ else
+ DbgPrint( "*** DosRmDir(a:\\dir1) was successful\n");
+
+ DbgPrint( "*** Exiting OS/2 Test Application\n" );
+ return( 0 );
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-10-19 03:56:20 +0200