diff --git a/collects/srfi/87.ss b/collects/srfi/87.ss new file mode 100644 index 0000000000..a30be07233 --- /dev/null +++ b/collects/srfi/87.ss @@ -0,0 +1,3 @@ +(module |87| mzscheme + (require (lib "case.ss" "srfi" "87")) + (provide (rename srfi:case case))) \ No newline at end of file diff --git a/collects/srfi/87/case.ss b/collects/srfi/87/case.ss new file mode 100644 index 0000000000..4b8fdc7157 --- /dev/null +++ b/collects/srfi/87/case.ss @@ -0,0 +1,54 @@ +(module case mzscheme + + (provide (rename my-case srfi:case)) + + (define-syntax case-test + (lambda (x) + (syntax-case x () + [(_ x (k)) + (if (symbol? (syntax-e #'k)) + (syntax (eq? x 'k)) + (syntax (eqv? x 'k)))] + [(_ x (k ...)) + (syntax (memv x '(k ...)))]))) + + (define-syntax my-case + (lambda (x) + (syntax-case x (else =>) + ((_ v) + (syntax (begin v (cond)))) + ((_ v (else => e)) + (syntax/loc x (e v))) + ((_ v (else e1 e2 ...)) + (syntax/loc x (begin v e1 e2 ...))) + ((_ v ((k ...) => e) c ...) + (syntax/loc x (let ((x v)) + (if (case-test x (k ...)) + (e x) + (my-case x c ...))))) + ((_ v ((k ...) e1 e2 ...)) + (syntax/loc x (if (case-test v (k ...)) (begin e1 e2 ...)))) + ((_ v ((k ...) e1 e2 ...) c1 c2 ...) + (syntax/loc x (let ((x v)) + (if (case-test x (k ...)) + (begin e1 e2 ...) + (my-case x c1 c2 ...))))) + ((_ v (bad e1 e2 ...) . rest) + (raise-syntax-error + #f + "bad syntax (not a datum sequence)" + x + (syntax bad))) + ((_ v clause . rest) + (raise-syntax-error + #f + "bad syntax (missing expression after datum sequence)" + x + (syntax clause))) + ((_ . v) + (not (null? (syntax-e (syntax v)))) + (raise-syntax-error + #f + "bad syntax (illegal use of `.')" + x))))) + ) \ No newline at end of file diff --git a/collects/string-constants/simplified-chinese-string-constants.ss b/collects/string-constants/simplified-chinese-string-constants.ss index 61161c8d2d..37f56503a4 100644 --- a/collects/string-constants/simplified-chinese-string-constants.ss +++ b/collects/string-constants/simplified-chinese-string-constants.ss @@ -157,9 +157,9 @@ (log-definitions-and-interactions "记录定义和交互的日至...") (stop-logging "不再记录日至") (please-choose-a-log-directory "请选择日志目录") - (logging-to "记录日至到：") - (erase-log-directory-contents "删除日至目录~a中的内容？") - (error-erasing-log-directory "删除日至出错。\n\n~a\n") + (logging-to "记录日志到：") + (erase-log-directory-contents "删除日志目录~a中的内容？") + (error-erasing-log-directory "删除日志出错。\n\n~a\n") ;; modes (mode-submenu-label "模式") @@ -296,7 +296,11 @@ ;;; preferences (preferences "参数设置") (error-saving-preferences "保存参数时出错:~a") + (error-saving-preferences-title "保存参数时出错") (error-reading-preferences "读取参数设置时出错") + (prefs-file-locked "存储参数的文件被锁定了（由于文件~a的存在），所以这些参数无法被保存。放弃修改？") + (try-again "重试") ;; button label + (prefs-file-still-locked "存储参数的文件仍然被锁定（由于文件~a的存在）, 所以这些参数将不会被保存。") (scheme-prefs-panel-label "Scheme") (warnings-prefs-panel-label "警告") (editor-prefs-panel-label "编辑") @@ -820,18 +824,18 @@ (beginning-student/abbrev "初级+缩写的表") (beginning/abbrev-one-line-summary "在初级的基础上，用缩写形式输出表") (intermediate-student "中级") - (intermediate-one-line-summary "在初级的基础上增加词法作用域") + (intermediate-one-line-summary "在初级的基础上增加了词法作用域") (intermediate-student/lambda "中级+lambda") - (intermediate/lambda-one-line-summary "在中级的基础上，增加高阶函数") + (intermediate/lambda-one-line-summary "在中级的基础上，增加了高阶函数") (advanced-student "高级") - (advanced-one-line-summary "在中级的基础上，增加lambda和赋值") + (advanced-one-line-summary "在中级的基础上，增加了lambda和赋值") (how-to-design-programs "程序设计方法/How to Design Programs") ;; should agree with MIT Press on this one... (pretty-big-scheme "Pretty Big (包括MrEd和高级)") - (pretty-big-scheme-one-line-summary "Adds syntax and functions from the HtDP languages") + (pretty-big-scheme-one-line-summary "增加了HtDP(程序设计方法)语言的语法和函数") (r5rs-lang-name "标准(R5RS)") (r5rs-one-line-summary "Scheme语言标准第5修改稿") (expander "Expander") - (expander-one-line-summary "Expands, rather than evaluates, expressions") + (expander-one-line-summary "展开表达式，而不是求值") (professional-languages "正式语言") (teaching-languages "教学语言") (experimental-languages "实验语言") @@ -841,15 +845,34 @@ ;;; debug language (unknown-debug-frame "[unknown]") - (backtrace-window-title "Backtrace - DrScheme") - (files-interactions "~a's interactions") ;; filled with a filename - (current-interactions "interactions") - (current-definitions "definitions") + (backtrace-window-title "向后跟踪 - DrScheme") + (files-interactions "~a的交互") ;; filled with a filename + (current-interactions "交互") + (current-definitions "定义") (mzscheme-w/debug "Textual (MzScheme, 包含R5RS)") (mzscheme-one-line-summary "PLT的Scheme实现") (mred-w/debug "Graphical (MrEd, 包含 MzScheme)") (mred-one-line-summary "在MzScheme的基础上增加GUI支持") + ;; test coverage + (test-coverage-clear? "改变定义窗口将导致测试覆盖信息失效。是否继续？") + (test-coverage-clear-and-do-not-ask-again "是，并且不再询问") + (test-coverage-ask? "询问清除测试覆盖") + + ;; tracing + (tracing-enable-tracing "启用跟踪") + (tracing-show-tracing-window "显示跟踪") + (tracing-hide-tracing-window "隐藏跟踪") + (tracing-tracing-nothing-to-show "暂时没有可用的跟踪结果。(请检查你所使用的语言是否支持跟踪以及是否启用了跟踪。)") + + ;;; repl stuff + (evaluation-terminated "计算已终止") + (evaluation-terminated-explanation + "Evaluation线程已停止，在下一次执行之前不会进行计算。") + (last-stack-frame "显示最新的stack frame") + (last-stack-frames "显示前~a个stack frames") + (next-stack-frames "显示后~a个stack frames") + ;;; welcoming message in repl (language "语言") (custom "自定义") @@ -893,29 +916,29 @@ (module-browser-open-file-format "打开~a") (module-browser "Module浏览器") ;; frame title (module-browser... "Module浏览器...") ;; menu item title - (module-browser-error-expanding "Error expanding the program:\n\n~a") - (module-browser-show-lib-paths "Show files loaded by (lib ..) paths") + (module-browser-error-expanding "展开程序时出错：\n\n~a") + (module-browser-show-lib-paths "显示通过(lib ..)加载的文件路径") (module-browser-progress "Module浏览器：~a") ;; prefix in the status line (module-browser-compiling-defns "Module浏览器：compiling definitions") (module-browser-show-lib-paths/short "Follow lib requires") ;; check box label in show module browser pane in drscheme window. - (module-browser-refresh "Refresh") ;; button label in show module browser pane in drscheme window. + (module-browser-refresh "刷新") ;; button label in show module browser pane in drscheme window. (module-browser-only-in-plt-and-module-langs "Module浏览器只能在PLT语言和module语言(并且要求程序中有module)中使用。") - (module-browser-name-length "Name length") - (module-browser-name-short "Short") - (module-browser-name-medium "Medium") - (module-browser-name-long "Long") - (module-browser-open-all "Open all files shown here") + (module-browser-name-length "名称长度") + (module-browser-name-short "短") + (module-browser-name-medium "中") + (module-browser-name-long "长") + (module-browser-open-all "打开所有这些文件") - (mrflow-using-default-language-title "Default Language Used") - (mrflow-using-default-language "The language currently used does not have a type table defined for its primitives. Using R5RS Scheme instead.") + (mrflow-using-default-language-title "正在使用默认语言") + (mrflow-using-default-language "当前使用的语言并不包含定义primitive类型的标。改用R5RS Scheme。") (mrflow-button-title "分析") ;(mrflow-unknown-style-delta-error-title "Unknown Box Style Delta") ;(mrflow-unknown-style-delta-error "Unknown box style delta: ~a") - (mrflow-popup-menu-show-type "Show Type") - (mrflow-popup-menu-hide-type "Hide Type") - (mrflow-popup-menu-show-errors "Show Errors") - (mrflow-popup-menu-hide-errors "Hide Errors") + (mrflow-popup-menu-show-type "显示类型") + (mrflow-popup-menu-hide-type "隐藏类型") + (mrflow-popup-menu-show-errors "显示错误") + (mrflow-popup-menu-hide-errors "隐藏错误") ;(mrflow-read-exception-title "Read Exception") ;(mrflow-read-exception "Read exception: ~a") ;(mrflow-syntax-exception-title "Syntax Exception") @@ -940,7 +963,7 @@ (show-recent-items-window-menu-item "在单独窗口中显示最近使用的文件") (show-recent-items-window-label "最近使用的文件") - (number-of-open-recent-items "Number of recent items") + (number-of-open-recent-items "最近使用项目的数量") (switch-anyway "Switch File Anyway") (stepper-program-has-changed "注意：程序已改变。")