/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */

/*
** File: mbcs.c
**
** Synopsis: mbcs {dirName}
**
** where dirName is the directory to be traversed. dirName is required.
**
** Description:
** mbcs.c tests use of multi-byte characters, as would be passed to
** NSPR funtions by internationalized applications.
**
** mbcs.c, when run on any single-byte platform, should run correctly.
** In truth, running the mbcs test on a single-byte platform is
** really meaningless. mbcs.c, nor any NSPR library or test is not
** intended for use with any wide character set, including Unicode.
** mbcs.c should not be included in runtests.ksh because it requires
** extensive user intervention to set-up and run.
**
** mbcs.c should be run on a platform using some form of multi-byte
** characters. The initial platform for this test is a Japanese
** language Windows NT 4.0 machine. ... Thank you Noriko Hoshi.
**
** To run mbcs.c, the tester should create a directory tree containing
** some files in the same directory from which the test is run; i.e.
** the current working directory. The directory and files should be
** named such that when represented in the local multi-byte character
** set, one or more characters of the name is longer than a single
** byte.
**
*/

#include <plgetopt.h>
#include <nspr.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/*
** Test harness infrastructure
*/
PRLogModuleInfo* lm;
PRLogModuleLevel msgLevel = PR_LOG_NONE;
PRIntn debug = 0;
PRUint32 failed_already = 0;
/* end Test harness infrastructure */

char* dirName = NULL; /* directory name to traverse */

/*
** Traverse directory
*/
static void TraverseDirectory(unsigned char* dir) {
  PRDir* cwd;
  PRDirEntry* dirEntry;
  PRFileInfo info;
  PRStatus rc;
  PRInt32 err;
  PRFileDesc* fd;
  char nextDir[256];
  char file[256];

  printf("Directory: %s\n", dir);
  cwd = PR_OpenDir(dir);
  if (NULL == cwd) {
    printf("PR_OpenDir() failed on directory: %s, with error: %d, %d\n", dir,
           PR_GetError(), PR_GetOSError());
    exit(1);
  }
  while (NULL != (dirEntry = PR_ReadDir(cwd, PR_SKIP_BOTH | PR_SKIP_HIDDEN))) {
    sprintf(file, "%s/%s", dir, dirEntry->name);
    rc = PR_GetFileInfo(file, &info);
    if (PR_FAILURE == rc) {
      printf("PR_GetFileInfo() failed on file: %s, with error: %d, %d\n",
             dirEntry->name, PR_GetError(), PR_GetOSError());
      exit(1);
    }
    if (PR_FILE_FILE == info.type) {
      printf("File: %s \tsize: %ld\n", dirEntry->name, info.size);
      fd = PR_Open(file, PR_RDONLY, 0);
      if (NULL == fd) {
        printf("PR_Open() failed. Error: %ld, OSError: %ld\n", PR_GetError(),
               PR_GetOSError());
      }
      rc = PR_Close(fd);
      if (PR_FAILURE == rc) {
        printf("PR_Close() failed. Error: %ld, OSError: %ld\n", PR_GetError(),
               PR_GetOSError());
      }
    } else if (PR_FILE_DIRECTORY == info.type) {
      sprintf(nextDir, "%s/%s", dir, dirEntry->name);
      TraverseDirectory(nextDir);
    } else {
      printf("type is not interesting for file: %s\n", dirEntry->name);
      /* keep going */
    }
  }
  /* assume end-of-file, actually could be error */

  rc = PR_CloseDir(cwd);
  if (PR_FAILURE == rc) {
    printf("PR_CloseDir() failed on directory: %s, with error: %d, %d\n", dir,
           PR_GetError(), PR_GetOSError());
  }

} /* end TraverseDirectory() */

int main(int argc, char** argv) {
  { /* get command line options */
    /*
    ** Get command line options
    */
    PLOptStatus os;
    PLOptState* opt = PL_CreateOptState(argc, argv, "dv");

    while (PL_OPT_EOL != (os = PL_GetNextOpt(opt))) {
      if (PL_OPT_BAD == os) {
        continue;
      }
      switch (opt->option) {
        case 'd': /* debug */
          debug = 1;
          msgLevel = PR_LOG_ERROR;
          break;
        case 'v': /* verbose mode */
          msgLevel = PR_LOG_DEBUG;
          break;
        default:
          dirName = strdup(opt->value);
          break;
      }
    }
    PL_DestroyOptState(opt);
  } /* end get command line options */

  lm = PR_NewLogModule("Test"); /* Initialize logging */

  if (dirName == NULL) {
    printf("you gotta specify a directory as an operand!\n");
    exit(1);
  }

  TraverseDirectory(dirName);

  if (debug) {
    printf("%s\n", (failed_already) ? "FAIL" : "PASS");
  }
  return ((failed_already == PR_TRUE) ? 1 : 0);
} /* main() */
/* end template.c */