2019-03-17 14:40:57 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > 1/pc< / title >
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
< link href = "inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / head >
< body >
<!-- Weave of '1/ut' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../webs.html" > ★ < / a > < / li > < li > < a href = "index.html" > inflections-test< / a > < / li > < li > < a href = "index.html#1" > Chapter 1: Everything< / a > < / li > < li > < b > Unit Tests< / b > < / li > < / ul > < p class = "purpose" > A selection of tests for, or demonstrations of, inflections features.< / p >
< ul class = "toc" > < li > < a href = "#SP1" > § 1. Adjectives< / a > < / li > < li > < a href = "#SP2" > § 2. Articles< / a > < / li > < li > < a href = "#SP3" > § 3. Declensions< / a > < / li > < li > < a href = "#SP4" > § 4. Participles< / a > < / li > < li > < a href = "#SP5" > § 5. Plurals< / a > < / li > < li > < a href = "#SP6" > § 6. Verbs< / a > < / li > < / ul > < hr class = "tocbar" >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Adjectives. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_adjectives< / span > < span class = "plain" > (< / span > < span class = "reserved" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Filenames::from_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > );< / span >
< span class = "reserved" > source_file< / span > < span class = "plain" > *< / span > < span class = "identifier" > sf< / span > < span class = "plain" > = < / span > < span class = "functiontext" > TextFromFiles::feed_into_lexer< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "constant" > NULL_GENERAL_POINTER< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > sf< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "File has failed to open\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > LOOP_THROUGH_WORDING< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > , < / span > < span class = "identifier" > sf< / span > < span class = "plain" > -< / span > < span class = "element" > > text_read< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > PARBREAK_V< / span > < span class = "plain" > ) < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Wordings::one_word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > );< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "%W --> "< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "comparative: %W, "< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Grading::make_comparative< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > ));< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "superlative: %W, "< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Grading::make_superlative< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > ));< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "quiddity: %W\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Grading::make_quiddity< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > ));< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Unit::test_adjectives is used in 1/pc (< a href = "1-pc.html#SP1" > § 1< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. Articles. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_articles< / span > < span class = "plain" > (< / span > < span class = "reserved" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Filenames::from_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > );< / span >
< span class = "reserved" > source_file< / span > < span class = "plain" > *< / span > < span class = "identifier" > sf< / span > < span class = "plain" > = < / span > < span class = "functiontext" > TextFromFiles::feed_into_lexer< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "constant" > NULL_GENERAL_POINTER< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > sf< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "File has failed to open\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > LOOP_THROUGH_WORDING< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > , < / span > < span class = "identifier" > sf< / span > < span class = "plain" > -< / span > < span class = "element" > > text_read< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > PARBREAK_V< / span > < span class = "plain" > ) < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Wordings::one_word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > );< / span >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "string" > "%W"< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > AT< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > ArticleInflection::preface_by_article< / span > < span class = "plain" > (< / span > < span class = "identifier" > AT< / span > < span class = "plain" > , < / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > );< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "%S --> %S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "identifier" > AT< / span > < span class = "plain" > );< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > AT< / span > < span class = "plain" > );< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Unit::test_articles is used in 1/pc (< a href = "1-pc.html#SP1" > § 1< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP3" > < / a > < b > § 3. Declensions. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_declensions< / span > < span class = "plain" > (< / span > < span class = "reserved" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > vocabulary_entry< / span > < span class = "plain" > *< / span > < span class = "identifier" > m_V< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Vocabulary::entry_for_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > L< / span > < span class = "string" > "m"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > vocabulary_entry< / span > < span class = "plain" > *< / span > < span class = "identifier" > f_V< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Vocabulary::entry_for_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > L< / span > < span class = "string" > "f"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > vocabulary_entry< / span > < span class = "plain" > *< / span > < span class = "identifier" > n_V< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Vocabulary::entry_for_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > L< / span > < span class = "string" > "n"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Filenames::from_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > );< / span >
< span class = "reserved" > source_file< / span > < span class = "plain" > *< / span > < span class = "identifier" > sf< / span > < span class = "plain" > = < / span > < span class = "functiontext" > TextFromFiles::feed_into_lexer< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "constant" > NULL_GENERAL_POINTER< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > sf< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "File has failed to open\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "reserved" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > PW< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Feeds::feed_stream< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "der"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > gen< / span > < span class = "plain" > = < / span > < span class = "constant" > NEUTER_GENDER< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOOP_THROUGH_WORDING< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > , < / span > < span class = "identifier" > sf< / span > < span class = "plain" > -< / span > < span class = "element" > > text_read< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > PARBREAK_V< / span > < span class = "plain" > ) < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > m_V< / span > < span class = "plain" > ) { < / span > < span class = "identifier" > gen< / span > < span class = "plain" > = < / span > < span class = "constant" > MASCULINE_GENDER< / span > < span class = "plain" > ; < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ; }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > f_V< / span > < span class = "plain" > ) { < / span > < span class = "identifier" > gen< / span > < span class = "plain" > = < / span > < span class = "constant" > FEMININE_GENDER< / span > < span class = "plain" > ; < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ; }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > n_V< / span > < span class = "plain" > ) { < / span > < span class = "identifier" > gen< / span > < span class = "plain" > = < / span > < span class = "constant" > NEUTER_GENDER< / span > < span class = "plain" > ; < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ; }< / span >
< span class = "reserved" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Wordings::one_word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > );< / span >
< span class = "reserved" > declension< / span > < span class = "plain" > < / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Declensions::decline< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > , < / span > < span class = "identifier" > gen< / span > < span class = "plain" > , 1);< / span >
< span class = "reserved" > declension< / span > < span class = "plain" > < / span > < span class = "identifier" > AD< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Declensions::decline_article< / span > < span class = "plain" > (< / span > < span class = "identifier" > PW< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > , < / span > < span class = "identifier" > gen< / span > < span class = "plain" > , 1);< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "%W --> "< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Declensions::writer< / span > < span class = "plain" > (< / span > < span class = "constant" > STDOUT< / span > < span class = "plain" > , & < / span > < span class = "identifier" > D< / span > < span class = "plain" > , & < / span > < span class = "identifier" > AD< / span > < span class = "plain" > );< / span >
< span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Declensions::decline< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > , < / span > < span class = "identifier" > gen< / span > < span class = "plain" > , 2);< / span >
< span class = "identifier" > AD< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Declensions::decline_article< / span > < span class = "plain" > (< / span > < span class = "identifier" > PW< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > , < / span > < span class = "identifier" > gen< / span > < span class = "plain" > , 2);< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "pl --> "< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Declensions::writer< / span > < span class = "plain" > (< / span > < span class = "constant" > STDOUT< / span > < span class = "plain" > , & < / span > < span class = "identifier" > D< / span > < span class = "plain" > , & < / span > < span class = "identifier" > AD< / span > < span class = "plain" > );< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Unit::test_declensions is used in 1/pc (< a href = "1-pc.html#SP1" > § 1< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP4" > < / a > < b > § 4. Participles. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_participles< / span > < span class = "plain" > (< / span > < span class = "reserved" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Filenames::from_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > );< / span >
< span class = "reserved" > source_file< / span > < span class = "plain" > *< / span > < span class = "identifier" > sf< / span > < span class = "plain" > = < / span > < span class = "functiontext" > TextFromFiles::feed_into_lexer< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "constant" > NULL_GENERAL_POINTER< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > sf< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "File has failed to open\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > LOOP_THROUGH_WORDING< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > , < / span > < span class = "identifier" > sf< / span > < span class = "plain" > -< / span > < span class = "element" > > text_read< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > PARBREAK_V< / span > < span class = "plain" > ) < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Wordings::one_word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > );< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "%W --> %W\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "functiontext" > PastParticiples::pasturise_wording< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > ));< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Unit::test_participles is used in 1/pc (< a href = "1-pc.html#SP1" > § 1< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP5" > < / a > < b > § 5. Plurals. < / b > (ASAGIG stands for "as sure as geese is geese".)
< / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_plurals< / span > < span class = "plain" > (< / span > < span class = "reserved" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Filenames::from_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > );< / span >
< span class = "reserved" > source_file< / span > < span class = "plain" > *< / span > < span class = "identifier" > sf< / span > < span class = "plain" > = < / span > < span class = "functiontext" > TextFromFiles::feed_into_lexer< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "constant" > NULL_GENERAL_POINTER< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > sf< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "File has failed to open\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > LOOP_THROUGH_WORDING< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > , < / span > < span class = "identifier" > sf< / span > < span class = "plain" > -< / span > < span class = "element" > > text_read< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > PARBREAK_V< / span > < span class = "plain" > ) < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Wordings::one_word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > );< / span >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > G< / span > < span class = "plain" > );< / span >
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > G< / span > < span class = "plain" > , < / span > < span class = "string" > "%W"< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ASAGIG< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Pluralisation::regular< / span > < span class = "plain" > (< / span > < span class = "identifier" > ASAGIG< / span > < span class = "plain" > , < / span > < span class = "identifier" > G< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > );< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "%S --> %S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > G< / span > < span class = "plain" > , < / span > < span class = "identifier" > ASAGIG< / span > < span class = "plain" > );< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ASAGIG< / span > < span class = "plain" > );< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > G< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Unit::test_plurals is used in 1/pc (< a href = "1-pc.html#SP1" > § 1< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP6" > < / a > < b > § 6. Verbs. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_verbs< / span > < span class = "plain" > (< / span > < span class = "reserved" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Filenames::from_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > );< / span >
< span class = "reserved" > source_file< / span > < span class = "plain" > *< / span > < span class = "identifier" > sf< / span > < span class = "plain" > = < / span > < span class = "functiontext" > TextFromFiles::feed_into_lexer< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "constant" > NULL_GENERAL_POINTER< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > sf< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "File has failed to open\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c< / span > < span class = "plain" > = 0;< / span >
< span class = "identifier" > LOOP_THROUGH_WORDING< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > , < / span > < span class = "identifier" > sf< / span > < span class = "plain" > -< / span > < span class = "element" > > text_read< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > PARBREAK_V< / span > < span class = "plain" > ) < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Wordings::one_word< / span > < span class = "plain" > (< / span > < span class = "identifier" > i< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > c< / span > < span class = "plain" > ++ < 10) {< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "Verb %W --> \< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Conjugation::test< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "identifier" > English_language< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Regexp::replace< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "%^"< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "constant" > REP_REPEATING< / span > < span class = "plain" > );< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "%S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "functiontext" > Conjugation::test_participle< / span > < span class = "plain" > (< / span > < span class = "constant" > STDOUT< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Unit::test_verbs is used in 1/pc (< a href = "1-pc.html#SP1" > § 1< / a > ).< / p >
< hr class = "tocbar" >
< ul class = "toc" > < li > < a href = "1-pc.html" > Back to 'Program Control'< / a > < / li > < li > < i > (This section ends Chapter 1: Everything.)< / i > < / li > < / ul > < hr class = "tocbar" >
2019-04-22 17:42:10 +03:00
<!-- End of weave -->
2019-03-17 14:40:57 +02:00
< / body >
< / html >