?? dump_phoneset.scm
字號:
; 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 the phoneset to stdout.; ; Expects Phoneset.description to be defined.;(define (dump_phoneset) (phoneset_to_text (PhoneSet.description nil)))(define (dump_phone_line feature_schema phone_line) (let ((feature_names feature_schema) (phone_name (car phone_line)) (phone_attributes (cdr phone_line))) (while feature_names (let ((feature_name (caar feature_names)) (phone_attribute (car phone_attributes))) (format t "%s %s %s\n" phone_name feature_name phone_attribute) (set! feature_names (cdr feature_names)) (set! phone_attributes (cdr phone_attributes)) ))))(define (phoneset_to_text phoneset) (let ((feature_schema (car (cdr (car (cdr phoneset))))) (phone_lines (car (cdr (car (cddr phoneset)))))) (while phone_lines (dump_phone_line feature_schema (car phone_lines)) (set! phone_lines (cdr phone_lines)))))
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -