From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 5980 invoked by alias); 9 May 2006 18:22:07 -0000 Received: (qmail 5971 invoked by uid 22791); 9 May 2006 18:22:06 -0000 X-Spam-Check-By: sourceware.org Received: from mx1.redhat.com (HELO mx1.redhat.com) (66.187.233.31) by sourceware.org (qpsmtpd/0.31) with ESMTP; Tue, 09 May 2006 18:22:05 +0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.12.11.20060308/8.12.11) with ESMTP id k49IM3jq012735 for ; Tue, 9 May 2006 14:22:03 -0400 Received: from pobox.toronto.redhat.com (pobox.toronto.redhat.com [172.16.14.4]) by int-mx1.corp.redhat.com (8.12.11.20060308/8.12.11) with ESMTP id k49IM3Kb010774 for ; Tue, 9 May 2006 14:22:03 -0400 Received: from [172.16.14.227] (IDENT:Vh0MX3ZToU6Lt0kpc+JhMyldLHjJf2vO@topaz.toronto.redhat.com [172.16.14.227]) by pobox.toronto.redhat.com (8.12.8/8.12.8) with ESMTP id k49IM2Ac013602 for ; Tue, 9 May 2006 14:22:02 -0400 Message-ID: <4460DDCA.7080001@redhat.com> Date: Tue, 09 May 2006 18:22:00 -0000 From: Dave Brolley User-Agent: Mozilla Thunderbird 1.0.2 (X11/20050317) MIME-Version: 1.0 To: cgen@sources.redhat.com Subject: Re: [patch][commit] Location of (include file) References: <4460C206.9080103@redhat.com> In-Reply-To: <4460C206.9080103@redhat.com> Content-Type: multipart/mixed; boundary="------------060508010506080800060201" X-IsSubscribed: yes Mailing-List: contact cgen-help@sourceware.org; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cgen-owner@sourceware.org X-SW-Source: 2006-q2/txt/msg00018.txt.bz2 This is a multi-part message in MIME format. --------------060508010506080800060201 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Content-length: 71 Forgot to include this part which also goes with this patch.... Dave --------------060508010506080800060201 Content-Type: text/plain; name="cgen-include2.ChangeLog" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="cgen-include2.ChangeLog" Content-length: 87 2006-05-09 Dave Brolley * utils.scm (dirname): New function. --------------060508010506080800060201 Content-Type: text/plain; name="cgen-include2.patch.txt" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="cgen-include2.patch.txt" Content-length: 985 Index: cgen/utils.scm =================================================================== RCS file: /cvs/src/src/cgen/utils.scm,v retrieving revision 1.18 diff -c -p -r1.18 utils.scm *** cgen/utils.scm 15 Jun 2005 21:28:19 -0000 1.18 --- cgen/utils.scm 9 May 2006 18:19:54 -0000 *************** *** 1,5 **** ; Generic Utilities. ! ; Copyright (C) 2000-2005 Red Hat, Inc. ; This file is part of CGEN. ; See file COPYING.CGEN for details. --- 1,5 ---- ; Generic Utilities. ! ; Copyright (C) 2000-2005, 2006 Red Hat, Inc. ; This file is part of CGEN. ; See file COPYING.CGEN for details. *************** *** 155,160 **** --- 155,169 ---- (->string str)) ) + ; 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))))) + ) + ; Turn STR into lowercase. (define (string-downcase str) --------------060508010506080800060201--