dump_dur_stat.scm

来自「使用Exlipse编写的一个语音程序」· SCM 代码 · 共 23 行

; Portions Copyright 2004 Sun Microsystems, Inc.
; Portions Copyright 1999-2003 Language Technologies Institute,
; Carnegie Mellon University.
; All Rights Reserved.  Use is subject to license terms.
;
; See the file "license.terms" for information on usage and
; redistribution of this file, and for a DISCLAIMER OF ALL
; WARRANTIES.

; Dumps phone duration stats to stdout.
;
; Expects duration_ph_info to be defined.
;
(define (dump_dur_stat)
  (let ((dur_lines duration_ph_info))
    (while dur_lines
	   (let ((dur_line (car dur_lines)))
	     (format t "%s %f %f\n" 
		     (car dur_line) 
		     (cadr dur_line)
		     (caddr dur_line)))
	   (set! dur_lines (cdr dur_lines)))))