From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <cgen-return-1928-listarch-cgen=sources.redhat.com@sourceware.org>
Received: (qmail 2728 invoked by alias); 9 May 2006 22:01:07 -0000
Received: (qmail 2719 invoked by uid 22791); 9 May 2006 22:01:06 -0000
X-Spam-Check-By: sourceware.org
Received: from mail.agora-net.com (HELO mail.agora-net.com) (67.59.132.6)     by sourceware.org (qpsmtpd/0.31) with ESMTP; Tue, 09 May 2006 22:01:05 +0000
Received: from ttn by mail.agora-net.com with local (Exim 4.50) 	id 1FdaGN-0002TX-CS; Tue, 09 May 2006 18:01:03 -0400
From: Thien-Thi Nguyen <ttn@glug.org>
To: brolley@redhat.com
CC: cgen@sources.redhat.com
In-reply-to: <4460DDCA.7080001@redhat.com> (message from Dave Brolley on Tue, 	09 May 2006 14:22:02 -0400)
Subject: Re: [patch][commit] Location of (include file)
Reply-to: ttn@glug.org
References: <4460C206.9080103@redhat.com> <4460DDCA.7080001@redhat.com>
Message-Id: <E1FdaGN-0002TX-CS@mail.agora-net.com>
Date: Tue, 09 May 2006 22:01:00 -0000
X-IsSubscribed: yes
Mailing-List: contact cgen-help@sourceware.org; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:cgen-subscribe@sourceware.org>
List-Archive: <http://sourceware.org/ml/cgen/>
List-Post: <mailto:cgen@sourceware.org>
List-Help: <mailto:cgen-help@sourceware.org>, <http://sourceware.org/lists.html#faqs>
Sender: cgen-owner@sourceware.org
X-SW-Source: 2006-q2/txt/msg00023.txt.bz2

   From: Dave Brolley <brolley@redhat.com>
   Date: Tue, 09 May 2006 14:22:02 -0400

   + ; Return the directory name of the given file name
   + 
   + (define (dirname s)
   +   (let loop ((i (string-length s)))
   +     (cond ((= i 0) "")
   + 	  ((char=? #\/ (string-ref s (- i 1))) (substring s 0 i))
   + 	  (else (loop (- i 1)))))
   + )
   + 

guile> (version)
"1.4.1.107"
guile> (dirname "/etc/hosts")
"/etc"
guile> dirname
#<primitive-procedure dirname>

thi