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

Export POSIX function getuid()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-06-30 21:31:31 +02:00
parent 9b548005fb
commit 117eae2810
4 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/symbols_list.h
View file

@ -1120,6 +1120,7 @@ cl_symbols[] = {
{EXT_ "GETENV", SI_ORDINARY, si_getenv, 1, OBJNULL},
{EXT_ "GETCWD", SI_ORDINARY, si_getcwd, -1, OBJNULL},
{SYS_ "GETPID", SI_ORDINARY, si_getpid, 0, OBJNULL},
{SYS_ "GETUID", SI_ORDINARY, si_getuid, 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-BDS", SI_ORDINARY, si_ihs_bds, 1, OBJNULL},

1
src/c/symbols_list2.h
View file

@ -1120,6 +1120,7 @@ cl_symbols[] = {
{EXT_ "GETENV","si_getenv"},
{EXT_ "GETCWD","si_getcwd"},
{SYS_ "GETPID","si_getpid"},
{SYS_ "GETUID","si_getuid"},
{SYS_ "HASH-SET","si_hash_set"},
{SYS_ "HASH-TABLE-ITERATOR","si_hash_table_iterator"},
{SYS_ "IHS-BDS","si_ihs_bds"},

6
src/c/unixsys.d
View file

@ -54,6 +54,12 @@ si_getpid(void)
@(return MAKE_FIXNUM(getpid()))
}
cl_object
si_getuid(void)
{
@(return ecl_make_integer(getuid()));
}
cl_object
si_make_pipe()
{

1
src/h/external.h
View file

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