Export POSIX function getuid()

parent 9b548005
......@@ -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},
......
......@@ -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"},
......
......@@ -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()
{
......
......@@ -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, ...));
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment