git.gag.com Git - debian/freetts/blob - tools/ArcticToFreeTTS/scheme/dump_misc.scm

   1 ; Portions Copyright 2004 Sun Microsystems, Inc.
   2 ; Portions Copyright 1999-2003 Language Technologies Institute,
   3 ; Carnegie Mellon University.
   4 ; All Rights Reserved.  Use is subject to license terms.
   5 ;
   6 ; See the file "license.terms" for information on usage and
   7 ; redistribution of this file, and for a DISCLAIMER OF ALL
   8 ; WARRANTIES.
   9
  10 ; Dumps miscellaneous terms to stdout.
  11 ;
  12 ; Expects clunits_params to be defined.
  13 ;
  14 (define (dump_misc)
  15   (format t
  16           "CONTINUITY_WEIGHT %d\n"
  17           (cadr (assoc 'continuity_weight clunits_params)))
  18
  19   (format t
  20           "OPTIMAL_COUPLING %d\n"
  21           (cadr (assoc 'optimal_coupling clunits_params)))
  22
  23   (format t
  24           "EXTEND_SELECTIONS %d\n"
  25           (cadr (assoc 'extend_selections clunits_params)))
  26 )