[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
symbol defined cannot be found.
From: |
Steven Wu |
Subject: |
symbol defined cannot be found. |
Date: |
Wed, 23 Jun 2004 07:45:50 -0700 |
I tried a little trick learned from this list, when the attached script
is run with argument, it goes into interactive mode. That part works,
however, when after getting into interactive mode, the variable
dmr-tracers and run-log-trace symbol cannot be found. I wonder why this
is the case.
steve
---
#!/bin/sh
# -*- scheme -*-
main='(module-ref (resolve-module '\''(dmr pythia)) '\'main')'
exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
!#
;;; pythia -- Build log analyzer
;;;
;;; usage: pythia [-r|--project-root] [-R|--posix-proj-root]
;;; [-l|--log-file file] [-p|--patch-list file]
;;;
(define-module (dmr pythia)
:autoload (ice-9 getopt-long) (getopt-long)
:use-module (ice-9 readline)
:use-module (ice-9 rdelim)
:use-module (ice-9 pretty-print)
:use-module (ice-9 regex)
:export (pythia))
(define dmr-tracers '())
(define (run-log-trace)
(write-line "run log trace"))
(define (interactive-mode)
(set-repl-prompt! "pythia> ")
(activate-readline)
(top-repl))
(define (pythia . args)
(let* ((parsed-opts (getopt-long
(cons "pythia" args)
'((root (single-char #\r) (value #t))
(posix-root (single-char #\p) (value #t))
(mcp-log (single-char #\m) (value #t))
(liberty-log (single-char #\l) (value #t))
(wim-log (single-char #\w) (value #t))
(x86-log (single-char #\x) (value #t)))))
(mcp-log (option-ref parsed-opts 'mcp-log #f))
(liberty-log (option-ref parsed-opts 'liberty-log #f))
(wim-log (option-ref parsed-opts 'wim-log #f))
(x86-log (option-ref parsed-opts 'x86-log #f))
(root (option-ref parsed-opts 'root #f))
(posix-root (option-ref parsed-opts 'posix-root #f)))
(if (= 0 (length args))
(interactive-mode)
(if (and root posix-root)
(begin
(write-line mcp-log)
(cond
(mcp-log (write-line mcp-log))
(liberty-log (write-line liberty-log))
(wim-log (write-line wim-log))
(x86-log (write-line x86-log)))
(run-log-trace))))))
(define main pythia)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- symbol defined cannot be found.,
Steven Wu <=