WebSVN – SvarDOS – Diff – /svarcom/trunk/cmd/dir.c


/* This file is part of the SvarCOM project and is published under the terms
 * of the MIT license.
 *
 * Copyright (C) 2021-2024 Mateusz Viste
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 */
 
/*
 * dir
 *
 * Displays a list of files and subdirectories in a directory.
 *
 * DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]
 *
 * /P Pauses after each screenful of information.
 * /W Uses wide list format.
 *
 * /A Displays file with specified attributes:
 *     D Directories           R Read-only files     H Hidden files
 *     A Ready for archiving   S System files        - prefix meaning "not"
 *
 * /O List files in sorted order:
 *     N by name            S by size              E by extension
 *     D by date            G group dirs first     - prefix to reverse order
 *
 * /S Displays files in specified directory and all subdirectories.
 * /B Uses bare format (no heading information or summary)
 * /L Uses lowercases
 */
 
/* NOTE: /A attributes are matched in an exclusive way, ie. only files with
 *       the specified attributes are matched. This is different from how DOS
 *       itself matches attributes hence DIR cannot rely on the attributes
 *       filter within FindFirst.
 *
 * NOTE: Multiple /A are not supported - only the last one is significant.
 */
 
#define WCOLWIDTH 15  /* width of a column in wide mode output */
 
 
/* a "tiny" DTA is a DTA that is stripped from bytes that are not needed for
 * DIR operations */
_Packed struct TINYDTA {
/*  char reserved[21];
  unsigned char attr; */
  unsigned short time_sec2:5;
  unsigned short time_min:6;
  unsigned short time_hour:5;
  unsigned short date_dy:5;
  unsigned short date_mo:4;
  unsigned short date_yr:7;
  unsigned long size;
/*  char fname[13]; */
  char fname[12];
};
 
 
/* returns current COUNTRY id (1=USA, 7=RU, 33=FR, 48=PL, 49=DE, etc) */
static unsigned short dir_cur_country(void) {
  _Packed struct { /* Extended Country Info Block */
    unsigned char bRecID;   /* Information ID */
    unsigned short wRecLen; /* size of information */
    unsigned short wCountryID; /* country code */
    unsigned short wCodePgID;  /* code page */
    /* the block structure is much larger, but I only need the fields above */
  } buff;
  void *buffptr = &buff;
 
  _asm {
    push ax
    push bx
    push cx
    push dx
    push es
    push di
 
    mov ax, 0x6501  /* DOS 3.3+ - Get Extended Country Information */
    mov bx, 0xffff  /* code page (FFFFh = current) */
    mov cx, 7       /* sizeof(buff) */
    mov dx, bx      /* country code (FFFFh = current) */
    push ds
    pop es
    mov di, buffptr
    int 0x21
 
    pop di
    pop es
    pop dx
    pop cx
    pop bx
    pop ax
  }
 
  return(buff.wCountryID);
}
 
 
/* fills freebytes with free bytes for drv (A=0, B=1, etc)
 * returns DOS ERR code on failure */
static unsigned short cmd_dir_df(unsigned long *freebytes, unsigned char drv) {
  unsigned short res = 0;
  unsigned short sects_per_clust = 0, avail_clusts = 0, bytes_per_sect = 0;
 
  _asm {
    push ax
    push bx
    push cx
    push dx
 
    mov ah, 0x36  /* DOS 2+ -- Get Disk Free Space */
    mov dl, [drv] /* A=1, B=2, etc (0 = DEFAULT DRIVE) */
    inc dl
    int 0x21      /* AX=sects_per_clust, BX=avail_clusts, CX=bytes_per_sect, DX=tot_clusters */
    cmp ax, 0xffff /* AX=0xffff on error (invalid drive) */
    jne COMPUTEDF
    mov [res], 0x0f /* fill res with DOS error code 15 ("invalid drive") */
    jmp DONE
 
    COMPUTEDF:
    /* freebytes = AX * BX * CX */
    mov [sects_per_clust], ax
    mov [avail_clusts], bx
    mov [bytes_per_sect], cx
 
    DONE:
    pop dx
    pop cx
    pop bx
    pop ax
  }
 
  /* multiple steps to avoid uint16 overflow */
  *freebytes = sects_per_clust;
  *freebytes *= avail_clusts;
  *freebytes *= bytes_per_sect;
 
  return(res);
}
 
 
static void dir_pagination(unsigned short *availrows) {
  *availrows -= 1;
  if (*availrows == 0) {
    press_any_key();
    *availrows = screen_getheight() - 1;
  }
}
 
 
/* parse an attr list like "Ar-hS" and fill bitfield into attrfilter_may and attrfilter_must.
 * /AHS   -> adds S and H to mandatory attribs ("must")
 * /A-S   -> removes S from allowed attribs ("may")
 * returns non-zero on error. */
static int dir_parse_attr_list(const char *arg, unsigned char *attrfilter_may, unsigned char *attrfilter_must) {
  for (; *arg != 0; arg++) {
    unsigned char curattr;
    char not;
    if (*arg == '-') {
      not = 1;
      arg++;
    } else {
      not = 0;
    }
    switch (*arg) {
      case 'd':
      case 'D':
        curattr = DOS_ATTR_DIR;
        break;
      case 'r':
      case 'R':
        curattr = DOS_ATTR_RO;
        break;
      case 'a':
      case 'A':
        curattr = DOS_ATTR_ARC;
        break;
      case 'h':
      case 'H':
        curattr = DOS_ATTR_HID;
        break;
      case 's':
      case 'S':
        curattr = DOS_ATTR_SYS;
        break;
      default:
        return(-1);
    }
    /* update res bitfield */
    if (not) {
      *attrfilter_may &= ~curattr;
    } else {
      *attrfilter_must |= curattr;
    }
  }
  return(0);
}
 
 
/* compare attributes in a DTA node to mandatory and optional attributes. returns 1 on match, 0 otherwise */
static int filter_attribs(const struct DTA *dta, unsigned char attrfilter_must, unsigned char attrfilter_may) {
  /* if mandatory attribs are requested, filter them now */
  if ((attrfilter_must & dta->attr) != attrfilter_must) return(0);
 
  /* if file contains attributes that are not allowed -> skip */
  if ((~attrfilter_may & dta->attr) != 0) return(0);
 
  return(1);
}
 
 
static struct {
  struct TINYDTA far *dtabuf_root;
  char order[8]; /* GNESD values (ucase = lower first ; lcase = higher first) */
  unsigned char sortownia[256]; /* collation table (used for NLS-aware sorts) */
} glob_sortcmp_dat;
 
 
/* translates an order string like "GNE-S" into values fed into the order[]
 * table of glob_sortcmp_dat. returns 0 on success, non-zero otherwise. */
