mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 09:20:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

Implemented GETPID (M. Goffioul)

Browse source
This commit is contained in:
jjgarcia 2005-05-03 14:43:53 +00:00
parent dc98e4b79d
commit d664bee374
3 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/symbols_list.h
View file

@ -1113,6 +1113,7 @@ cl_symbols[] = {
{SYS_ "GET-STRING-INPUT-STREAM-INDEX", SI_ORDINARY, si_get_string_input_stream_index, 1, OBJNULL},
{SYS_ "GETENV", SI_ORDINARY, si_getenv, 1, OBJNULL},
{SYS_ "GETCWD", SI_ORDINARY, si_getcwd, 0, OBJNULL},
{SYS_ "GETPID", SI_ORDINARY, si_getpid, 0, OBJNULL},
{SYS_ "HASH-SET", SI_ORDINARY, si_hash_set, 3, OBJNULL},
{SYS_ "HASH-TABLE-ITERATOR", SI_ORDINARY, si_hash_table_iterator, 1, OBJNULL},
{SYS_ "IHS-ENV", SI_ORDINARY, si_ihs_env, 1, OBJNULL},

6
src/c/unixsys.d
View file

@ -43,6 +43,12 @@ si_system(cl_object cmd)
@(return MAKE_FIXNUM(code >> 8))
}
cl_object
si_getpid(void)
{
@(return MAKE_FIXNUM(getpid()))
}
cl_object
si_open_pipe(cl_object cmd)
{

1
src/h/external.h
View file

@ -1448,6 +1448,7 @@ extern cl_object cl_file_write_date(cl_object file);
extern cl_object cl_file_author(cl_object file);
extern cl_object si_file_kind(cl_object pathname, cl_object follow_links);
extern cl_object si_getcwd(void);
extern cl_object si_getpid(void);
extern cl_object si_chdir _ARGS((cl_narg narg, cl_object directory, ...));
extern cl_object si_mkdir(cl_object directory, cl_object mode);
extern cl_object cl_directory _ARGS((cl_narg narg, cl_object directory, ...));