Subversion Repositories SvarDOS

Rev

Rev 393 | Rev 397 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 393 Rev 396
1 
/*
1 
/*
2 
 * dir
2 
 * dir
3 
 *
3 
 *
4 
 * Displays a list of files and subdirectories in a directory.
4 
 * Displays a list of files and subdirectories in a directory.
5 
 *
5 
 *
6 
 * DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]
6 
 * DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]
7 
 *
7 
 *
8 
 * /P Pauses after each screenful of information.
8 
 * /P Pauses after each screenful of information.
9 
 * /W Uses wide list format.
9 
 * /W Uses wide list format.
10 
 *
10 
 *
11 
 * /A Displays file with specified attributes:
11 
 * /A Displays file with specified attributes:
12 
 *     D Directories           R Read-only files     H Hidden files
12 
 *     D Directories           R Read-only files     H Hidden files
13 
 *     A Ready for archiving   S System files        - prefix meaning "not"
13 
 *     A Ready for archiving   S System files        - prefix meaning "not"
14 
 *
14 
 *
15 
 * /O List files in sorted order:
15 
 * /O List files in sorted order:
16 
 *     N by name            S by size              E by extension
16 
 *     N by name            S by size              E by extension
17 
 *     D by date            G group dirs first     - prefix to reverse order
17 
 *     D by date            G group dirs first     - prefix to reverse order
18 
 *
18 
 *
19 
 * /S Displays files in specified directory and all subdirectories.
19 
 * /S Displays files in specified directory and all subdirectories.
20 
 * /B Uses bare format (no heading information or summary)
20 
 * /B Uses bare format (no heading information or summary)
21 
 * /L Uses lowercases
21 
 * /L Uses lowercases
22 
 */
 22 
 */
23 
 
 23 
 
- 
 
 24 
/* NOTE: /A attributes are matched in an exclusive way, ie. only files with
- 
 
 25 
 *       the specified attributes are matched. This is different from how DOS
- 
 
 26 
 *       itself matches attributes hence DIR cannot rely on the attributes
- 
 
 27 
 *       filter within FindFirst.
- 
 
 28 
 *
- 
 
 29 
 * NOTE: Multiple /A are not supported - only the last one is significant.
- 
 
 30 
 */
- 
 
 31 
 
24 
static int cmd_dir(struct cmd_funcparam *p) {
 32 
static int cmd_dir(struct cmd_funcparam *p) {
25 
  const char *filespecptr = NULL;
 33 
  const char *filespecptr = NULL;
26 
  struct DTA *dta = (void *)0x80; /* set DTA to its default location at 80h in PSP */
 34 
  struct DTA *dta = (void *)0x80; /* set DTA to its default location at 80h in PSP */
27 
  int i;
 35 
  int i;
- 
 
 36 
  unsigned short availrows;  /* counter of available rows on display (used for /P) */
- 
 
 37 
  #define DIR_FLAG_PAUSE  1
- 
 
 38 
  #define DIR_FLAG_WIDE   2
- 
 
 39 
  #define DIR_FLAG_RECUR  4
- 
 
 40 
  #define DIR_FLAG_BARE   8
- 
 
 41 
  #define DIR_FLAG_LCASE 16
- 
 
 42 
  unsigned char flags = 0;
- 
 
 43 
//  unsigned char attribs_show = 0; /* show only files with ALL these attribs */
- 
 
 44 
//  unsigned char attribs_hide = 0; /* hide files with ANY of these attribs */
28 
 
 45 
 
29 
  if (cmd_ishlp(p)) {
 46 
  if (cmd_ishlp(p)) {
30 
    outputnl("Displays a list of files and subdirectories in a directory.");
 47 
    outputnl("Displays a list of files and subdirectories in a directory");
- 
 
 48 
    outputnl("");
- 
 
 49 
    outputnl("DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]");
- 
 
 50 
    outputnl("");
- 
 
 51 
    outputnl("/P Pauses after each screenful of information");
- 
 
 52 
    outputnl("/W Uses wide list format");
- 
 
 53 
    outputnl("");
- 
 
 54 
    outputnl("/A Displays files with specified attributes:");
- 
 
 55 
    outputnl("    D Directories            R Read-only files        H Hidden files");
- 
 
 56 
    outputnl("    A Ready for archiving    S System files           - prefix meaning \"not\"");
- 
 
 57 
    outputnl("");
- 
 
 58 
    outputnl("/O List files in sorted order:");
- 
 
 59 
    outputnl("    N by name                S by size                E by extension");
- 
 
 60 
    outputnl("    D by date                G group dirs first       - prefix to reverse order");
- 
 
 61 
    outputnl("");
- 
 
 62 
    outputnl("/S Displays files in specified directory and all subdirectories");
- 
 
 63 
    outputnl("/B Uses bare format (no heading information or summary)");
- 
 
 64 
    outputnl("/L Uses lowercases");
- 
 
 65 
 
- 
 
 66 
    /* TODO FIXME REMOVE THIS ONCE ALL IMPLEMENTED */
31 
    outputnl("\r\nTHIS COMMAND IS NOT FULLY IMPLEMENTED YET");
 67 
    outputnl("\r\n*** THIS COMMAND IS NOT FULLY IMPLEMENTED YET ***");
- 
 
 68 
 
32 
    return(-1);
 69 
    return(-1);
33 
  }
 70 
  }
34 
 
 71 
 
35 
  /* parse command line */
 72 
  /* parse command line */
36 
  for (i = 0; i < p->argc; i++) {
 73 
  for (i = 0; i < p->argc; i++) {
37 
    if (p->argv[i][0] == '/') {
 74 
    if (p->argv[i][0] == '/') {
- 
 
 75 
      char arg;
- 
 
 76 
      char neg = 0;
- 
 
 77 
      /* detect negations and get actual argument */
- 
 
 78 
      if (p->argv[i][1] == '-') neg = 1;
- 
 
 79 
      arg = p->argv[i][1 + neg];
- 
 
 80 
      /* */
38 
      switch (p->argv[i][1]) {
 81 
      switch (arg) {
- 
 
 82 
        case 'a':
- 
 
 83 
        case 'A':
- 
 
 84 
          /* TODO */
- 
 
 85 
          outputnl("/A NOT IMPLEMENTED YET");
- 
 
 86 
          return(-1);
- 
 
 87 
          break;
- 
 
 88 
        case 'p':
- 
 
 89 
        case 'P':
- 
 
 90 
          flags |= DIR_FLAG_PAUSE;
- 
 
 91 
          if (neg) flags &= (0xff ^ DIR_FLAG_PAUSE);
- 
 
 92 
          break;
39 
        default:
 93 
        default:
40 
          outputnl("Invalid switch");
 94 
          outputnl("Invalid switch");
41 
          return(-1);
 95 
          return(-1);
42 
      }
 96 
      }
43 
    } else {  /* filespec */
 97 
    } else {  /* filespec */
44 
      if (filespecptr != NULL) {
 98 
      if (filespecptr != NULL) {
45 
        outputnl("Too many parameters");
 99 
        outputnl("Too many parameters");
46 
        return(-1);
 100 
        return(-1);
47 
      }
 101 
      }
48 
      filespecptr = p->argv[i];
 102 
      filespecptr = p->argv[i];
49 
    }
 103 
    }
50 
  }
 104 
  }
51 
 
 105 
 
52 
  if (filespecptr == NULL) filespecptr = ".";
 106 
  if (filespecptr == NULL) filespecptr = ".";
53 
 
 107 
 
54 
  file_truename(filespecptr, p->BUFFER);
 108 
  file_truename(filespecptr, p->BUFFER);
55 
 
 109 
 
56 
  /* if dir then append \????????.??? */
 110 
  /* if dir then append \????????.??? */
57 
  i = file_getattr(p->BUFFER);
 111 
  i = file_getattr(p->BUFFER);
58 
  if ((i > 0) && (i & DOS_ATTR_DIR)) strcat(p->BUFFER, "\\????????.???");
 112 
  if ((i > 0) && (i & DOS_ATTR_DIR)) strcat(p->BUFFER, "\\????????.???");
59 
 
 113 
 
60 
  if (findfirst(dta, p->BUFFER, DOS_ATTR_RO | DOS_ATTR_HID | DOS_ATTR_SYS | DOS_ATTR_DIR | DOS_ATTR_ARC) != 0) return(-1);
 114 
  if (findfirst(dta, p->BUFFER, DOS_ATTR_RO | DOS_ATTR_HID | DOS_ATTR_SYS | DOS_ATTR_DIR | DOS_ATTR_ARC) != 0) return(-1);
61 
 
 115 
 
- 
 
 116 
  availrows = screen_getheight();
- 
 
 117 
 
62 
  outputnl(dta->fname);
 118 
  outputnl(dta->fname);
- 
 
 119 
  availrows--;
63 
 
 120 
 
64 
  while (findnext(dta) == 0) outputnl(dta->fname);
 121 
  while (findnext(dta) == 0) {
- 
 
 122 
    outputnl(dta->fname);
- 
 
 123 
    if (flags & DIR_FLAG_PAUSE) {
- 
 
 124 
      availrows--;
- 
 
 125 
      if (availrows < 2) {
- 
 
 126 
        press_any_key();
- 
 
 127 
        availrows = screen_getheight();
- 
 
 128 
      }
- 
 
 129 
    }
- 
 
 130 
  }
65 
 
 131 
 
66 
  return(-1);
 132 
  return(-1);
67 
}
 133 
}
68 
 
 134