Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding get-host-name.

Browse source
This commit is contained in:
Alex Shinn 2014-09-23 09:37:01 +09:00
parent a05a97fc1d
commit 85ab5ba803
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/system.sld
View file

@ -1,6 +1,7 @@
(define-library (chibi system)
(export user-information user? user-name user-password
(export get-host-name
user-information user? user-name user-password
user-id user-group-id user-gecos user-home user-shell
group-information group-name group-password group-id
current-user-id current-group-id

5
lib/chibi/system.stub
View file

@ -4,6 +4,11 @@
(c-system-include "grp.h")
(c-system-include "sys/types.h")
;;> Returns the standard hostname of the current processor.
(define-c errno (get-host-name "gethostname")
((result (array char (auto-expand arg1))) (value 256 int)))
;;> \section{\scheme{(user-information name-or-id)}}
;;> Returns the password entry for the given user. \var{name-or-id}