/[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.4 by camm, Tue Sep 10 03:35:15 2002 UTC revision 1.5 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 57  char *command; Line 57  char *command;
57  }  }
58  #endif  #endif
59    
60  void  static void
61  Lsystem(void)  Lsystem(void)
62  {  {
63          char command[32768];          char command[32768];
# Line 81  Lsystem(void) Line 81  Lsystem(void)
81         }         }
82  }  }
83    
84  DEFUN("GETPID",object,fSgetpid,SI,0,0,NONE,OO,OO,OO,OO,  DEFUN_NEW("GETPID",object,fSgetpid,SI,0,0,NONE,OO,OO,OO,OO,(void),
85        "getpid  returns  the  process  ID  of the current process")()        "getpid  returns  the  process  ID  of the current process")
86  { return make_fixnum(getpid());  { return make_fixnum(getpid());
87  }  }
88    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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