2019-02-04 22:26:45 +00:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
2020-04-08 22:41:00 +00:00
< title > Program Control< / title >
2020-03-19 00:03:04 +00:00
< meta name = "viewport" content = "width=device-width initial-scale=1" >
2019-02-04 22:26:45 +00:00
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
2020-03-19 00:03:04 +00:00
< link href = "../inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2019-02-04 22:26:45 +00:00
< / head >
< body >
2020-03-19 00:03:04 +00:00
< nav role = "navigation" >
< h1 > < a href = "../webs.html" > Sources< / a > < / h1 >
< ul >
< li > < a href = "../inweb/index.html" > inweb< / a > < / li >
< / ul >
< h2 > Foundation< / h2 >
< ul >
< li > < a href = "../foundation-module/index.html" > foundation-module< / a > < / li >
< li > < a href = "../foundation-test/index.html" > foundation-test< / a > < / li >
< / ul >
< / nav >
< main role = "main" >
2020-04-08 22:41:00 +00:00
<!-- Weave of 'Program Control' generated by 7 -->
2020-03-19 00:03:04 +00:00
< ul class = "crumbs" > < li > < a href = "../webs.html" > Source< / a > < / li > < li > < a href = "index.html" > foundation-test< / a > < / li > < li > < b > Program Control< / b > < / li > < / ul > < p class = "purpose" > Choosing which unit test to run on the basis of the command-line arguments.< / p >
2019-02-04 22:26:45 +00:00
< ul class = "toc" > < li > < a href = "#SP1" > § 1. Main routine< / a > < / li > < / ul > < hr class = "tocbar" >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Main routine. < / b > < / p >
< pre class = "definitions" >
2020-04-06 11:26:10 +00:00
< span class = "definitionkeyword" > define< / span > < span class = "constant" > INTOOL_NAME< / span > < span class = "plain" > < / span > < span class = "string" > "foundation-test"< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEST_STRINGS_CLSW< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEST_RE_CLSW< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEST_DICT_CLSW< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEST_LITERALS_CLSW< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEST_REPLACEMENT_CLSW< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEST_LISTS_CLSW< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEST_STACKS_CLSW< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEST_SEMVER_CLSW< / span >
2019-02-04 22:26:45 +00:00
< / pre >
< pre class = "display" >
2020-04-06 11:26:10 +00:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > main< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > argc< / span > < span class = "plain" > , < / span > < span class = "reserved" > char< / span > < span class = "plain" > **< / span > < span class = "identifier" > argv< / span > < span class = "plain" > ) {< / span >
< span class = "functiontext" > Foundation::start< / span > < span class = "plain" > ();< / span >
< span class = "functiontext" > CommandLine::declare_heading< / span > < span class = "plain" > (< / span > < span class = "identifier" > L< / span > < span class = "string" > "inexample: a tool for testing foundation facilities\n"< / span > < span class = "plain" > );< / span >
2019-02-04 22:26:45 +00:00
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::declare_switch< / span > < span class = "plain" > (< / span > < span class = "constant" > TEST_STRINGS_CLSW< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "test-strings"< / span > < span class = "plain" > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > ,< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > L< / span > < span class = "string" > "test string manipulation (X is ignored)"< / span > < span class = "plain" > );< / span >
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::declare_switch< / span > < span class = "plain" > (< / span > < span class = "constant" > TEST_RE_CLSW< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "test-regexp"< / span > < span class = "plain" > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > ,< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > L< / span > < span class = "string" > "test regular expression matches on a list of cases in file X"< / span > < span class = "plain" > );< / span >
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::declare_switch< / span > < span class = "plain" > (< / span > < span class = "constant" > TEST_DICT_CLSW< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "test-dictionaries"< / span > < span class = "plain" > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > ,< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > L< / span > < span class = "string" > "test dictionary building on a list of keys and values in file X"< / span > < span class = "plain" > );< / span >
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::declare_switch< / span > < span class = "plain" > (< / span > < span class = "constant" > TEST_LITERALS_CLSW< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "test-literals"< / span > < span class = "plain" > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > ,< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > L< / span > < span class = "string" > "test string literals (X is ignored)"< / span > < span class = "plain" > );< / span >
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::declare_switch< / span > < span class = "plain" > (< / span > < span class = "constant" > TEST_REPLACEMENT_CLSW< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "test-replacement"< / span > < span class = "plain" > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > ,< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > L< / span > < span class = "string" > "test regular expression replacements on a list of cases in file X"< / span > < span class = "plain" > );< / span >
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::declare_switch< / span > < span class = "plain" > (< / span > < span class = "constant" > TEST_LISTS_CLSW< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "test-lists"< / span > < span class = "plain" > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > ,< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > L< / span > < span class = "string" > "test linked lists (X is ignored)"< / span > < span class = "plain" > );< / span >
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::declare_switch< / span > < span class = "plain" > (< / span > < span class = "constant" > TEST_STACKS_CLSW< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "test-stacks"< / span > < span class = "plain" > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > ,< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > L< / span > < span class = "string" > "test LIFO stacks (X is ignored)"< / span > < span class = "plain" > );< / span >
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::declare_switch< / span > < span class = "plain" > (< / span > < span class = "constant" > TEST_SEMVER_CLSW< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "test-semver"< / span > < span class = "plain" > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > ,< / span >
2020-03-23 15:04:43 +00:00
< span class = "identifier" > L< / span > < span class = "string" > "test semantic version numbers (X is ignored)"< / span > < span class = "plain" > );< / span >
2019-02-04 22:26:45 +00:00
2020-04-06 11:26:10 +00:00
< span class = "functiontext" > CommandLine::read< / span > < span class = "plain" > (< / span > < span class = "identifier" > argc< / span > < span class = "plain" > , < / span > < span class = "identifier" > argv< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , & < / span > < span class = "functiontext" > Main::respond< / span > < span class = "plain" > , & < / span > < span class = "functiontext" > Main::ignore< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Foundation::end< / span > < span class = "plain" > ();< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-06 11:26:10 +00:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Main::respond< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > id< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > val< / 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" > void< / span > < span class = "plain" > *< / span > < span class = "identifier" > state< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > switch< / span > < span class = "plain" > (< / span > < span class = "identifier" > id< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > TEST_STRINGS_CLSW:< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_strings< / span > < span class = "plain" > (); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > TEST_RE_CLSW:< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_regexp< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > TEST_REPLACEMENT_CLSW:< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_replacement< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > TEST_DICT_CLSW:< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_dictionaries< / span > < span class = "plain" > (< / span > < span class = "identifier" > arg< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > TEST_LITERALS_CLSW:< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_literals< / span > < span class = "plain" > (); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > TEST_LISTS_CLSW:< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_linked_lists< / span > < span class = "plain" > (); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > TEST_STACKS_CLSW:< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_stacks< / span > < span class = "plain" > (); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > TEST_SEMVER_CLSW:< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_semver< / span > < span class = "plain" > (); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2020-04-06 11:26:10 +00:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Main::ignore< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > id< / 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" > void< / span > < span class = "plain" > *< / span > < span class = "identifier" > state< / span > < span class = "plain" > ) {< / span >
< span class = "functiontext" > Errors::fatal< / span > < span class = "plain" > (< / span > < span class = "string" > "only switches may be used at the command line"< / span > < span class = "plain" > );< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
2020-04-01 19:43:48 +00:00
< p class = "endnote" > The function main is used in 8/wm (< a href = "8-wm.html#SP3" > § 3< / a > ).< / p >
2019-02-04 22:26:45 +00:00
< p class = "endnote" > The function Main::respond appears nowhere else.< / p >
< p class = "endnote" > The function Main::ignore appears nowhere else.< / p >
2019-03-12 23:32:12 +00:00
< hr class = "tocbar" >
< ul class = "toc" > < li > < i > (This section begins Sections.)< / i > < / li > < li > < a href = "S-ut.html" > Continue with 'Unit Tests'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-18 11:16:10 +00:00
<!-- End of weave -->
2020-03-19 00:03:04 +00:00
< / main >
2019-02-04 22:26:45 +00:00
< / body >
< / html >
