diff --git a/collects/string-constants/main.rkt b/collects/string-constants/main.rkt index e535848faf..5f4e3f7bde 100644 --- a/collects/string-constants/main.rkt +++ b/collects/string-constants/main.rkt @@ -1,3 +1,3 @@ -#lang scheme/base -(require "string-constant.ss") -(provide (all-from-out "string-constant.ss")) +#lang racket/base +(require "string-constant.rkt") +(provide (all-from-out "string-constant.rkt")) diff --git a/collects/string-constants/danish-string-constants.rkt b/collects/string-constants/private/danish-string-constants.rkt similarity index 100% rename from collects/string-constants/danish-string-constants.rkt rename to collects/string-constants/private/danish-string-constants.rkt diff --git a/collects/string-constants/dutch-string-constants.rkt b/collects/string-constants/private/dutch-string-constants.rkt similarity index 100% rename from collects/string-constants/dutch-string-constants.rkt rename to collects/string-constants/private/dutch-string-constants.rkt diff --git a/collects/string-constants/english-string-constants.rkt b/collects/string-constants/private/english-string-constants.rkt similarity index 100% rename from collects/string-constants/english-string-constants.rkt rename to collects/string-constants/private/english-string-constants.rkt diff --git a/collects/string-constants/french-string-constants.rkt b/collects/string-constants/private/french-string-constants.rkt similarity index 100% rename from collects/string-constants/french-string-constants.rkt rename to collects/string-constants/private/french-string-constants.rkt diff --git a/collects/string-constants/german-string-constants.rkt b/collects/string-constants/private/german-string-constants.rkt similarity index 100% rename from collects/string-constants/german-string-constants.rkt rename to collects/string-constants/private/german-string-constants.rkt diff --git a/collects/string-constants/japanese-string-constants.rkt b/collects/string-constants/private/japanese-string-constants.rkt similarity index 100% rename from collects/string-constants/japanese-string-constants.rkt rename to collects/string-constants/private/japanese-string-constants.rkt diff --git a/collects/string-constants/korean-string-constants.rkt b/collects/string-constants/private/korean-string-constants.rkt similarity index 100% rename from collects/string-constants/korean-string-constants.rkt rename to collects/string-constants/private/korean-string-constants.rkt diff --git a/collects/string-constants/portuguese-string-constants.rkt b/collects/string-constants/private/portuguese-string-constants.rkt similarity index 100% rename from collects/string-constants/portuguese-string-constants.rkt rename to collects/string-constants/private/portuguese-string-constants.rkt diff --git a/collects/string-constants/russian-string-constants.rkt b/collects/string-constants/private/russian-string-constants.rkt similarity index 100% rename from collects/string-constants/russian-string-constants.rkt rename to collects/string-constants/private/russian-string-constants.rkt diff --git a/collects/string-constants/simplified-chinese-string-constants.rkt b/collects/string-constants/private/simplified-chinese-string-constants.rkt similarity index 100% rename from collects/string-constants/simplified-chinese-string-constants.rkt rename to collects/string-constants/private/simplified-chinese-string-constants.rkt diff --git a/collects/string-constants/spanish-string-constants.rkt b/collects/string-constants/private/spanish-string-constants.rkt similarity index 100% rename from collects/string-constants/spanish-string-constants.rkt rename to collects/string-constants/private/spanish-string-constants.rkt diff --git a/collects/string-constants/string-constant-lang.rkt b/collects/string-constants/private/string-constant-lang.rkt similarity index 100% rename from collects/string-constants/string-constant-lang.rkt rename to collects/string-constants/private/string-constant-lang.rkt diff --git a/collects/string-constants/traditional-chinese-string-constants.rkt b/collects/string-constants/private/traditional-chinese-string-constants.rkt similarity index 100% rename from collects/string-constants/traditional-chinese-string-constants.rkt rename to collects/string-constants/private/traditional-chinese-string-constants.rkt diff --git a/collects/string-constants/ukrainian-string-constants.rkt b/collects/string-constants/private/ukrainian-string-constants.rkt similarity index 100% rename from collects/string-constants/ukrainian-string-constants.rkt rename to collects/string-constants/private/ukrainian-string-constants.rkt diff --git a/collects/string-constants/string-constant.rkt b/collects/string-constants/string-constant.rkt index 1279a75f83..2e9597e9e7 100644 --- a/collects/string-constants/string-constant.rkt +++ b/collects/string-constants/string-constant.rkt @@ -2,19 +2,19 @@ (require (for-syntax racket/base) (for-syntax mzlib/etc) (for-syntax mzlib/list) - (for-syntax (prefix-in english: "english-string-constants.rkt")) - (for-syntax (prefix-in spanish: "spanish-string-constants.rkt")) - (for-syntax (prefix-in german: "german-string-constants.rkt")) - (for-syntax (prefix-in french: "french-string-constants.rkt")) - (for-syntax (prefix-in dutch: "dutch-string-constants.rkt")) - (for-syntax (prefix-in danish: "danish-string-constants.rkt")) - (for-syntax (prefix-in portuguese: "portuguese-string-constants.rkt")) - (for-syntax (prefix-in japanese: "japanese-string-constants.rkt")) - (for-syntax (prefix-in traditional-chinese: "traditional-chinese-string-constants.rkt")) - (for-syntax (prefix-in simplified-chinese: "simplified-chinese-string-constants.rkt")) - (for-syntax (prefix-in russian: "russian-string-constants.rkt")) - (for-syntax (prefix-in ukrainian: "ukrainian-string-constants.rkt")) - (for-syntax (prefix-in korean: "korean-string-constants.rkt"))) + (for-syntax (prefix-in english: "private/english-string-constants.rkt")) + (for-syntax (prefix-in spanish: "private/spanish-string-constants.rkt")) + (for-syntax (prefix-in german: "private/german-string-constants.rkt")) + (for-syntax (prefix-in french: "private/french-string-constants.rkt")) + (for-syntax (prefix-in dutch: "private/dutch-string-constants.rkt")) + (for-syntax (prefix-in danish: "private/danish-string-constants.rkt")) + (for-syntax (prefix-in portuguese: "private/portuguese-string-constants.rkt")) + (for-syntax (prefix-in japanese: "private/japanese-string-constants.rkt")) + (for-syntax (prefix-in traditional-chinese: "private/traditional-chinese-string-constants.rkt")) + (for-syntax (prefix-in simplified-chinese: "private/simplified-chinese-string-constants.rkt")) + (for-syntax (prefix-in russian: "private/russian-string-constants.rkt")) + (for-syntax (prefix-in ukrainian: "private/ukrainian-string-constants.rkt")) + (for-syntax (prefix-in korean: "private/korean-string-constants.rkt"))) (require mzlib/file mzlib/etc @@ -243,12 +243,3 @@ (map sc-language-name available-string-constant-sets)]) (syntax (list 'languages ...)))]))) -#| -(require string-constant) -(string-constant is-this-your-native-language) -(string-constants is-this-your-native-language) -(all-languages) -(this-language) -(expand #'(string-constant is-this-your-native-language)) -(expand #'(string-constants is-this-your-native-language)) -|# diff --git a/collects/string-constants/string-constants.scrbl b/collects/string-constants/string-constants.scrbl index 8a2d41d235..d90641bdd7 100644 --- a/collects/string-constants/string-constants.scrbl +++ b/collects/string-constants/string-constants.scrbl @@ -11,7 +11,8 @@ DrRacket's GUI. @; ---------------------------------------------------------------------- @section{Using String Constants} -@defmodule[string-constants] +@defmodule*/no-declare[(string-constants)] +@declare-exporting[string-constants/string-constant string-constants] @defform[(string-constant name)]{ @@ -40,20 +41,14 @@ running DrRacket.} @; ---------------------------------------------------------------------- @section{Adding String Constants} -@defmodule[string-constants/string-constant-lang] -To add string constants to DrRacket, see the files: - -@itemize[ - @item{@filepath{english-string-constants.ss}} - @item{@filepath{french-string-constants.ss}} - @item{@filepath{spanish-string-constants.ss}} - @item{@filepath{german-string-constants.ss}} - @item{@filepath{danish-string-constants.ss}} - @item{@filepath{italian-string-constants.ss}}] +To add string constants to DrRacket, see the file +@filepath{private/english-string-constants.rkt} +and the other string constants files in the @filepath{private} +directory. Each file has the same format. They are each modules in the -@racketmodname[string-constants/string-constant-lang] language. The +@tt[string-constants/private/string-constant-lang] language. The body of each module is a finite mapping table that gives the mapping from the symbolic name of a string constant to its translation in the appropriate language. @@ -61,7 +56,7 @@ appropriate language. The @filepath{english-string-constants} is considered the master file; string constants will be set there and translated into each of the other language files. In addition, the -@filepath{english-string-constants.ss} file should contain hints about +@filepath{english-string-constants.rkt} file should contain hints about the context of the strings whose symbol name might not be clear. @; ---------------------------------------------------------------------- diff --git a/collects/string-constants/tests/test-docs-complete.rkt b/collects/string-constants/tests/test-docs-complete.rkt index 36ea325380..fe1fc8e167 100644 --- a/collects/string-constants/tests/test-docs-complete.rkt +++ b/collects/string-constants/tests/test-docs-complete.rkt @@ -1,17 +1,4 @@ #lang racket/base (require tests/utils/docs-complete) -(check-docs (quote string-constants/ukrainian-string-constants)) -(check-docs (quote string-constants/traditional-chinese-string-constants)) (check-docs (quote string-constants/string-constant)) -(check-docs (quote string-constants/spanish-string-constants)) -(check-docs (quote string-constants/simplified-chinese-string-constants)) -(check-docs (quote string-constants/russian-string-constants)) -(check-docs (quote string-constants/portuguese-string-constants)) (check-docs (quote string-constants)) -(check-docs (quote string-constants/korean-string-constants)) -(check-docs (quote string-constants/japanese-string-constants)) -(check-docs (quote string-constants/german-string-constants)) -(check-docs (quote string-constants/french-string-constants)) -(check-docs (quote string-constants/english-string-constants)) -(check-docs (quote string-constants/dutch-string-constants)) -(check-docs (quote string-constants/danish-string-constants))