2006-05-09 Dave Brolley <brolley@redhat.com>

        * utils.scm (dirname): New function.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index c72cdbe..648691c 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -5,6 +5,7 @@
        * read.scm (include): Use arch-path as file location.
        (arch-path): Define it with a default setting.
        (-cgen): Update arch-path when "-a" option is specified.
+       * utils.scm (dirname): New function.
 
 2006-05-05  Steve Ellcey  <sje@cup.hp.com>
 

diff --git a/cgen/utils.scm b/cgen/utils.scm
index 80312b0..c79f374 100644 (file)
--- a/cgen/utils.scm
+++ b/cgen/utils.scm
@@ -1,5 +1,5 @@
 ; Generic Utilities.
-; Copyright (C) 2000-2005 Red Hat, Inc.
+; Copyright (C) 2000-2005, 2006 Red Hat, Inc.
 ; This file is part of CGEN.
 ; See file COPYING.CGEN for details.
 
@@ -155,6 +155,15 @@
                   (->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)