static int dir_process_order_directive(const char *ordstring) {
  const char *gnesd = "gnesd"; /* must be lower case */
  int ordi, orderi = 0, i;
 
  /* tabula rasa */
  glob_sortcmp_dat.order[0] = 0;
 
  /* /O alone is a short hand for /OGN */
  if (*ordstring == 0) {
    glob_sortcmp_dat.order[0] = 'G';
    glob_sortcmp_dat.order[1] = 'N';
    glob_sortcmp_dat.order[2] = 0;
  }
 
  /* stupid MSDOS compatibility ("DIR /O:GNE") */
  if (*ordstring == ':') ordstring++;
 
  /* parsing */
  for (ordi = 0; ordstring[ordi] != 0; ordi++) {
    if (ordstring[ordi] == '-') {
      if ((ordstring[ordi + 1] == '-') || (ordstring[ordi + 1] == 0)) return(-1);
      continue;
    }
    if (orderi == sizeof(glob_sortcmp_dat.order)) return(-1);
 
    for (i = 0; gnesd[i] != 0; i++) {
      if ((ordstring[ordi] | 32) == gnesd[i]) { /* | 32 is lcase-ing the char */
        if ((ordi > 0) && (ordstring[ordi - 1] == '-')) {
          glob_sortcmp_dat.order[orderi] = gnesd[i];
        } else {
          glob_sortcmp_dat.order[orderi] = gnesd[i] ^ 32;
        }
        orderi++;
        break;
      }
    }
    if (gnesd[i] == 0) return(-1);
  }
 
  return(0);
}
 
 
static int sortcmp(const void *dtaid1, const void *dtaid2) {
  struct TINYDTA far *dta1 = &(glob_sortcmp_dat.dtabuf_root[*((unsigned short *)dtaid1)]);
  struct TINYDTA far *dta2 = &(glob_sortcmp_dat.dtabuf_root[*((unsigned short *)dtaid2)]);
  char *ordconf = glob_sortcmp_dat.order;
 
  /* debug stuff
  {
    int i;
    printf("%lu vs %lu | ", dta1->size, dta2->size);
    for (i = 0; dta1->fname[i] != 0; i++) printf("%c", dta1->fname[i]);
    printf(" vs ");
    for (i = 0; dta2->fname[i] != 0; i++) printf("%c", dta2->fname[i]);
    printf("\n");
  } */
 
  for (;;) {
    int r = -1;
    if (*ordconf & 32) r = 1;
 
    switch (*ordconf | 32) {
      case 'g': /* sort by type (directories first, then files) */
        if ((dta1->time_sec2 & DOS_ATTR_DIR) > (dta2->time_sec2 & DOS_ATTR_DIR)) return(0 - r);
        if ((dta1->time_sec2 & DOS_ATTR_DIR) < (dta2->time_sec2 & DOS_ATTR_DIR)) return(r);
        break;
      case ' ': /* default (last resort) sort: by name */
      case 'e': /* sort by extension */
      case 'n': /* sort by filename */
      {
        const char far *f1 = dta1->fname;
        const char far *f2 = dta2->fname;
        int i, limit = 12;
        /* special handling for '.' and '..' entries */
        if ((f1[0] == '.') && (f2[0] != '.')) return(0 - r);
        if ((f2[0] == '.') && (f1[0] != '.')) return(r);
 
        if ((*ordconf | 32) == 'e') {
          /* fast-forward to extension or end of filename */
          while ((*f1 != 0) && (*f1 != '.')) f1++;
          while ((*f2 != 0) && (*f2 != '.')) f2++;
          limit = 4; /* TINYDTA structs are not nul-terminated */
        }
        /* cmp */
        for (i = 0; i < limit; i++) {
          if ((glob_sortcmp_dat.sortownia[(unsigned char)(*f1)]) < (glob_sortcmp_dat.sortownia[(unsigned char)(*f2)])) return(0 - r);
          if ((glob_sortcmp_dat.sortownia[(unsigned char)(*f1)]) > (glob_sortcmp_dat.sortownia[(unsigned char)(*f2)])) return(r);
          if (*f1 == 0) break;
          f1++;
          f2++;
        }
      }
        break;
      case 's': /* sort by size */
        if (dta1->size > dta2->size) return(r);
        if (dta1->size < dta2->size) return(0 - r);
        break;
      case 'd': /* sort by date */
        if (dta1->date_yr < dta2->date_yr) return(0 - r);
        if (dta1->date_yr > dta2->date_yr) return(r);
        if (dta1->date_mo < dta2->date_mo) return(0 - r);
        if (dta1->date_mo > dta2->date_mo) return(r);
        if (dta1->date_dy < dta2->date_dy) return(0 - r);
        if (dta1->date_dy > dta2->date_dy) return(r);
        if (dta1->time_hour < dta2->time_hour) return(0 - r);
        if (dta1->time_hour > dta2->time_hour) return(r);
        if (dta1->time_min < dta2->time_min) return(0 - r);
        if (dta1->time_min > dta2->time_min) return(r);
        break;
    }
 
    if (*ordconf == 0) break;
    ordconf++;
  }
 
  return(0);
}
 
 
#define DIR_ATTR_DEFAULT (DOS_ATTR_RO | DOS_ATTR_DIR | DOS_ATTR_ARC)
 
struct dirrequest {
  unsigned char attrfilter_may;
  unsigned char attrfilter_must;
  const char *filespecptr;
 
  #define DIR_FLAG_PAUSE  1
  #define DIR_FLAG_RECUR  4
  #define DIR_FLAG_LCASE  8
  #define DIR_FLAG_SORT  16
  unsigned char flags;
 
  #define DIR_OUTPUT_NORM 1
  #define DIR_OUTPUT_WIDE 2
  #define DIR_OUTPUT_BARE 3
  unsigned char format;
};
 
 
static int dir_parse_cmdline(struct dirrequest *req, const char **argv) {
  for (; *argv != NULL; argv++) {
    if (*argv[0] == '/') {
      const char *arg = *argv + 1;
      char neg = 0;
      /* detect negations and get actual argument */
      if (*arg == '-') {
        neg = 1;
        arg++;
      }
      /* */
      switch (*arg) {
        case 'a':
        case 'A':
          arg++;
          /* preset defaults */
          req->attrfilter_may = DIR_ATTR_DEFAULT;
          req->attrfilter_must = 0;
          /* /-A only allowed without further parameters (used to cancel possible previous /Asmth) */
          if (neg) {
            if (*arg != 0) {
              nls_outputnl_err(0, 2); /* invalid switch */
              return(-1);
            }
          } else {
            /* skip colon if present */
            if (*arg == ':') arg++;
            /* start with "allow everything" */
            req->attrfilter_may = (DOS_ATTR_ARC | DOS_ATTR_DIR | DOS_ATTR_HID | DOS_ATTR_SYS | DOS_ATTR_RO);
            if (dir_parse_attr_list(arg, &(req->attrfilter_may), &(req->attrfilter_must)) != 0) {
              nls_outputnl_err(0, 3); /* invalid parameter format */
              return(-1);
            }
          }
          break;
        case 'b':
        case 'B':
          req->format = DIR_OUTPUT_BARE;
          break;
        case 'l':
        case 'L':
          req->flags |= DIR_FLAG_LCASE;
          break;
        case 'o':
        case 'O':
          if (neg) {
            req->flags &= (0xff ^ DIR_FLAG_SORT);
            break;
          }
          if (dir_process_order_directive(arg+1) != 0) {
            nls_output_err(0, 3); /* invalid parameter format */
            output(": ");
            outputnl(arg);
            return(-1);
          }
          req->flags |= DIR_FLAG_SORT;
          break;
        case 'p':
        case 'P':
          req->flags |= DIR_FLAG_PAUSE;
          if (neg) req->flags &= (0xff ^ DIR_FLAG_PAUSE);
          break;
        case 's':
        case 'S':
          /* TODO */
          outputnl("/S NOT IMPLEMENTED YET");
          return(-1);
          break;
        case 'w':
        case 'W':
          req->format = DIR_OUTPUT_WIDE;
          break;
        default:
          nls_outputnl_err(0, 2); /* invalid switch */
          return(-1);
      }
    } else {  /* filespec */
      if (req->filespecptr != NULL) {
        nls_outputnl_err(0, 4); /* too many parameters */
        return(-1);
      }
      req->filespecptr = *argv;
    }
  }
 
  return(0);
}
 
 
static enum cmd_result cmd_dir(struct cmd_funcparam *p) {
  struct DTA *dta = (void *)0x80; /* set DTA to its default location at 80h in PSP */
  struct TINYDTA far *dtabuf = NULL; /* used to buffer results when sorting is enabled */
  unsigned short dtabufcount = 0;
  unsigned short i;
  unsigned short availrows;  /* counter of available rows on display (used for /P) */
  unsigned short screenw = screen_getwidth();
  unsigned short wcols = screenw / WCOLWIDTH; /* number of columns in wide mode */
  unsigned char wcolcount;
  struct {
    struct nls_patterns nls;
    char buff64[64];
    char path[128];
    unsigned short orderidx[65535 / sizeof(struct TINYDTA)];
  } *buf = (void *)(p->BUFFER);
  unsigned long summary_fcount = 0;
  unsigned long summary_totsz = 0;
  unsigned char drv = 0;
  struct dirrequest req;
 
  /* make sure there's no risk of buffer overflow */
  if (sizeof(buf) > p->BUFFERSZ) {
    outputnl("INTERNAL MEM ERROR IN " __FILE__);
    return(CMD_FAIL);
  }
 
  if (cmd_ishlp(p)) {
    nls_outputnl(37,0); /* "Displays a list of files and subdirectories in a directory" */
    outputnl("");
    nls_outputnl(37,1); /* "DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]" */
    outputnl("");
    nls_outputnl(37,2); /* "/P Pauses after each screenful of information" */
    nls_outputnl(37,3); /* "/W Uses wide list format" */
    outputnl("");
    nls_outputnl(37,4); /* "/A Displays files with specified attributes:" */
    nls_outputnl(37,5); /* "    D Directories            R Read-only files        H Hidden files" */
    nls_outputnl(37,6); /* "    A Ready for archiving    S System files           - prefix meaning "not"" */
    outputnl("");
    nls_outputnl(37,7); /* "/O List files in sorted order:" */
    nls_outputnl(37,8); /* "    N by name                S by size                E by extension" */
    nls_outputnl(37,9); /* "    D by date                G group dirs first       - prefix to reverse order" */
    outputnl("");
    nls_outputnl(37,10); /* "/S Displays files in specified directory and all subdirectories" */
    nls_outputnl(37,11); /* "/B Uses bare format (no heading information or summary)" */
    nls_outputnl(37,12); /* "/L Uses lowercases" */
    return(CMD_OK);
  }
 
  /* zero out glob_sortcmp_dat and init the collation table */
  bzero(&glob_sortcmp_dat, sizeof(glob_sortcmp_dat));
  for (i = 0; i < 256; i++) {
    glob_sortcmp_dat.sortownia[i] = i;
    /* sorting should be case-insensitive */
    if ((i >= 'A') && (i <= 'Z')) glob_sortcmp_dat.sortownia[i] |= 32;
  }
 
