mirror of
https://github.com/ganelson/inform.git
synced 2024-07-05 16:44:21 +03:00
18 lines
485 B
OpenEdge ABL
18 lines
485 B
OpenEdge ABL
[DefaultLanguage::] Default Language.
|
|
|
|
To keep track of what the default natural language is.
|
|
|
|
@ The following mechanism may become more sophisticated later.
|
|
|
|
=
|
|
NATURAL_LANGUAGE_WORDS_TYPE *default_language_for_linguistics = NULL;
|
|
|
|
void DefaultLanguage::set(NATURAL_LANGUAGE_WORDS_TYPE *nl) {
|
|
default_language_for_linguistics = nl;
|
|
}
|
|
|
|
NATURAL_LANGUAGE_WORDS_TYPE *DefaultLanguage::get(NATURAL_LANGUAGE_WORDS_TYPE *nl) {
|
|
if (nl) return nl;
|
|
return default_language_for_linguistics;
|
|
}
|