git.gag.com Git - debian/freetts/blob - tools/ArcticToFreeTTS/scheme/dump_pos.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 the guess_pos part of speech tagger to stdout.
  11 ;
  12 ; Expects guess_pos to be defined.
  13 ;
  14 (define (dump_pos)
  15   (let ((pos_list guess_pos))
  16     (while pos_list
  17            (let ((pos (car (car pos_list)))
  18                  (words (cdr (car pos_list))))
  19              (while words
  20                     (format t "%s %s\n" (car words) pos)
  21                     (set! words (cdr words))))
  22            (set! pos_list (cdr pos_list))))
  23 )