/* -*-comment-start: "//";comment-end:""-*- * GNU Mes --- Maxwell Equations of Software * Copyright (C) 1991, 1993, 1995, 1996, 1998 Free Software Foundation, Inc. * Copyright © 2018 Jan (janneke) Nieuwenhuizen * * This file is part of GNU Mes. * * GNU Mes is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or (at * your option) any later version. * * GNU Mes 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 General Public License for more details. * * You should have received a copy of the GNU General Public License * along with GNU Mes. If not, see . */ // Taken from GNU C Library 2.2.5 #include #include #include #include #include #include #include #include #include #include #include /* Close the directory stream DIRP. Return 0 if successful, -1 if not. */ int closedir (DIR * dirp) { int filedes; if (dirp == NULL) { errno = EINVAL; return -1; } filedes = dirp->fd; free (dirp); return close (filedes); }