Parent Directory | Revision Log | 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 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |