Subversion Repositories SvarDOS

/* retrieve attributes (ReadOnly/System/...) about file or directory

 * returns (DWORD)-1 on error

 */

static DWORD GetFileAttributes(const char *pathname) {

  union REGS r;

  struct SREGS s;

  char buffer[260];

  int slen;

  /* 1st try LFN - Extended get/set attributes (in case LFN used) */

  if (LFN_Enable_Flag)

  {

    r.x.ax = 0x7143;                  /* LFN API, Extended Get/Set Attributes */

    r.x.bx = 0x00;                    /* BL=0, get file attributes            */

    r.x.dx = FP_OFF(pathname);        /* DS:DX points to ASCIIZ filename      */

    segread(&s);                      /* load with current segment values     */

    s.ds = FP_SEG(pathname);          /* get Segment of our filename pointer  */

    r.x.cflag = 1;                    /* should be set when unsupported ***   */

    asm stc;                          /* but clib usually ignores on entry    */

    /* Actually perform the call, carry should be set on error or unuspported */

    intdosx(&r, &r, &s);         /* Clib function to invoke DOS int21h call   */

    if (!r.x.cflag)              /* if carry not set then cx has desired info */

      return (DWORD)r.x.cx;

    /* else error other than unsupported LFN api or invalid function [FreeDOS]*/

    else if ((r.x.ax != 0x7100) || (r.x.ax != 0x01))

      return (DWORD)-1;

    /* else fall through to standard get/set file attribute call */

  }

  /* we must remove any slashes from end */

  slen = strlen(pathname) - 1;  /* Warning, assuming pathname is not ""   */

  strcpy(buffer, pathname);

  if ((buffer[slen] == '\\') || (buffer[slen] == '/')) /* ends in a slash */

  {

    /* don't remove from root directory (slen == 0),

     * ignore UNC paths as SFN doesn't handle them anyway

     * if slen == 2, then check if drive given (e.g. C:\)

     */

    if (slen && !(slen == 2 &&  buffer[1] == ':'))

      buffer[slen] = '\0';

  }

  /* return standard attributes */

  r.x.ax = 0x4300;                  /* standard Get/Set File Attributes */

  r.x.dx = FP_OFF(buffer);          /* DS:DX points to ASCIIZ filename      */

  segread(&s);                      /* load with current segment values     */

  s.ds = FP_SEG(buffer);            /* get Segment of our filename pointer  */

  intdosx(&r, &r, &s);              /* invoke the DOS int21h call           */

  //if (r.x.cflag) printf("ERROR getting std attributes of %s, DOS err %i\n", buffer, r.x.ax);

  if (r.x.cflag) return (DWORD)-1;  /* error obtaining attributes           */

  return (DWORD)(0x3F & r.x.cx); /* mask off any DRDOS bits     */

}