many fixes
This commit is contained in:
eknauel
parent
d3f72d1cc2
commit
7089a25b08
156
README
156
README
|
|
@ -1,13 +1,13 @@
|
||||||
-*- outline -*-
|
-*- outline -*-
|
||||||
|
|
||||||
scsh-yp 0.1
|
scsh-yp 0.1
|
||||||
|
|
||||||
* Introduction
|
* Introduction
|
||||||
|
|
||||||
Scsh-yp is a package for scsh, the Scheme shell[1] that provides
|
Scsh-yp is a package for scsh, the Scheme shell[1] that provides
|
||||||
bindings to the YP/NIS functions. This enables the scsh user to
|
bindings to the YP/NIS functions. This enables the scsh user to
|
||||||
lookup data in a NIS or YP database without calling the apropriate
|
lookup data in a NIS or YP database without calling the
|
||||||
external program (i. e. ypbind, ypmatch etc).
|
corresponding external program (i. e. ypbind, ypmatch etc).
|
||||||
|
|
||||||
** How to install
|
** How to install
|
||||||
|
|
||||||
|
|
@ -22,7 +22,7 @@
|
||||||
directory of your system. Once the configure script found out how
|
directory of your system. Once the configure script found out how
|
||||||
to build shared objects for your system you can run 'make' to build
|
to build shared objects for your system you can run 'make' to build
|
||||||
scsh-yp and 'make install' to copy the files to the installation
|
scsh-yp and 'make install' to copy the files to the installation
|
||||||
directory.
|
directory of your scsh library path.
|
||||||
|
|
||||||
** Running scsh-yp
|
** Running scsh-yp
|
||||||
|
|
||||||
|
|
@ -30,37 +30,55 @@
|
||||||
shared object and loads the scheme package and interface
|
shared object and loads the scheme package and interface
|
||||||
definitions for scsh-yp.
|
definitions for scsh-yp.
|
||||||
|
|
||||||
If the installation directory in scsh's libary path scsh-yp load
|
If the installation directory of scsh-yp is in scsh's library path
|
||||||
scsh-yp at start-up by saying
|
scsh-yp load scsh-yp at start-up by
|
||||||
|
|
||||||
scsh -lel scsh-yp-0.1/scheme/load-yp.scm
|
scsh -lel scsh-yp-0.1/scheme/load-yp.scm
|
||||||
|
|
||||||
The scsh user manual explains how to set the library path. Now
|
The scsh user manual explains how to set the library path. Now
|
||||||
everything is set up to open the package "yp":
|
everything is set up to open the package "yp":
|
||||||
|
|
||||||
,open yp
|
,open yp
|
||||||
|
|
||||||
|
You can also load scsh-yp interactively using the command
|
||||||
|
|
||||||
|
,exec ,load <path>/scheme/load-yp.scm
|
||||||
|
|
||||||
|
where <path> is the argument of the --prefix option of configure.
|
||||||
|
|
||||||
* Using scsh-yp
|
* Using scsh-yp
|
||||||
|
|
||||||
** conditions and errors
|
** yp-error condition hierarchy
|
||||||
|
|
||||||
yp-error?
|
Scsh-yp uses scsh's condition system to signal exceptions. In this
|
||||||
yp-communication-error?
|
system conditions are organized hierarchially. Use one of the
|
||||||
yp-unknown-resource-error?
|
following predicates to check what kind of error occurred:
|
||||||
yp-internal-error?
|
|
||||||
|
|
||||||
yp-bad-arguments?
|
yp-error?
|
||||||
yp-bad-database?
|
|
|
||||||
yp-binding-error?
|
+-- yp-communication-error?
|
||||||
yp-unknown-key?
|
| |
|
||||||
yp-unknown-map?
|
| +-- yp-bad-domain?
|
||||||
yp-no-domain?
|
| +-- yp-no-domain?
|
||||||
yp-portmap-failure?
|
| +-- yp-portmap-failure?
|
||||||
yp-allocation-failure?
|
| +-- yp-rpc-failure?
|
||||||
yp-rpc-failure?
|
| +-- yp-bind-failure?
|
||||||
yp-bind-failure?
|
| +-- yp-binding-error?
|
||||||
yp-server-error?
|
| +-- yp-server-error?
|
||||||
|
|
|
||||||
|
+-- yp-bad-arguments?
|
||||||
|
|
|
||||||
|
+-- yp-bad-database?
|
||||||
|
|
|
||||||
|
+-- yp-unknown-resource-error?
|
||||||
|
| |
|
||||||
|
| +-- yp-unknown-key?
|
||||||
|
| +-- yp-unknown-map?
|
||||||
|
|
|
||||||
|
+-- yp-internal-error?
|
||||||
|
|
||||||
|
These errors correspond to the return codes of C yp_*() function
|
||||||
|
calls. The yp_* man pages explain the error codes in detail.
|
||||||
|
|
||||||
** function reference
|
** function reference
|
||||||
|
|
||||||
|
|
@ -77,38 +95,100 @@
|
||||||
Returns the default YP/NIS domain.
|
Returns the default YP/NIS domain.
|
||||||
|
|
||||||
(yp-bind [domain]) -> #t
|
(yp-bind [domain]) -> #t
|
||||||
Connect and use to the YP/NIS domain domain. Returns #t on success
|
Connect and use to the YP/NIS domain DOMAIN. Returns #t on success
|
||||||
or raises a yp-error condition.
|
or raises a yp-error condition.
|
||||||
|
|
||||||
(yp-unbind [domain]) -> #t
|
(yp-unbind [domain]) -> #t
|
||||||
Unbind from the domain domain. Returns #t on success or raises a
|
Unbind from the domain DOMAIN. Returns #t on success or raises a
|
||||||
yp-error condition.
|
yp-error condition.
|
||||||
|
|
||||||
(yp-match map key [domain]) -> list-of-strings
|
(yp-match map key [domain]) -> list-of-strings
|
||||||
Returns the entries in map (string) that match key (string). Make
|
Returns the entries in map (a string) that match key (a string).
|
||||||
sure to use a full NIS/YP map name, e.g. "passwd.byname" instead
|
Make sure to use a full NIS/YP map name, e.g. "passwd.byname"
|
||||||
"passwd". May raise an yp-error condition.
|
instead "passwd". May raise an yp-error condition.
|
||||||
|
|
||||||
(yp-order map [domain]) -> integer
|
(yp-order map [domain]) -> integer
|
||||||
Returns the order number of a map (string). May raise an yp-error.
|
Returns the order number of a MAP (a string). May raise an yp-error.
|
||||||
|
|
||||||
(yp-master map [domain]) -> string
|
(yp-master map [domain]) -> string
|
||||||
Returns the master server that serves map (string). May raise an
|
Returns the master server that serves MAP (a string). May raise an
|
||||||
yp-error.
|
yp-error.
|
||||||
|
|
||||||
(yp-first map [domain]) -> {string string}
|
(yp-first map [domain]) -> {string string}
|
||||||
(yp-next map key [domain]) -> {string-or-bool string-or-bool}
|
(yp-next map key [domain]) -> {string-or-bool string-or-bool}
|
||||||
Use YP-FIRST and YP-NEXT to step through all entries of map
|
Use YP-FIRST and YP-NEXT to step through all entries of MAP (a
|
||||||
(string). YP-FIRST returns two strings: The key and the complete
|
string). YP-FIRST returns two strings: The key and the complete
|
||||||
map entry for that key. To obtain the next value(s) in the map
|
map entry for that key. To obtain the next value(s) in the map
|
||||||
call YP-NEXT with the key. If YP-NEXT hits the end of the map it
|
call YP-NEXT with the key. If YP-NEXT hits the end of the map it
|
||||||
returns {#f #f}. See `Examples' section for an example. Both
|
returns {#f #f}. Both functions may raise an yp-error.
|
||||||
functions may raise an yp-error.
|
|
||||||
|
|
||||||
(yp-map->list map [domain]) -> list-of-pairs
|
(yp-map->list map [domain]) -> list-of-pairs
|
||||||
Reads all entries from a YP/NIS map (string) and return them as a
|
Reads all entries from a YP/NIS MAP (a string) and return them as a
|
||||||
list of pairs. The CAR of each pair is the key of the entry, the
|
list of pairs. The CAR of each pair is the key of the entry, the
|
||||||
CDR the complete entry. May raise an yp-error.
|
CDR contains the complete entry. May raise an yp-error.
|
||||||
|
|
||||||
|
** Examples
|
||||||
|
|
||||||
|
Using yp-first and yp-next to obtain a list of all keys in the map
|
||||||
|
passwd.byname (uses RECEIVE from SRFI 8):
|
||||||
|
|
||||||
|
,----
|
||||||
|
| define (yp-all-keys map domain)
|
||||||
|
| (receive (key val) (yp-first map domain)
|
||||||
|
| (let loop ((key key) (res (cons key '())))
|
||||||
|
| (receive (key val)
|
||||||
|
| (yp-next map key domain)
|
||||||
|
| (if val
|
||||||
|
| (loop key (cons key res))
|
||||||
|
| res)))))
|
||||||
|
|
|
||||||
|
| > (yp-all-keys "passwd.byname" "wsi")
|
||||||
|
| (... very long list ...)
|
||||||
|
`----
|
||||||
|
|
||||||
|
Searching for an entry in passwd.byname an parsing the result:
|
||||||
|
|
||||||
|
,----
|
||||||
|
| (define (yp-account-data user)
|
||||||
|
| (let ((splitter (infix-splitter (rx ":"))))
|
||||||
|
| (cond ((yp-match "passwd.byname" user)
|
||||||
|
| => splitter)
|
||||||
|
| (else #f))))
|
||||||
|
|
|
||||||
|
| > (yp-account-data "knauel")
|
||||||
|
| '("knauel" "geheim" "5324" "3010" "Eric Knauel"
|
||||||
|
| "/afs/informatik.uni-tuebingen.de/home/knauel" "/bin/tcsh")
|
||||||
|
| > (yp-account-data "klabautermann")
|
||||||
|
|
|
||||||
|
| Error: yp-unknown-key
|
||||||
|
| 5
|
||||||
|
| (yp-match map "passwd.byname" key "knauel3" domain ---)
|
||||||
|
| 1>
|
||||||
|
`----
|
||||||
|
|
||||||
|
* Caveats
|
||||||
|
|
||||||
|
There is only a synchronous high-level interface to YP/NIS, so,
|
||||||
|
call a yp_*() function causes to whole scsh and all scsh threads to
|
||||||
|
block. I hope to solve that problem in a future version of
|
||||||
|
scsh-yp.
|
||||||
|
|
||||||
|
* Bug reporting
|
||||||
|
|
||||||
|
Please report bugs to <scsh-bugs@zurich.ai.mit.edu>.
|
||||||
|
|
||||||
|
* Version history
|
||||||
|
|
||||||
|
Dec 2003: released 0.1
|
||||||
|
|
||||||
|
* Acknowlegdements
|
||||||
|
|
||||||
|
I would like to thank Martin Gasbichler who was fearless enough to
|
||||||
|
engage in a battle with automake and wrote the automake build
|
||||||
|
files.
|
||||||
|
|
||||||
|
Eric Knauel
|
||||||
|
Tübingen, December 2003
|
||||||
|
|
||||||
Footnotes:
|
Footnotes:
|
||||||
[1] <http://www.scsh.net/>
|
[1] <http://www.scsh.net/>
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue