From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "Eli Zaretskii" <eliz@elta.co.il>
Newsgroups: gmane.emacs.help
Subject: Re: UUIDGEN in lisp
Date: Mon, 16 Feb 2004 12:04:54 +0200
Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <6654-Mon16Feb2004120454+0200-eliz@elta.co.il>
References: <mailman.2374.1076727586.928.help-gnu-emacs@gnu.org>	<m3n07m4879.fsf@defun.localdomain>	<mailman.2398.1076783242.928.help-gnu-emacs@gnu.org>	<m3smhdmbkc.fsf@defun.localdomain>	<mailman.2412.1076818749.928.help-gnu-emacs@gnu.org>
	<m3u11sdq8f.fsf@defun.localdomain>
Reply-To: Eli Zaretskii <eliz@elta.co.il>
NNTP-Posting-Host: deer.gmane.org
X-Trace: sea.gmane.org 1076925984 6134 80.91.224.253 (16 Feb 2004 10:06:24 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Mon, 16 Feb 2004 10:06:24 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Feb 16 11:06:18 2004
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1Asfdl-0004M6-00
	for <geh-help-gnu-emacs@m.gmane.org>; Mon, 16 Feb 2004 11:06:18 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.24)
	id 1AsfdD-0003jR-Ei
	for geh-help-gnu-emacs@m.gmane.org; Mon, 16 Feb 2004 05:05:39 -0500
Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24)
	id 1Asfch-0003im-4Q
	for help-gnu-emacs@gnu.org; Mon, 16 Feb 2004 05:05:07 -0500
Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24)
	id 1AsfcA-0003Pt-0S
	for help-gnu-emacs@gnu.org; Mon, 16 Feb 2004 05:05:05 -0500
Original-Received: from [192.114.186.22] (helo=gollum.inter.net.il)
	by monty-python.gnu.org with esmtp (Exim 4.24) id 1Asfc9-0003P1-Lx
	for help-gnu-emacs@gnu.org; Mon, 16 Feb 2004 05:04:33 -0500
Original-Received: from zaretski (pns03-205-225.inter.net.il [80.230.205.225])
	by gollum.inter.net.il (MOS 3.4.4-GR) with ESMTP id CLL52311;
	Mon, 16 Feb 2004 12:04:30 +0200 (IST)
Original-To: help-gnu-emacs@gnu.org
X-Mailer: emacs 21.3.50 (via feedmail 8 I) and Blat ver 1.8.9
In-reply-to: <m3u11sdq8f.fsf@defun.localdomain> (message from Jesper Harder on
	Sun, 15 Feb 2004 21:47:44 +0100)
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.2
Precedence: list
List-Id: Users list for the GNU Emacs text editor  <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:16893
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:16893

> Newsgroups: gnu.emacs.help
> From: Jesper Harder <harder@myrealbox.com>
> Date: Sun, 15 Feb 2004 21:47:44 +0100
> 
> (defun uuid-random ()
>   "Return a list of 16 random bytes."
>   (if (file-readable-p "/dev/urandom")
>       (let ((coding-system-for-read 'binary))
> 	(mapcar 'identity
> 		(substring
> 		 (string-as-unibyte
> 		  (shell-command-to-string
> 		   "dd count=16 bs=1 < /dev/urandom"))
> 		 0 16)))
>     (mapcar 'random (make-list 16 255))))

Jesper, can you explain why did you need all these monstrocities with
coding-system-for-read and string-as-unibyte?  Is there some real
problem behind this, or simply a bit of paranoia (no offense)?  What
am I missing?