/* getmod -- pmake function to determine if a file has been modified        */
/* copyright 1984  Michael M Rubenstein                                     */

#include <stdio.h>
#include <fcb.h>
#include "pmake.h"

getmod(name)
  char                  *name;
{
  FCB                   fil;
  static int            d;
  static unsigned       user;

  extern unsigned       c_user;
  extern int            modbit;

  if (*name == '.')
    return NOTTHERE;
  setfcb(&fil, name);
  user = getusr();
  setusr(c_user);
  d = open(&fil);
  setusr(user);
  if (d == 0xff)
    return NOTTHERE;
  d = (fil.name1.fname[modbit] & 0x80) ? UNCHANGED : CHANGED;
  close(&fil);
  return d;
}