? cgen/string
Index: cgen/read.scm
===================================================================
RCS file: /cvs/src/src/cgen/read.scm,v
retrieving revision 1.11
diff -c -p -r1.11 read.scm
*** cgen/read.scm	15 Feb 2005 09:01:35 -0000	1.11
--- cgen/read.scm	9 May 2006 16:13:59 -0000
***************
*** 1,5 ****
  ; Top level file for reading and recording .cpu file contents.
! ; Copyright (C) 2000, 2001 Red Hat, Inc.
  ; This file is part of CGEN.
  ; See file COPYING.CGEN for details.
  
--- 1,5 ----
  ; Top level file for reading and recording .cpu file contents.
! ; Copyright (C) 2000, 2001, 2006 Red Hat, Inc.
  ; This file is part of CGEN.
  ; See file COPYING.CGEN for details.
  
*************** Define a preprocessor-style macro.
*** 781,788 ****
  ; .cpu file include mechanism
  
  (define (include file)
!   (logit 1 "Including file " file " ...\n")
!   (reader-read-file! (string-append srcdir "/cpu/" file))
    (logit 2 "Resuming previous file ...\n")
  )
  
--- 781,788 ----
  ; .cpu file include mechanism
  
  (define (include file)
!   (logit 1 "Including file " (string-append arch-path file) " ...\n")
!   (reader-read-file! (string-append arch-path file))
    (logit 2 "Resuming previous file ...\n")
  )
  
*************** Define a preprocessor-style macro.
*** 994,999 ****
--- 994,1001 ----
      )
  )
  
+ (define arch-path (string-append srcdir "/cpu/"))
+ 
  ; Accessors for application option specs
  (define (opt-get-first-pass opt)
    (or (list-ref opt 3) (lambda args #f)))
*************** Define a preprocessor-style macro.
*** 1072,1077 ****
--- 1074,1080 ----
  	      (else
  	       (cond ((str=? "-a" (car opt))
  		      (set! arch-file arg)
+ 		      (set! arch-path (dirname arg))
  		      )
  		     ((str=? "-b" (car opt))
  		      (set! debugging #t)