home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / JAZLIB.ARC / JZGETATR.C < prev    next >
Encoding:
Text File  |  1986-04-06  |  853 b   |  27 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │jzgetatr.c                                                                  │
  4. │Return a files directory attribute. (hidden, system etc)                    │
  5. │Usage: attribute = jzgetatr("cl.exe");                                      │
  6. │                                                                            │
  7. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950                      │
  8. └────────────────────────────────────────────────────────────────────────────┘
  9. */
  10.  
  11. jzgetatr(fstr)
  12. char *fstr;
  13. {
  14.   union REGS sreg,dreg;
  15.   struct SREGS seg;
  16.  
  17.   segread(&seg);
  18.  
  19.   sreg.x.ax = 0x4300;        /* get file attribute */
  20.   sreg.x.dx = (int) fstr;
  21.  
  22.   intdosx(&sreg,&dreg,&seg);
  23.  
  24.   if (dreg.x.cflag & 1 == 1) return(-1);
  25.   else return(dreg.x.cx);
  26. }
  27.