home *** CD-ROM | disk | FTP | other *** search
- head 1.2;
- access;
- symbols
- version39-41:1.1;
- locks;
- comment @ * @;
-
-
- 1.2
- date 92.08.09.20.59.35; author amiga; state Exp;
- branches;
- next 1.1;
-
- 1.1
- date 92.05.14.19.55.40; author mwild; state Exp;
- branches;
- next ;
-
-
- desc
- @open directory file
- @
-
-
- 1.2
- log
- @add cast
- @
- text
- @/*
- * This file is part of ixemul.library for the Amiga.
- * Copyright (C) 1991, 1992 Markus M. Wild
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the Free
- * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- * $Id: opendir.c,v 1.1 1992/05/14 19:55:40 mwild Exp $
- *
- * $Log: opendir.c,v $
- * Revision 1.1 1992/05/14 19:55:40 mwild
- * Initial revision
- *
- */
-
- #define KERNEL
- #include "ixemul.h"
- #include <sys/stat.h>
- #include <dirent.h>
-
- extern void *kmalloc ();
-
- DIR *
- opendir (const char *name)
- {
- DIR *d;
- int err;
- struct stat stb;
-
- if (!(d = (DIR *) syscall (SYS_malloc, sizeof (*d)))) return 0;
-
- if ((d->dd_fd = syscall (SYS_open, name, 0)) >= 0)
- {
- if (syscall (SYS_fstat, d->dd_fd, &stb) == 0)
- {
- if (! S_ISDIR (stb.st_mode))
- {
- syscall (SYS_free, d);
- errno = ENOTDIR;
- return 0;
- }
-
- return d;
- }
-
- err = errno;
-
- syscall (SYS_close, d->dd_fd);
- }
- else
- err = errno;
-
- syscall (SYS_free, d);
- errno = err;
- return 0;
- }
- @
-
-
- 1.1
- log
- @Initial revision
- @
- text
- @d19 1
- a19 1
- * $Id$
- d21 4
- a24 1
- * $Log$
- d41 1
- a41 1
- if (!(d = syscall (SYS_malloc, sizeof (*d)))) return 0;
- @
-