home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / oslib / Examples / p2-042 < prev    next >
Encoding:
Text File  |  1994-03-24  |  387 b   |  21 lines
  1. #include "os.h"
  2. #include "osfile.h"
  3.  
  4. os_error *ex (char *file_name)
  5.  
  6. {  int obj_type;
  7.    os_error *error = NULL;
  8.  
  9.    if ((error = xosfile_read_stamped (file_name, &obj_type, NULL,
  10.          NULL, NULL, NULL, NULL)) != NULL)
  11.       goto finish;;
  12.  
  13.    if (obj_type != osfile_IS_FILE)
  14.    {  error = xosfile_make_error (file_name, obj_type);
  15.       goto finish;
  16.    }
  17.  
  18. finish:
  19.    return error;
  20. }
  21.