ftp.nice.ch/pub/next/developer/languages/smalltalk/smalltalk.1.2.alpha5.s.tar.gz#/smalltalk-1.2.alpha5/cxtnsn/dirent.c

This is dirent.c in view mode; [Download] [Up]

/***********************************************************************
 *
 *	Directory interface definitions for GNU Smalltalk 
 *
 *	$Revision: 1.1 $
 *	$Date: 1995/06/05 17:00:08 $
 *	$Author: sbb $
 *
 ***********************************************************************/

/***********************************************************************
 *
 * Copyright (C) 1994, 1995 Free Software Foundation, Inc.
 * Written by Steve Byrne.
 *
 * This file is part of GNU Smalltalk.
 *
 * GNU Smalltalk 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 1, or (at your option) any later 
 * version.
 * 
 * GNU Smalltalk 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 Smalltalk; see the file COPYING.  If not, write to the Free Software
 * Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
 *
 ***********************************************************************/

/*
 *    Change Log
 * ============================================================================
 * Author      Date       Change 
 * sbb	     16 Sep 95	  created change log.
 *
 */



#include "gstpub.h"
#include <dirent.h>
#include <sys/stat.h>

void
initDirent()
{
  defineCFunc("opendir", opendir);
  defineCFunc("closedir", closedir);
  defineCFunc("readdir", readdir);
  defineCFunc("rewinddir", rewinddir);
  defineCFunc("telldir", telldir);
  defineCFunc("seekdir", seekdir);

  defineCFunc("stat", stat);

/* this should probably be conditional */
  defineCFunc("lstat", lstat);
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.