On Tue, 29 Jun 2010 16:36:46 -0400
Matthew Mondor <mm_li...@pulsar-zone.net> wrote:
> Perhaps that the attached diff could help (untested however, I have to
> leave in a few minutes and can only test it tomorrow).
I could finally test the diff, it turned out that the changes were
indeed incomplete.
Here is attached the revised diff.
Thanks,
--
Matt
Index: contrib/asdf/asdf.lisp
===================================================================
RCS file: /cvsroot/ecls/ecl/contrib/asdf/asdf.lisp,v
retrieving revision 1.24
diff -u -r1.24 asdf.lisp
--- contrib/asdf/asdf.lisp 9 Jun 2010 21:05:50 -0000 1.24
+++ contrib/asdf/asdf.lisp 30 Jun 2010 06:03:08 -0000
@@ -717,7 +717,7 @@
#+clisp (defun get-uid () (posix:uid))
#+sbcl (defun get-uid () (sb-unix:unix-getuid))
#+cmu (defun get-uid () (unix:unix-getuid))
-#+ecl (defun get-uid () (ffi:c-inline () () :int "getuid()" :one-liner t))
+#+ecl (defun get-uid () (si:getuid))
#+allegro (defun get-uid () (excl.osi:getuid))
#-(or cmu sbcl clisp allegro ecl)
(defun get-uid ()
Index: src/c/symbols_list.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/symbols_list.h,v
retrieving revision 1.275
diff -u -r1.275 symbols_list.h
--- src/c/symbols_list.h 28 Jun 2010 19:41:11 -0000 1.275
+++ src/c/symbols_list.h 30 Jun 2010 06:03:13 -0000
@@ -1120,6 +1120,7 @@
{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},
Index: src/c/symbols_list2.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/symbols_list2.h,v
retrieving revision 1.153
diff -u -r1.153 symbols_list2.h
--- src/c/symbols_list2.h 28 Jun 2010 19:41:11 -0000 1.153
+++ src/c/symbols_list2.h 30 Jun 2010 06:03:14 -0000
@@ -1120,6 +1120,7 @@
{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"},
Index: src/c/unixsys.d
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/unixsys.d,v
retrieving revision 1.61
diff -u -r1.61 unixsys.d
--- src/c/unixsys.d 5 Apr 2010 20:34:03 -0000 1.61
+++ src/c/unixsys.d 30 Jun 2010 06:03:14 -0000
@@ -55,6 +55,12 @@
}
cl_object
+si_getuid(void)
+{
+ @(return ecl_make_integer(getuid()));
+}
+
+cl_object
si_make_pipe()
{
cl_object output;
Index: src/h/external.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/h/external.h,v
retrieving revision 1.395
diff -u -r1.395 external.h
--- src/h/external.h 19 Jun 2010 22:31:14 -0000 1.395
+++ src/h/external.h 30 Jun 2010 06:03:18 -0000
@@ -1735,6 +1735,7 @@
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, ...));
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