  /* try to replace (or complement) my naive collation table with an NLS-aware
   * version provided by the kernel (or NLSFUNC)
   * do this ONLY for COUNTRY codes that are higher than 1, because zero is
   * invalid and value 1 can mean either "USA" or "undefined".
   * ref: https://github.com/SvarDOS/bugz/issues/68 */
  if (dir_cur_country() > 1) {
    _Packed struct nlsseqtab {
      unsigned char id;
      unsigned short taboff;
      unsigned short tabseg;
    } collat;
    void *colptr = &collat;
    unsigned char errflag = 1;
    _asm {
      push ax
      push bx
      push cx
      push dx
      push di
      push es
 
      mov ax, 0x6506  /* DOS 3.3+ - Get collating sequence table */
      mov bx, 0xffff  /* code page, FFFFh = "current" */
      mov cx, 5       /* size of buffer at ES:DI */
      mov dx, 0xffff  /* country id, FFFFh = "current" */
      push ds
      pop es          /* ES:DI = address of buffer for the 5-bytes struct */
      mov di, colptr
      int 0x21
      jc FAIL
      xor al, al
      mov errflag, al
      FAIL:
 
      pop es
      pop di
      pop dx
      pop cx
      pop bx
      pop ax
    }
 
    if ((errflag == 0) && (collat.id == 6)) {
      unsigned char far *ptr = MK_FP(collat.tabseg, collat.taboff);
      unsigned short count = *(unsigned short far *)ptr;
      /* printf("NLS AT %04X:%04X (%u elements)\n", collat.tabseg, collat.taboff, count); */
      if (count <= 256) { /* you never know */
        ptr += 2; /* skip the count header */
        for (i = 0; i < count; i++) {
          glob_sortcmp_dat.sortownia[i] = ptr[i];
        }
      }
    }
  }
 
  i = nls_getpatterns(&(buf->nls));
  if (i != 0) nls_outputnl_doserr(i);
 
  /* disable usage of thousands separator on narrow screens */
  if (screenw < 80) buf->nls.thousep[0] = 0;
 
  /*** PARSING COMMAND LINE STARTS *******************************************/
 
  /* init req with some defaults */
  bzero(&req, sizeof(req));
  req.attrfilter_may = DIR_ATTR_DEFAULT;
  req.format = DIR_OUTPUT_NORM;
 
  /* process DIRCMD first (so it can be overidden by user's cmdline) */
  {
  const char far *dircmd = env_lookup_val(p->env_seg, "DIRCMD");
  if (dircmd != NULL) {
    const char *argvptrs[32];
    cmd_explode(buf->buff64, dircmd, argvptrs);
    if ((dir_parse_cmdline(&req, argvptrs) != 0) || (req.filespecptr != NULL)) {
      nls_output(255, 10);/* bad environment */
      output(" - ");
      outputnl("DIRCMD");
      return(CMD_FAIL);
    }
  }
  }
 
  /* parse user's command line */
  if (dir_parse_cmdline(&req, p->argv) != 0) return(CMD_FAIL);
 
  /* if no filespec provided, then it's about the current directory */
  if (req.filespecptr == NULL) req.filespecptr = ".";
 
  /*** PARSING COMMAND LINE DONE *********************************************/
 
 
  availrows = screen_getheight() - 2;
 
  /* special case: "DIR drive:" (truename() fails on "C:" under MS-DOS 6.0) */
  if ((req.filespecptr[0] != 0) && (req.filespecptr[1] == ':') && (req.filespecptr[2] == 0)) {
    if ((req.filespecptr[0] >= 'a') && (req.filespecptr[0] <= 'z')) {
      buf->path[0] = req.filespecptr[0] - ('a' - 1);
    } else {
      buf->path[0] = req.filespecptr[0] - ('A' - 1);
    }
    i = curpathfordrv(buf->path, buf->path[0]);
  } else {
    i = file_truename(req.filespecptr, buf->path);
  }
  if (i != 0) {
    nls_outputnl_doserr(i);
    return(CMD_FAIL);
  }
 
  if (req.format != DIR_OUTPUT_BARE) {
    drv = buf->path[0];
    if (drv >= 'a') {
      drv -= 'a';
    } else {
      drv -= 'A';
    }
    cmd_vol_internal(drv, buf->buff64);
    sprintf(buf->buff64, svarlang_str(37,20)/*"Directory of %s"*/, buf->path);
    /* trim at first '?', if any */
    for (i = 0; buf->buff64[i] != 0; i++) if (buf->buff64[i] == '?') buf->buff64[i] = 0;
    outputnl(buf->buff64);
    outputnl("");
    availrows -= 3;
  }
 
  /* if dir: append a backslash (also get its len) */
  i = path_appendbkslash_if_dir(buf->path);
 
  /* if ends with a \ then append ????????.??? */
  if (buf->path[i - 1] == '\\') strcat(buf->path, "????????.???");
 
  /* ask DOS for list of files, but only with allowed attribs */
  i = findfirst(dta, buf->path, req.attrfilter_may);
  if (i != 0) {
    nls_outputnl_doserr(i);
    return(CMD_FAIL);
  }
 
  /* if sorting is involved, then let's buffer all results (and sort them) */
  if (req.flags & DIR_FLAG_SORT) {
    /* allocate a memory buffer - try several sizes until one succeeds */
    const unsigned short memsz[] = {65500, 32000, 16000, 8000, 4000, 2000, 1000, 0};
    unsigned short max_dta_bufcount = 0;
    for (i = 0; memsz[i] != 0; i++) {
      dtabuf = _fmalloc(memsz[i]);
      if (dtabuf != NULL) break;
    }
 
    if (dtabuf == NULL) {
      nls_outputnl_doserr(8); /* out of memory */
      return(CMD_FAIL);
    }
 
    /* remember the address so I can free it afterwards */
    glob_sortcmp_dat.dtabuf_root = dtabuf;
 
    /* compute the amount of DTAs I can buffer */
    max_dta_bufcount = memsz[i] / sizeof(struct TINYDTA);
    /* printf("max_dta_bufcount = %u\n", max_dta_bufcount); */
 
    do {
      /* filter out files with uninteresting attributes */
      if (filter_attribs(dta, req.attrfilter_must, req.attrfilter_may) == 0) continue;
 
      /* normalize "size" of directories to zero because kernel returns garbage
       * sizes for directories which might confuse the sorting routine later */
      if (dta->attr & DOS_ATTR_DIR) dta->size = 0;
 
      _fmemcpy(&(dtabuf[dtabufcount]), ((char *)dta) + 22, sizeof(struct TINYDTA));
 
      /* save attribs in sec field, otherwise zero it (this field is not
       * displayed and dropping the attr field saves 2 bytes per entry) */
      dtabuf[dtabufcount++].time_sec2 = (dta->attr & 31);
 
      /* do I have any space left? */
      if (dtabufcount == max_dta_bufcount) {
        //TODO some kind of user notification might be nice here
        //outputnl("TOO MANY ENTRIES FOR SORTING! LIST IS UNSORTED");
        break;
      }
 
    } while (findnext(dta) == 0);
 
    /* no match? kein gluck! (this can happen when filtering attribs with /A:xxx
     * because while findfirst() succeeds, all entries can be rejected) */
    if (dtabufcount == 0) {
      nls_outputnl_doserr(2); /* "File not found" */
      return(CMD_FAIL);
    }
 
    /* sort the list - the tricky part is that my array is a far address while
     * qsort works only with near pointers, so I have to use an ugly (and
     * global) auxiliary table */
    for (i = 0; i < dtabufcount; i++) buf->orderidx[i] = i;
    qsort(buf->orderidx, dtabufcount, 2, &sortcmp);
 
    /* preload first entry (last from orderidx, since entries are sorted in reverse) */
    dtabufcount--;
    _fmemcpy(((unsigned char *)dta) + 22, &(dtabuf[buf->orderidx[dtabufcount]]), sizeof(struct TINYDTA));
    dta->attr = dtabuf[buf->orderidx[dtabufcount]].time_sec2; /* restore attr from the abused time_sec2 field */
  }
 
  wcolcount = 0; /* may be used for columns counting with wide mode */
 
  for (;;) {
 
    /* filter out attributes (skip if entry comes from buffer, then it was already veted) */
    if (filter_attribs(dta, req.attrfilter_must, req.attrfilter_may) == 0) goto NEXT_ENTRY;
 
    /* turn string lcase (/L) */
    if (req.flags & DIR_FLAG_LCASE) _strlwr(dta->fname); /* OpenWatcom extension, probably does not care about NLS so results may be odd with non-A-Z characters... */
 
    summary_fcount++;
    if ((dta->attr & DOS_ATTR_DIR) == 0) summary_totsz += dta->size;
 
    switch (req.format) {
      case DIR_OUTPUT_NORM:
        /* print fname-space-extension (unless it's "." or "..", then print as-is) */
        if (dta->fname[0] == '.') {
          output(dta->fname);
          i = strlen(dta->fname);
          while (i++ < 12) output(" ");
        } else {
          file_fname2fcb(buf->buff64, dta->fname);
          memmove(buf->buff64 + 9, buf->buff64 + 8, 4);
          buf->buff64[8] = ' ';
          output(buf->buff64);
        }
        output(" ");
        /* either <DIR> or right aligned 10-chars byte size */
        memset(buf->buff64, ' ', 10);
        if (dta->attr & DOS_ATTR_DIR) {
          strcpy(buf->buff64 + 10, svarlang_str(37,21));
        } else {
          nls_format_number(buf->buff64 + 10, dta->size, &(buf->nls));
        }
        output(buf->buff64 + strlen(buf->buff64) - 10);
        /* two spaces and NLS DATE */
        buf->buff64[0] = ' ';
        buf->buff64[1] = ' ';
        if (screenw >= 80) {
          nls_format_date(buf->buff64 + 2, dta->date_yr + 1980, dta->date_mo, dta->date_dy, &(buf->nls));
        } else {
          nls_format_date(buf->buff64 + 2, (dta->date_yr + 80) % 100, dta->date_mo, dta->date_dy, &(buf->nls));
        }
        output(buf->buff64);
 
        /* one space and NLS TIME */
        nls_format_time(buf->buff64 + 1, dta->time_hour, dta->time_min, 0xff, &(buf->nls));
        outputnl(buf->buff64);
        break;
 
      case DIR_OUTPUT_WIDE: /* display in columns of 12 chars per item */
        i = strlen(dta->fname);
        if (dta->attr & DOS_ATTR_DIR) {
          i += 2;
          output("[");
          output(dta->fname);
          output("]");
        } else {
          output(dta->fname);
        }
        while (i++ < WCOLWIDTH) output(" ");
        if (++wcolcount == wcols) {
          wcolcount = 0;
          outputnl("");
        } else {
          availrows++; /* wide mode is the only one that does not write one line per file */
        }
        break;
 
      case DIR_OUTPUT_BARE:
        outputnl(dta->fname);
        break;
    }
 
    if (req.flags & DIR_FLAG_PAUSE) dir_pagination(&availrows);
 
    NEXT_ENTRY:
    /* take next entry, either from buf or disk */
    if (dtabufcount > 0) {
      dtabufcount--;
      _fmemcpy(((unsigned char *)dta) + 22, &(dtabuf[buf->orderidx[dtabufcount]]), sizeof(struct TINYDTA));
      dta->attr = dtabuf[buf->orderidx[dtabufcount]].time_sec2; /* restore attr from the abused time_sec2 field */
    } else {
      if (findnext(dta) != 0) break;
    }
 
  }
 
  if (wcolcount != 0) {
    outputnl(""); /* in wide mode make sure to end on a clear row */
    if (req.flags & DIR_FLAG_PAUSE) dir_pagination(&availrows);
  }
 
  /* print out summary (unless bare output mode) */
  if (req.format != DIR_OUTPUT_BARE) {
    unsigned short alignpos;
    unsigned char uint32maxlen = 13; /* 13 is the max len of a 32 bit number with thousand separators (4'000'000'000) */
    if (screenw < 80) uint32maxlen = 10;
    /* x file(s) */
    memset(buf->buff64, ' ', uint32maxlen);
    i = nls_format_number(buf->buff64 + uint32maxlen, summary_fcount, &(buf->nls));
    alignpos = sprintf(buf->buff64 + uint32maxlen + i, " %s ", svarlang_str(37,22)/*"file(s)"*/);
    output(buf->buff64 + i);
    /* xxxx bytes */
    i = nls_format_number(buf->buff64 + uint32maxlen, summary_totsz, &(buf->nls));
    output(buf->buff64 + i + 1);
    output(" ");
    nls_outputnl(37,23); /* "bytes" */
    if (req.flags & DIR_FLAG_PAUSE) dir_pagination(&availrows);
    /* xxxx bytes free */
    i = cmd_dir_df(&summary_totsz, drv);
    if (i != 0) nls_outputnl_doserr(i);
    alignpos += uint32maxlen * 2;
    memset(buf->buff64, ' ', alignpos); /* align the freebytes value to same column as totbytes */
    i = nls_format_number(buf->buff64 + alignpos, summary_totsz, &(buf->nls));
    output(buf->buff64 + i + 1);
    output(" ");
    nls_outputnl(37,24); /* "bytes free" */
    if (req.flags & DIR_FLAG_PAUSE) dir_pagination(&availrows);
  }
 
  /* free the buffer memory (if used) */
  if (glob_sortcmp_dat.dtabuf_root != NULL) _ffree(glob_sortcmp_dat.dtabuf_root);
 
  return(CMD_OK);
}
 

