mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 18:14:21 +03:00
146 lines
5.2 KiB
OpenEdge ABL
146 lines
5.2 KiB
OpenEdge ABL
[LinguisticsModule::] Linguistics Module.
|
|
|
|
Setting up the use of this module.
|
|
|
|
@ This section simoly sets up the module in ways expected by //foundation//, and
|
|
contains no code of interest. The following constant exists only in tools
|
|
which use this module:
|
|
|
|
@d LINGUISTICS_MODULE TRUE
|
|
|
|
@ This module defines the following classes:
|
|
|
|
@e adjective_CLASS
|
|
@e article_CLASS
|
|
@e quantifier_CLASS
|
|
@e determiner_CLASS
|
|
@e grammatical_category_CLASS
|
|
@e linguistic_stock_item_CLASS
|
|
@e grammatical_usage_CLASS
|
|
@e verb_CLASS
|
|
@e verb_form_CLASS
|
|
@e verb_meaning_CLASS
|
|
@e verb_sense_CLASS
|
|
@e verb_usage_CLASS
|
|
@e verb_usage_tier_CLASS
|
|
@e preposition_CLASS
|
|
@e time_period_CLASS
|
|
@e noun_CLASS
|
|
@e noun_usage_CLASS
|
|
@e pronoun_CLASS
|
|
@e pronoun_usage_CLASS
|
|
|
|
=
|
|
DECLARE_CLASS(adjective)
|
|
DECLARE_CLASS(article)
|
|
DECLARE_CLASS(quantifier)
|
|
DECLARE_CLASS(determiner)
|
|
DECLARE_CLASS(grammatical_category)
|
|
DECLARE_CLASS(linguistic_stock_item)
|
|
DECLARE_CLASS(grammatical_usage)
|
|
DECLARE_CLASS(verb)
|
|
DECLARE_CLASS(verb_form)
|
|
DECLARE_CLASS_ALLOCATED_IN_ARRAYS(verb_meaning, 100)
|
|
DECLARE_CLASS(verb_sense)
|
|
DECLARE_CLASS(verb_usage)
|
|
DECLARE_CLASS(verb_usage_tier)
|
|
DECLARE_CLASS(preposition)
|
|
DECLARE_CLASS_ALLOCATED_IN_ARRAYS(time_period, 100)
|
|
DECLARE_CLASS(noun)
|
|
DECLARE_CLASS(noun_usage)
|
|
DECLARE_CLASS(pronoun)
|
|
DECLARE_CLASS(pronoun_usage)
|
|
|
|
@ Like all modules, this one must define a |start| and |end| function:
|
|
|
|
@e LINGUISTIC_STOCK_DA
|
|
@e TIME_PERIODS_DA
|
|
@e VERB_USAGES_DA
|
|
@e VERB_FORMS_DA
|
|
|
|
=
|
|
void LinguisticsModule::start(void) {
|
|
@<Register this module's debugging log aspects@>;
|
|
@<Register this module's debugging log writers@>;
|
|
@<Declare new memory allocation reasons@>;
|
|
Stock::create_categories();
|
|
Cardinals::enable_in_word_form();
|
|
Articles::mark_for_preform();
|
|
Prepositions::mark_for_preform();
|
|
}
|
|
void LinguisticsModule::end(void) {
|
|
}
|
|
|
|
@<Register this module's debugging log aspects@> =
|
|
Log::declare_aspect(LINGUISTIC_STOCK_DA, L"linguistic stock", FALSE, FALSE);
|
|
Log::declare_aspect(TIME_PERIODS_DA, L"time periods", FALSE, FALSE);
|
|
Log::declare_aspect(VERB_USAGES_DA, L"verb usages", FALSE, TRUE);
|
|
Log::declare_aspect(VERB_FORMS_DA, L"verb forms", FALSE, TRUE);
|
|
|
|
@<Register this module's debugging log writers@> =
|
|
Writers::register_logger('t', Occurrence::log);
|
|
Writers::register_logger('p', Prepositions::log);
|
|
Writers::register_logger('w', Verbs::log_verb);
|
|
Writers::register_logger('y', VerbMeanings::log);
|
|
|
|
@ Not all of our memory will be claimed in the form of structures: now and then
|
|
we need to use the equivalent of traditional |malloc| and |calloc| routines.
|
|
|
|
@e STOCK_MREASON
|
|
|
|
@<Declare new memory allocation reasons@> =
|
|
Memory::reason_name(STOCK_MREASON, "linguistic stock array");
|
|
|
|
@ This module uses //syntax//, and adds the following annotations to the
|
|
syntax tree.
|
|
|
|
@e verbal_certainty_ANNOT /* |int|: certainty level if known */
|
|
@e sentence_is_existential_ANNOT /* |int|: such as "there is a man" */
|
|
@e linguistic_error_here_ANNOT /* |int|: one of the errors occurred here */
|
|
@e inverted_verb_ANNOT /* |int|: an inversion of subject and object has occurred */
|
|
@e possessive_verb_ANNOT /* |int|: this is a non-relative use of "to have" */
|
|
@e verb_ANNOT /* |verb_usage|: what's being done here */
|
|
@e noun_ANNOT /* |noun_usage|: what's being done here */
|
|
@e pronoun_ANNOT /* |pronoun_usage|: what's being done here */
|
|
@e preposition_ANNOT /* |preposition|: which preposition, if any, qualifies it */
|
|
@e second_preposition_ANNOT /* |preposition|: which further preposition, if any, qualifies it */
|
|
@e verb_meaning_ANNOT /* |verb_meaning|: what it means */
|
|
|
|
@e nounphrase_article_ANNOT /* |int|: definite or indefinite article: see below */
|
|
@e plural_reference_ANNOT /* |int|: used by PROPER NOUN nodes for evident plurals */
|
|
@e gender_reference_ANNOT /* |int|: used by PROPER NOUN nodes for evident genders */
|
|
@e relationship_node_type_ANNOT /* |int|: what kind of inference this assertion makes */
|
|
@e implicitly_refers_to_ANNOT /* |int|: this will implicitly refer to something */
|
|
|
|
=
|
|
DECLARE_ANNOTATION_FUNCTIONS(verb, verb_usage)
|
|
DECLARE_ANNOTATION_FUNCTIONS(noun, noun_usage)
|
|
DECLARE_ANNOTATION_FUNCTIONS(pronoun, pronoun_usage)
|
|
DECLARE_ANNOTATION_FUNCTIONS(preposition, preposition)
|
|
DECLARE_ANNOTATION_FUNCTIONS(second_preposition, preposition)
|
|
DECLARE_ANNOTATION_FUNCTIONS(verb_meaning, verb_meaning)
|
|
|
|
MAKE_ANNOTATION_FUNCTIONS(verb, verb_usage)
|
|
MAKE_ANNOTATION_FUNCTIONS(noun, noun_usage)
|
|
MAKE_ANNOTATION_FUNCTIONS(pronoun, pronoun_usage)
|
|
MAKE_ANNOTATION_FUNCTIONS(preposition, preposition)
|
|
MAKE_ANNOTATION_FUNCTIONS(second_preposition, preposition)
|
|
MAKE_ANNOTATION_FUNCTIONS(verb_meaning, verb_meaning)
|
|
|
|
@ This module requires //words//, which contains the Preform parser. When that
|
|
initialises, it calls the following routine to improve its performance.
|
|
|
|
@d PREFORM_OPTIMISER_WORDS_CALLBACK LinguisticsModule::preform_optimiser
|
|
|
|
=
|
|
int first_round_of_nt_optimisation_made = FALSE;
|
|
void LinguisticsModule::preform_optimiser(void) {
|
|
Cardinals::preform_optimiser();
|
|
VerbUsages::preform_optimiser();
|
|
Prepositions::preform_optimiser();
|
|
if (first_round_of_nt_optimisation_made == FALSE) {
|
|
first_round_of_nt_optimisation_made = TRUE;
|
|
Quantifiers::make_built_in();
|
|
}
|
|
}
|