This is pids.c in view mode; [Download] [Up]
/***********************************************************************
*
* Provide access to some UNIX system calls from Smalltalk.
* See up.st for details.
*
* $Revision: 1.1 $
* $Date: 1994/08/31 05:17:06 $
* $Author: sbb $
*
***********************************************************************/
/***********************************************************************
*
* Copyright (C) 1990, 1991, 1992, 1994 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 30 Aug 94 added header stuff.
*
*/
extern int getpid(), kill(), killpg(), getpgrp(), setpgrp(), getppid(),
nice(), fork(), vfork(), execve(), execl(), execle(), execlp(),
execvp();
definePidFuncs()
{
defineCFunc("getpid", getpid);
defineCFunc("kill", kill);
defineCFunc("killpg", killpg);
defineCFunc("getpgrp", getpgrp);
defineCFunc("setpgrp", setpgrp);
defineCFunc("getppid", getppid);
defineCFunc("nice", nice);
defineCFunc("fork", fork);
defineCFunc("vfork", vfork);
defineCFunc("execve", execve);
defineCFunc("execl", execl);
defineCFunc("execle", execle);
defineCFunc("execlp", execlp);
defineCFunc("execvp", execvp);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.