/[gcl]/gcl/o/unixsys.c
ViewVC logotype

Diff of /gcl/o/unixsys.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:14 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:56 2002 UTC
# Line 19  Foundation, 675 Mass Ave, Cambridge, MA Line 19  Foundation, 675 Mass Ave, Cambridge, MA
19    
20  */  */
21    
22    #include <stdlib.h>
23  #include "include.h"  #include "include.h"
24    
25  #ifdef ATT3B2  #ifdef ATT3B2
# Line 55  char *command; Line 56  char *command;
56  }  }
57  #endif  #endif
58    
59  Lsystem()  void
60    Lsystem(void)
61  {  {
62          char command[1024];          char command[1024];
63          int i;          int i;
# Line 78  Lsystem() Line 80  Lsystem()
80         }         }
81  }  }
82    
83  DEFUN("GETPID",int,fSgetpid,SI,0,0,NONE,IO,OO,OO,OO,  DEFUN("GETPID",object,fSgetpid,SI,0,0,NONE,OO,OO,OO,OO,
84        "getpid  returns  the  process  ID  of the current process")()        "getpid  returns  the  process  ID  of the current process")()
85  { return getpid();  { return make_fixnum(getpid());
86  }  }
87    
88  init_unixsys()  void
89    init_unixsys(void)
90  {  {
91          make_function("SYSTEM", Lsystem);          make_function("SYSTEM", Lsystem);
92  }  }

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26