Rev 1743	Rev 1744
1	`/* This file is part of the SvarCOM project and is published under the terms`	1	`/* This file is part of the SvarCOM project and is published under the terms`
2	`* of the MIT license.`	2	`* of the MIT license.`
3	`*`	3	`*`
4	`* Copyright (C) 2021-2024 Mateusz Viste`	4	`* Copyright (C) 2021-2024 Mateusz Viste`
5	`*`	5	`*`
6	`* Permission is hereby granted, free of charge, to any person obtaining a`	6	`* Permission is hereby granted, free of charge, to any person obtaining a`
7	`* copy of this software and associated documentation files (the "Software"),`	7	`* copy of this software and associated documentation files (the "Software"),`
8	`* to deal in the Software without restriction, including without limitation`	8	`* to deal in the Software without restriction, including without limitation`
9	`* the rights to use, copy, modify, merge, publish, distribute, sublicense,`	9	`* the rights to use, copy, modify, merge, publish, distribute, sublicense,`
10	`* and/or sell copies of the Software, and to permit persons to whom the`	10	`* and/or sell copies of the Software, and to permit persons to whom the`
11	`* Software is furnished to do so, subject to the following conditions:`	11	`* Software is furnished to do so, subject to the following conditions:`
12	`*`	12	`*`
13	`* The above copyright notice and this permission notice shall be included in`	13	`* The above copyright notice and this permission notice shall be included in`
14	`* all copies or substantial portions of the Software.`	14	`* all copies or substantial portions of the Software.`
15	`*`	15	`*`
16	`* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR`	16	`* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR`
17	`* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,`	17	`* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,`
18	`* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE`	18	`* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE`
19	`* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER`	19	`* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER`
20	`* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING`	20	`* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING`
21	`* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER`	21	`* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER`
22	`* DEALINGS IN THE SOFTWARE.`	22	`* DEALINGS IN THE SOFTWARE.`
23	`*/`	23	`*/`
24		24
25	`/*`	25	`/*`
26	`* dir`	26	`* dir`
27	`*`	27	`*`
28	`* Displays a list of files and subdirectories in a directory.`	28	`* Displays a list of files and subdirectories in a directory.`
29	`*`	29	`*`
30	`* DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]`	30	`* DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]`
31	`*`	31	`*`
32	`* /P Pauses after each screenful of information.`	32	`* /P Pauses after each screenful of information.`
33	`* /W Uses wide list format.`	33	`* /W Uses wide list format.`
34	`*`	34	`*`
35	`* /A Displays file with specified attributes:`	35	`* /A Displays file with specified attributes:`
36	`* D Directories R Read-only files H Hidden files`	36	`* D Directories R Read-only files H Hidden files`
37	`* A Ready for archiving S System files - prefix meaning "not"`	37	`* A Ready for archiving S System files - prefix meaning "not"`
38	`*`	38	`*`
39	`* /O List files in sorted order:`	39	`* /O List files in sorted order:`
40	`* N by name S by size E by extension`	40	`* N by name S by size E by extension`
41	`* D by date G group dirs first - prefix to reverse order`	41	`* D by date G group dirs first - prefix to reverse order`
42	`*`	42	`*`
43	`* /S Displays files in specified directory and all subdirectories.`	43	`* /S Displays files in specified directory and all subdirectories.`
44	`* /B Uses bare format (no heading information or summary)`	44	`* /B Uses bare format (no heading information or summary)`
45	`* /L Uses lowercases`	45	`* /L Uses lowercases`
46	`*/`	46	`*/`
47		47
48	`/* NOTE: /A attributes are matched in an exclusive way, ie. only files with`	48	`/* NOTE: /A attributes are matched in an exclusive way, ie. only files with`
49	`* the specified attributes are matched. This is different from how DOS`	49	`* the specified attributes are matched. This is different from how DOS`
50	`* itself matches attributes hence DIR cannot rely on the attributes`	50	`* itself matches attributes hence DIR cannot rely on the attributes`
51	`* filter within FindFirst.`	51	`* filter within FindFirst.`
52	`*`	52	`*`
53	`* NOTE: Multiple /A are not supported - only the last one is significant.`	53	`* NOTE: Multiple /A are not supported - only the last one is significant.`
54	`*/`	54	`*/`
55		55
56	`#define WCOLWIDTH 15 /* width of a column in wide mode output */`	56	`#define WCOLWIDTH 15 /* width of a column in wide mode output */`
57		57
58		58
59	`/* a "tiny" DTA is a DTA that is stripped from bytes that are not needed for`	59	`/* a "tiny" DTA is a DTA that is stripped from bytes that are not needed for`
60	`* DIR operations */`	60	`* DIR operations */`
61	`_Packed struct TINYDTA {`	61	`_Packed struct TINYDTA {`
62	`/* char reserved[21];`	62	`/* char reserved[21];`
63	`unsigned char attr; */`	63	`unsigned char attr; */`
64	`unsigned short time_sec2:5;`	64	`unsigned short time_sec2:5;`
65	`unsigned short time_min:6;`	65	`unsigned short time_min:6;`
66	`unsigned short time_hour:5;`	66	`unsigned short time_hour:5;`
67	`unsigned short date_dy:5;`	67	`unsigned short date_dy:5;`
68	`unsigned short date_mo:4;`	68	`unsigned short date_mo:4;`
69	`unsigned short date_yr:7;`	69	`unsigned short date_yr:7;`
70	`unsigned long size;`	70	`unsigned long size;`
71	`/* char fname[13]; */`	71	`/* char fname[13]; */`
72	`char fname[12];`	72	`char fname[12];`
73	`};`	73	`};`
74		74
75		75
-		76	`/* returns current COUNTRY id (1=USA, 7=RU, 33=FR, 48=PL, 49=DE, etc) */`
-		77	`static unsigned short dir_cur_country(void) {`
-		78	`_Packed struct { /* Extended Country Info Block */`
-		79	`unsigned char bRecID; /* Information ID */`
-		80	`unsigned short wRecLen; /* size of information */`
-		81	`unsigned short wCountryID; /* country code */`
-		82	`unsigned short wCodePgID; /* code page */`
-		83	`/* the block structure is much larger, but I only need the fields above */`
-		84	`} buff;`
-		85	`void *buffptr = &buff;`
-		86
-		87	`_asm {`
-		88	`push ax`
-		89	`push bx`
-		90	`push cx`
-		91	`push dx`
-		92	`push es`
-		93	`push di`
-		94
-		95	`mov ax, 0x6501 /* DOS 3.3+ - Get Extended Country Information */`
-		96	`mov bx, 0xffff /* code page (FFFFh = current) */`
-		97	`mov cx, 7 /* sizeof(buff) */`
-		98	`mov dx, bx /* country code (FFFFh = current) */`
-		99	`push ds`
-		100	`pop es`
-		101	`mov di, buffptr`
-		102	`int 0x21`
-		103
-		104	`pop di`
-		105	`pop es`
-		106	`pop dx`
-		107	`pop cx`
-		108	`pop bx`
-		109	`pop ax`
-		110	`}`
-		111
-		112	`return(buff.wCountryID);`
-		113	`}`
-		114
-		115
76	`/* fills freebytes with free bytes for drv (A=0, B=1, etc)`	116	`/* fills freebytes with free bytes for drv (A=0, B=1, etc)`
77	`* returns DOS ERR code on failure */`	117	`* returns DOS ERR code on failure */`
78	`static unsigned short cmd_dir_df(unsigned long *freebytes, unsigned char drv) {`	118	`static unsigned short cmd_dir_df(unsigned long *freebytes, unsigned char drv) {`
79	`unsigned short res = 0;`	119	`unsigned short res = 0;`
80	`unsigned short sects_per_clust = 0, avail_clusts = 0, bytes_per_sect = 0;`	120	`unsigned short sects_per_clust = 0, avail_clusts = 0, bytes_per_sect = 0;`
81		121
82	`_asm {`	122	`_asm {`
83	`push ax`	123	`push ax`
84	`push bx`	124	`push bx`
85	`push cx`	125	`push cx`
86	`push dx`	126	`push dx`
87		127
88	`mov ah, 0x36 /* DOS 2+ -- Get Disk Free Space */`	128	`mov ah, 0x36 /* DOS 2+ -- Get Disk Free Space */`
89	`mov dl, [drv] /* A=1, B=2, etc (0 = DEFAULT DRIVE) */`	129	`mov dl, [drv] /* A=1, B=2, etc (0 = DEFAULT DRIVE) */`
90	`inc dl`	130	`inc dl`
91	`int 0x21 /* AX=sects_per_clust, BX=avail_clusts, CX=bytes_per_sect, DX=tot_clusters */`	131	`int 0x21 /* AX=sects_per_clust, BX=avail_clusts, CX=bytes_per_sect, DX=tot_clusters */`
92	`cmp ax, 0xffff /* AX=0xffff on error (invalid drive) */`	132	`cmp ax, 0xffff /* AX=0xffff on error (invalid drive) */`
93	`jne COMPUTEDF`	133	`jne COMPUTEDF`
94	`mov [res], 0x0f /* fill res with DOS error code 15 ("invalid drive") */`	134	`mov [res], 0x0f /* fill res with DOS error code 15 ("invalid drive") */`
95	`jmp DONE`	135	`jmp DONE`
96		136
97	`COMPUTEDF:`	137	`COMPUTEDF:`
98	`/* freebytes = AX * BX * CX */`	138	`/* freebytes = AX * BX * CX */`
99	`mov [sects_per_clust], ax`	139	`mov [sects_per_clust], ax`
100	`mov [avail_clusts], bx`	140	`mov [avail_clusts], bx`
101	`mov [bytes_per_sect], cx`	141	`mov [bytes_per_sect], cx`
102		142
103	`DONE:`	143	`DONE:`
104	`pop dx`	144	`pop dx`
105	`pop cx`	145	`pop cx`
106	`pop bx`	146	`pop bx`
107	`pop ax`	147	`pop ax`
108	`}`	148	`}`
109		149
110	`/* multiple steps to avoid uint16 overflow */`	150	`/* multiple steps to avoid uint16 overflow */`
111	`*freebytes = sects_per_clust;`	151	`*freebytes = sects_per_clust;`
112	`freebytes = avail_clusts;`	152	`freebytes = avail_clusts;`
113	`freebytes = bytes_per_sect;`	153	`freebytes = bytes_per_sect;`
114		154
115	`return(res);`	155	`return(res);`
116	`}`	156	`}`
117		157
118		158
119	`static void dir_pagination(unsigned short *availrows) {`	159	`static void dir_pagination(unsigned short *availrows) {`
120	`*availrows -= 1;`	160	`*availrows -= 1;`
121	`if (*availrows == 0) {`	161	`if (*availrows == 0) {`
122	`press_any_key();`	162	`press_any_key();`
123	`*availrows = screen_getheight() - 1;`	163	`*availrows = screen_getheight() - 1;`
124	`}`	164	`}`
125	`}`	165	`}`
126		166
127		167
128	`/* parse an attr list like "Ar-hS" and fill bitfield into attrfilter_may and attrfilter_must.`	168	`/* parse an attr list like "Ar-hS" and fill bitfield into attrfilter_may and attrfilter_must.`
129	`* /AHS -> adds S and H to mandatory attribs ("must")`	169	`* /AHS -> adds S and H to mandatory attribs ("must")`
130	`* /A-S -> removes S from allowed attribs ("may")`	170	`* /A-S -> removes S from allowed attribs ("may")`
131	`* returns non-zero on error. */`	171	`* returns non-zero on error. */`
132	`static int dir_parse_attr_list(const char arg, unsigned char attrfilter_may, unsigned char *attrfilter_must) {`	172	`static int dir_parse_attr_list(const char arg, unsigned char attrfilter_may, unsigned char *attrfilter_must) {`
133	`for (; *arg != 0; arg++) {`	173	`for (; *arg != 0; arg++) {`
134	`unsigned char curattr;`	174	`unsigned char curattr;`
135	`char not;`	175	`char not;`
136	`if (*arg == '-') {`	176	`if (*arg == '-') {`
137	`not = 1;`	177	`not = 1;`
138	`arg++;`	178	`arg++;`
139	`} else {`	179	`} else {`
140	`not = 0;`	180	`not = 0;`
141	`}`	181	`}`
142	`switch (*arg) {`	182	`switch (*arg) {`
143	`case 'd':`	183	`case 'd':`
144	`case 'D':`	184	`case 'D':`
145	`curattr = DOS_ATTR_DIR;`	185	`curattr = DOS_ATTR_DIR;`
146	`break;`	186	`break;`
147	`case 'r':`	187	`case 'r':`
148	`case 'R':`	188	`case 'R':`
149	`curattr = DOS_ATTR_RO;`	189	`curattr = DOS_ATTR_RO;`
150	`break;`	190	`break;`
151	`case 'a':`	191	`case 'a':`
152	`case 'A':`	192	`case 'A':`
153	`curattr = DOS_ATTR_ARC;`	193	`curattr = DOS_ATTR_ARC;`
154	`break;`	194	`break;`
155	`case 'h':`	195	`case 'h':`
156	`case 'H':`	196	`case 'H':`
157	`curattr = DOS_ATTR_HID;`	197	`curattr = DOS_ATTR_HID;`
158	`break;`	198	`break;`
159	`case 's':`	199	`case 's':`
160	`case 'S':`	200	`case 'S':`
161	`curattr = DOS_ATTR_SYS;`	201	`curattr = DOS_ATTR_SYS;`
162	`break;`	202	`break;`
163	`default:`	203	`default:`
164	`return(-1);`	204	`return(-1);`
165	`}`	205	`}`
166	`/* update res bitfield */`	206	`/* update res bitfield */`
167	`if (not) {`	207	`if (not) {`
168	`*attrfilter_may &= ~curattr;`	208	`*attrfilter_may &= ~curattr;`
169	`} else {`	209	`} else {`
170	`*attrfilter_must \|= curattr;`	210	`*attrfilter_must \|= curattr;`
171	`}`	211	`}`
172	`}`	212	`}`
173	`return(0);`	213	`return(0);`
174	`}`	214	`}`
175		215
176		216
177	`/* compare attributes in a DTA node to mandatory and optional attributes. returns 1 on match, 0 otherwise */`	217	`/* compare attributes in a DTA node to mandatory and optional attributes. returns 1 on match, 0 otherwise */`
178	`static int filter_attribs(const struct DTA *dta, unsigned char attrfilter_must, unsigned char attrfilter_may) {`	218	`static int filter_attribs(const struct DTA *dta, unsigned char attrfilter_must, unsigned char attrfilter_may) {`
179	`/* if mandatory attribs are requested, filter them now */`	219	`/* if mandatory attribs are requested, filter them now */`
180	`if ((attrfilter_must & dta->attr) != attrfilter_must) return(0);`	220	`if ((attrfilter_must & dta->attr) != attrfilter_must) return(0);`
181		221
182	`/* if file contains attributes that are not allowed -> skip */`	222	`/* if file contains attributes that are not allowed -> skip */`
183	`if ((~attrfilter_may & dta->attr) != 0) return(0);`	223	`if ((~attrfilter_may & dta->attr) != 0) return(0);`
184		224
185	`return(1);`	225	`return(1);`
186	`}`	226	`}`
187		227
188		228
189	`static struct {`	229	`static struct {`
190	`struct TINYDTA far *dtabuf_root;`	230	`struct TINYDTA far *dtabuf_root;`
191	`char order[8]; /* GNESD values (ucase = lower first ; lcase = higher first) */`	231	`char order[8]; /* GNESD values (ucase = lower first ; lcase = higher first) */`
192	`unsigned char sortownia[256]; /* collation table (used for NLS-aware sorts) */`	232	`unsigned char sortownia[256]; /* collation table (used for NLS-aware sorts) */`
193	`} glob_sortcmp_dat;`	233	`} glob_sortcmp_dat;`
194		234
195		235
196	`/* translates an order string like "GNE-S" into values fed into the order[]`	236	`/* translates an order string like "GNE-S" into values fed into the order[]`
197	`* table of glob_sortcmp_dat. returns 0 on success, non-zero otherwise. */`	237	`* table of glob_sortcmp_dat. returns 0 on success, non-zero otherwise. */`
198	`static int dir_process_order_directive(const char *ordstring) {`	238	`static int dir_process_order_directive(const char *ordstring) {`
199	`const char gnesd = "gnesd"; / must be lower case */`	239	`const char gnesd = "gnesd"; / must be lower case */`
200	`int ordi, orderi = 0, i;`	240	`int ordi, orderi = 0, i;`
201		241
202	`/* tabula rasa */`	242	`/* tabula rasa */`
203	`glob_sortcmp_dat.order[0] = 0;`	243	`glob_sortcmp_dat.order[0] = 0;`
204		244
205	`/* /O alone is a short hand for /OGN */`	245	`/* /O alone is a short hand for /OGN */`
206	`if (*ordstring == 0) {`	246	`if (*ordstring == 0) {`
207	`glob_sortcmp_dat.order[0] = 'G';`	247	`glob_sortcmp_dat.order[0] = 'G';`
208	`glob_sortcmp_dat.order[1] = 'N';`	248	`glob_sortcmp_dat.order[1] = 'N';`
209	`glob_sortcmp_dat.order[2] = 0;`	249	`glob_sortcmp_dat.order[2] = 0;`
210	`}`	250	`}`
211		251
212	`/* stupid MSDOS compatibility ("DIR /O:GNE") */`	252	`/* stupid MSDOS compatibility ("DIR /O:GNE") */`
213	`if (*ordstring == ':') ordstring++;`	253	`if (*ordstring == ':') ordstring++;`
214		254
215	`/* parsing */`	255	`/* parsing */`
216	`for (ordi = 0; ordstring[ordi] != 0; ordi++) {`	256	`for (ordi = 0; ordstring[ordi] != 0; ordi++) {`
217	`if (ordstring[ordi] == '-') {`	257	`if (ordstring[ordi] == '-') {`
218	`if ((ordstring[ordi + 1] == '-') \|\| (ordstring[ordi + 1] == 0)) return(-1);`	258	`if ((ordstring[ordi + 1] == '-') \|\| (ordstring[ordi + 1] == 0)) return(-1);`
219	`continue;`	259	`continue;`
220	`}`	260	`}`
221	`if (orderi == sizeof(glob_sortcmp_dat.order)) return(-1);`	261	`if (orderi == sizeof(glob_sortcmp_dat.order)) return(-1);`
222		262
223	`for (i = 0; gnesd[i] != 0; i++) {`	263	`for (i = 0; gnesd[i] != 0; i++) {`
224	`if ((ordstring[ordi] \| 32) == gnesd[i]) { /* \| 32 is lcase-ing the char */`	264	`if ((ordstring[ordi] \| 32) == gnesd[i]) { /* \| 32 is lcase-ing the char */`
225	`if ((ordi > 0) && (ordstring[ordi - 1] == '-')) {`	265	`if ((ordi > 0) && (ordstring[ordi - 1] == '-')) {`
226	`glob_sortcmp_dat.order[orderi] = gnesd[i];`	266	`glob_sortcmp_dat.order[orderi] = gnesd[i];`
227	`} else {`	267	`} else {`
228	`glob_sortcmp_dat.order[orderi] = gnesd[i] ^ 32;`	268	`glob_sortcmp_dat.order[orderi] = gnesd[i] ^ 32;`
229	`}`	269	`}`
230	`orderi++;`	270	`orderi++;`
231	`break;`	271	`break;`
232	`}`	272	`}`
233	`}`	273	`}`
234	`if (gnesd[i] == 0) return(-1);`	274	`if (gnesd[i] == 0) return(-1);`
235	`}`	275	`}`
236		276
237	`return(0);`	277	`return(0);`
238	`}`	278	`}`
239		279
240		280
241	`static int sortcmp(const void dtaid1, const void dtaid2) {`	281	`static int sortcmp(const void dtaid1, const void dtaid2) {`
242	`struct TINYDTA far dta1 = &(glob_sortcmp_dat.dtabuf_root[((unsigned short *)dtaid1)]);`	282	`struct TINYDTA far dta1 = &(glob_sortcmp_dat.dtabuf_root[((unsigned short *)dtaid1)]);`
243	`struct TINYDTA far dta2 = &(glob_sortcmp_dat.dtabuf_root[((unsigned short *)dtaid2)]);`	283	`struct TINYDTA far dta2 = &(glob_sortcmp_dat.dtabuf_root[((unsigned short *)dtaid2)]);`
244	`char *ordconf = glob_sortcmp_dat.order;`	284	`char *ordconf = glob_sortcmp_dat.order;`
245		285
246	`/* debug stuff`	286	`/* debug stuff`
247	`{`	287	`{`
248	`int i;`	288	`int i;`
249	`printf("%lu vs %lu \| ", dta1->size, dta2->size);`	289	`printf("%lu vs %lu \| ", dta1->size, dta2->size);`
250	`for (i = 0; dta1->fname[i] != 0; i++) printf("%c", dta1->fname[i]);`	290	`for (i = 0; dta1->fname[i] != 0; i++) printf("%c", dta1->fname[i]);`
251	`printf(" vs ");`	291	`printf(" vs ");`
252	`for (i = 0; dta2->fname[i] != 0; i++) printf("%c", dta2->fname[i]);`	292	`for (i = 0; dta2->fname[i] != 0; i++) printf("%c", dta2->fname[i]);`
253	`printf("\n");`	293	`printf("\n");`
254	`} */`	294	`} */`
255		295
256	`for (;;) {`	296	`for (;;) {`
257	`int r = -1;`	297	`int r = -1;`
258	`if (*ordconf & 32) r = 1;`	298	`if (*ordconf & 32) r = 1;`
259		299
260	`switch (*ordconf \| 32) {`	300	`switch (*ordconf \| 32) {`
261	`case 'g': /* sort by type (directories first, then files) */`	301	`case 'g': /* sort by type (directories first, then files) */`
262	`if ((dta1->time_sec2 & DOS_ATTR_DIR) > (dta2->time_sec2 & DOS_ATTR_DIR)) return(0 - r);`	302	`if ((dta1->time_sec2 & DOS_ATTR_DIR) > (dta2->time_sec2 & DOS_ATTR_DIR)) return(0 - r);`
263	`if ((dta1->time_sec2 & DOS_ATTR_DIR) < (dta2->time_sec2 & DOS_ATTR_DIR)) return(r);`	303	`if ((dta1->time_sec2 & DOS_ATTR_DIR) < (dta2->time_sec2 & DOS_ATTR_DIR)) return(r);`
264	`break;`	304	`break;`
265	`case ' ': /* default (last resort) sort: by name */`	305	`case ' ': /* default (last resort) sort: by name */`
266	`case 'e': /* sort by extension */`	306	`case 'e': /* sort by extension */`
267	`case 'n': /* sort by filename */`	307	`case 'n': /* sort by filename */`
268	`{`	308	`{`
269	`const char far *f1 = dta1->fname;`	309	`const char far *f1 = dta1->fname;`
270	`const char far *f2 = dta2->fname;`	310	`const char far *f2 = dta2->fname;`
271	`int i, limit = 12;`	311	`int i, limit = 12;`
272	`/* special handling for '.' and '..' entries */`	312	`/* special handling for '.' and '..' entries */`
273	`if ((f1[0] == '.') && (f2[0] != '.')) return(0 - r);`	313	`if ((f1[0] == '.') && (f2[0] != '.')) return(0 - r);`
274	`if ((f2[0] == '.') && (f1[0] != '.')) return(r);`	314	`if ((f2[0] == '.') && (f1[0] != '.')) return(r);`
275		315
276	`if ((*ordconf \| 32) == 'e') {`	316	`if ((*ordconf \| 32) == 'e') {`
277	`/* fast-forward to extension or end of filename */`	317	`/* fast-forward to extension or end of filename */`
278	`while ((f1 != 0) && (f1 != '.')) f1++;`	318	`while ((f1 != 0) && (f1 != '.')) f1++;`
279	`while ((f2 != 0) && (f2 != '.')) f2++;`	319	`while ((f2 != 0) && (f2 != '.')) f2++;`
280	`limit = 4; /* TINYDTA structs are not nul-terminated */`	320	`limit = 4; /* TINYDTA structs are not nul-terminated */`
281	`}`	321	`}`
282	`/* cmp */`	322	`/* cmp */`
283	`for (i = 0; i < limit; i++) {`	323	`for (i = 0; i < limit; i++) {`
284	`if ((glob_sortcmp_dat.sortownia[(unsigned char)(f1)]) < (glob_sortcmp_dat.sortownia[(unsigned char)(f2)])) return(0 - r);`	324	`if ((glob_sortcmp_dat.sortownia[(unsigned char)(f1)]) < (glob_sortcmp_dat.sortownia[(unsigned char)(f2)])) return(0 - r);`
285	`if ((glob_sortcmp_dat.sortownia[(unsigned char)(f1)]) > (glob_sortcmp_dat.sortownia[(unsigned char)(f2)])) return(r);`	325	`if ((glob_sortcmp_dat.sortownia[(unsigned char)(f1)]) > (glob_sortcmp_dat.sortownia[(unsigned char)(f2)])) return(r);`
286	`if (*f1 == 0) break;`	326	`if (*f1 == 0) break;`
287	`f1++;`	327	`f1++;`
288	`f2++;`	328	`f2++;`
289	`}`	329	`}`
290	`}`	330	`}`
291	`break;`	331	`break;`
292	`case 's': /* sort by size */`	332	`case 's': /* sort by size */`
293	`if (dta1->size > dta2->size) return(r);`	333	`if (dta1->size > dta2->size) return(r);`
294	`if (dta1->size < dta2->size) return(0 - r);`	334	`if (dta1->size < dta2->size) return(0 - r);`
295	`break;`	335	`break;`
296	`case 'd': /* sort by date */`	336	`case 'd': /* sort by date */`
297	`if (dta1->date_yr < dta2->date_yr) return(0 - r);`	337	`if (dta1->date_yr < dta2->date_yr) return(0 - r);`
298	`if (dta1->date_yr > dta2->date_yr) return(r);`	338	`if (dta1->date_yr > dta2->date_yr) return(r);`
299	`if (dta1->date_mo < dta2->date_mo) return(0 - r);`	339	`if (dta1->date_mo < dta2->date_mo) return(0 - r);`
300	`if (dta1->date_mo > dta2->date_mo) return(r);`	340	`if (dta1->date_mo > dta2->date_mo) return(r);`
301	`if (dta1->date_dy < dta2->date_dy) return(0 - r);`	341	`if (dta1->date_dy < dta2->date_dy) return(0 - r);`
302	`if (dta1->date_dy > dta2->date_dy) return(r);`	342	`if (dta1->date_dy > dta2->date_dy) return(r);`
303	`if (dta1->time_hour < dta2->time_hour) return(0 - r);`	343	`if (dta1->time_hour < dta2->time_hour) return(0 - r);`
304	`if (dta1->time_hour > dta2->time_hour) return(r);`	344	`if (dta1->time_hour > dta2->time_hour) return(r);`
305	`if (dta1->time_min < dta2->time_min) return(0 - r);`	345	`if (dta1->time_min < dta2->time_min) return(0 - r);`
306	`if (dta1->time_min > dta2->time_min) return(r);`	346	`if (dta1->time_min > dta2->time_min) return(r);`
307	`break;`	347	`break;`
308	`}`	348	`}`
309		349
310	`if (*ordconf == 0) break;`	350	`if (*ordconf == 0) break;`
311	`ordconf++;`	351	`ordconf++;`
312	`}`	352	`}`
313		353
314	`return(0);`	354	`return(0);`
315	`}`	355	`}`
316		356
317		357
318	`#define DIR_ATTR_DEFAULT (DOS_ATTR_RO \| DOS_ATTR_DIR \| DOS_ATTR_ARC)`	358	`#define DIR_ATTR_DEFAULT (DOS_ATTR_RO \| DOS_ATTR_DIR \| DOS_ATTR_ARC)`
319		359
320	`struct dirrequest {`	360	`struct dirrequest {`
321	`unsigned char attrfilter_may;`	361	`unsigned char attrfilter_may;`
322	`unsigned char attrfilter_must;`	362	`unsigned char attrfilter_must;`
323	`const char *filespecptr;`	363	`const char *filespecptr;`
324		364
325	`#define DIR_FLAG_PAUSE 1`	365	`#define DIR_FLAG_PAUSE 1`
326	`#define DIR_FLAG_RECUR 4`	366	`#define DIR_FLAG_RECUR 4`
327	`#define DIR_FLAG_LCASE 8`	367	`#define DIR_FLAG_LCASE 8`
328	`#define DIR_FLAG_SORT 16`	368	`#define DIR_FLAG_SORT 16`
329	`unsigned char flags;`	369	`unsigned char flags;`
330		370
331	`#define DIR_OUTPUT_NORM 1`	371	`#define DIR_OUTPUT_NORM 1`
332	`#define DIR_OUTPUT_WIDE 2`	372	`#define DIR_OUTPUT_WIDE 2`
333	`#define DIR_OUTPUT_BARE 3`	373	`#define DIR_OUTPUT_BARE 3`
334	`unsigned char format;`	374	`unsigned char format;`
335	`};`	375	`};`
336		376
337		377
338	`static int dir_parse_cmdline(struct dirrequest req, const char *argv) {`	378	`static int dir_parse_cmdline(struct dirrequest req, const char *argv) {`
339	`for (; *argv != NULL; argv++) {`	379	`for (; *argv != NULL; argv++) {`
340	`if (*argv[0] == '/') {`	380	`if (*argv[0] == '/') {`
341	`const char arg = argv + 1;`	381	`const char arg = argv + 1;`
342	`char neg = 0;`	382	`char neg = 0;`
343	`/* detect negations and get actual argument */`	383	`/* detect negations and get actual argument */`
344	`if (*arg == '-') {`	384	`if (*arg == '-') {`
345	`neg = 1;`	385	`neg = 1;`
346	`arg++;`	386	`arg++;`
347	`}`	387	`}`
348	`/* */`	388	`/* */`
349	`switch (*arg) {`	389	`switch (*arg) {`
350	`case 'a':`	390	`case 'a':`
351	`case 'A':`	391	`case 'A':`
352	`arg++;`	392	`arg++;`
353	`/* preset defaults */`	393	`/* preset defaults */`
354	`req->attrfilter_may = DIR_ATTR_DEFAULT;`	394	`req->attrfilter_may = DIR_ATTR_DEFAULT;`
355	`req->attrfilter_must = 0;`	395	`req->attrfilter_must = 0;`
356	`/* /-A only allowed without further parameters (used to cancel possible previous /Asmth) */`	396	`/* /-A only allowed without further parameters (used to cancel possible previous /Asmth) */`
357	`if (neg) {`	397	`if (neg) {`
358	`if (*arg != 0) {`	398	`if (*arg != 0) {`
359	`nls_outputnl_err(0, 2); /* invalid switch */`	399	`nls_outputnl_err(0, 2); /* invalid switch */`
360	`return(-1);`	400	`return(-1);`
361	`}`	401	`}`
362	`} else {`	402	`} else {`
363	`/* skip colon if present */`	403	`/* skip colon if present */`
364	`if (*arg == ':') arg++;`	404	`if (*arg == ':') arg++;`
365	`/* start with "allow everything" */`	405	`/* start with "allow everything" */`
366	`req->attrfilter_may = (DOS_ATTR_ARC \| DOS_ATTR_DIR \| DOS_ATTR_HID \| DOS_ATTR_SYS \| DOS_ATTR_RO);`	406	`req->attrfilter_may = (DOS_ATTR_ARC \| DOS_ATTR_DIR \| DOS_ATTR_HID \| DOS_ATTR_SYS \| DOS_ATTR_RO);`
367	`if (dir_parse_attr_list(arg, &(req->attrfilter_may), &(req->attrfilter_must)) != 0) {`	407	`if (dir_parse_attr_list(arg, &(req->attrfilter_may), &(req->attrfilter_must)) != 0) {`
368	`nls_outputnl_err(0, 3); /* invalid parameter format */`	408	`nls_outputnl_err(0, 3); /* invalid parameter format */`
369	`return(-1);`	409	`return(-1);`
370	`}`	410	`}`
371	`}`	411	`}`
372	`break;`	412	`break;`
373	`case 'b':`	413	`case 'b':`
374	`case 'B':`	414	`case 'B':`
375	`req->format = DIR_OUTPUT_BARE;`	415	`req->format = DIR_OUTPUT_BARE;`
376	`break;`	416	`break;`
377	`case 'l':`	417	`case 'l':`
378	`case 'L':`	418	`case 'L':`
379	`req->flags \|= DIR_FLAG_LCASE;`	419	`req->flags \|= DIR_FLAG_LCASE;`
380	`break;`	420	`break;`
381	`case 'o':`	421	`case 'o':`
382	`case 'O':`	422	`case 'O':`
383	`if (neg) {`	423	`if (neg) {`
384	`req->flags &= (0xff ^ DIR_FLAG_SORT);`	424	`req->flags &= (0xff ^ DIR_FLAG_SORT);`
385	`break;`	425	`break;`
386	`}`	426	`}`
387	`if (dir_process_order_directive(arg+1) != 0) {`	427	`if (dir_process_order_directive(arg+1) != 0) {`
388	`nls_output_err(0, 3); /* invalid parameter format */`	428	`nls_output_err(0, 3); /* invalid parameter format */`
389	`output(": ");`	429	`output(": ");`
390	`outputnl(arg);`	430	`outputnl(arg);`
391	`return(-1);`	431	`return(-1);`
392	`}`	432	`}`
393	`req->flags \|= DIR_FLAG_SORT;`	433	`req->flags \|= DIR_FLAG_SORT;`
394	`break;`	434	`break;`
395	`case 'p':`	435	`case 'p':`
396	`case 'P':`	436	`case 'P':`
397	`req->flags \|= DIR_FLAG_PAUSE;`	437	`req->flags \|= DIR_FLAG_PAUSE;`
398	`if (neg) req->flags &= (0xff ^ DIR_FLAG_PAUSE);`	438	`if (neg) req->flags &= (0xff ^ DIR_FLAG_PAUSE);`
399	`break;`	439	`break;`
400	`case 's':`	440	`case 's':`
401	`case 'S':`	441	`case 'S':`
402	`/* TODO */`	442	`/* TODO */`
403	`outputnl("/S NOT IMPLEMENTED YET");`	443	`outputnl("/S NOT IMPLEMENTED YET");`
404	`return(-1);`	444	`return(-1);`
405	`break;`	445	`break;`
406	`case 'w':`	446	`case 'w':`
407	`case 'W':`	447	`case 'W':`
408	`req->format = DIR_OUTPUT_WIDE;`	448	`req->format = DIR_OUTPUT_WIDE;`
409	`break;`	449	`break;`
410	`default:`	450	`default:`
411	`nls_outputnl_err(0, 2); /* invalid switch */`	451	`nls_outputnl_err(0, 2); /* invalid switch */`
412	`return(-1);`	452	`return(-1);`
413	`}`	453	`}`
414	`} else { /* filespec */`	454	`} else { /* filespec */`
415	`if (req->filespecptr != NULL) {`	455	`if (req->filespecptr != NULL) {`
416	`nls_outputnl_err(0, 4); /* too many parameters */`	456	`nls_outputnl_err(0, 4); /* too many parameters */`
417	`return(-1);`	457	`return(-1);`
418	`}`	458	`}`
419	`req->filespecptr = *argv;`	459	`req->filespecptr = *argv;`
420	`}`	460	`}`
421	`}`	461	`}`
422		462
423	`return(0);`	463	`return(0);`
424	`}`	464	`}`
425		465
426		466
427	`static enum cmd_result cmd_dir(struct cmd_funcparam *p) {`	467	`static enum cmd_result cmd_dir(struct cmd_funcparam *p) {`
428	`struct DTA dta = (void )0x80; /* set DTA to its default location at 80h in PSP */`	468	`struct DTA dta = (void )0x80; /* set DTA to its default location at 80h in PSP */`
429	`struct TINYDTA far dtabuf = NULL; / used to buffer results when sorting is enabled */`	469	`struct TINYDTA far dtabuf = NULL; / used to buffer results when sorting is enabled */`
430	`unsigned short dtabufcount = 0;`	470	`unsigned short dtabufcount = 0;`
431	`unsigned short i;`	471	`unsigned short i;`
432	`unsigned short availrows; /* counter of available rows on display (used for /P) */`	472	`unsigned short availrows; /* counter of available rows on display (used for /P) */`
433	`unsigned short screenw = screen_getwidth();`	473	`unsigned short screenw = screen_getwidth();`
434	`unsigned short wcols = screenw / WCOLWIDTH; /* number of columns in wide mode */`	474	`unsigned short wcols = screenw / WCOLWIDTH; /* number of columns in wide mode */`
435	`unsigned char wcolcount;`	475	`unsigned char wcolcount;`
436	`struct {`	476	`struct {`
437	`struct nls_patterns nls;`	477	`struct nls_patterns nls;`
438	`char buff64[64];`	478	`char buff64[64];`
439	`char path[128];`	479	`char path[128];`
440	`unsigned short orderidx[65535 / sizeof(struct TINYDTA)];`	480	`unsigned short orderidx[65535 / sizeof(struct TINYDTA)];`
441	`} buf = (void )(p->BUFFER);`	481	`} buf = (void )(p->BUFFER);`
442	`unsigned long summary_fcount = 0;`	482	`unsigned long summary_fcount = 0;`
443	`unsigned long summary_totsz = 0;`	483	`unsigned long summary_totsz = 0;`
444	`unsigned char drv = 0;`	484	`unsigned char drv = 0;`
445	`struct dirrequest req;`	485	`struct dirrequest req;`
446		486
447	`/* make sure there's no risk of buffer overflow */`	487	`/* make sure there's no risk of buffer overflow */`
448	`if (sizeof(buf) > p->BUFFERSZ) {`	488	`if (sizeof(buf) > p->BUFFERSZ) {`
449	`outputnl("INTERNAL MEM ERROR IN " __FILE__);`	489	`outputnl("INTERNAL MEM ERROR IN " __FILE__);`
450	`return(CMD_FAIL);`	490	`return(CMD_FAIL);`
451	`}`	491	`}`
452		492
453	`if (cmd_ishlp(p)) {`	493	`if (cmd_ishlp(p)) {`
454	`nls_outputnl(37,0); /* "Displays a list of files and subdirectories in a directory" */`	494	`nls_outputnl(37,0); /* "Displays a list of files and subdirectories in a directory" */`
455	`outputnl("");`	495	`outputnl("");`
456	`nls_outputnl(37,1); /* "DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]" */`	496	`nls_outputnl(37,1); /* "DIR [drive:][path][filename] [/P] [/W] [/A[:]attributes] [/O[[:]sortorder]] [/S] [/B] [/L]" */`
457	`outputnl("");`	497	`outputnl("");`
458	`nls_outputnl(37,2); /* "/P Pauses after each screenful of information" */`	498	`nls_outputnl(37,2); /* "/P Pauses after each screenful of information" */`
459	`nls_outputnl(37,3); /* "/W Uses wide list format" */`	499	`nls_outputnl(37,3); /* "/W Uses wide list format" */`
460	`outputnl("");`	500	`outputnl("");`

Subversion Repositories SvarDOS

(root)/svarcom/trunk/cmd/dir.c – Rev 1743 → 1744