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" > syntax-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, syntax features.< / p >
< ul class = "toc" > < li > < a href = "#SP1" > § 1. < / a > < / li > < li > < a href = "#SP2" > § 2. Syntax tree< / a > < / li > < / ul > < hr class = "tocbar" >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. < / b > < / p >
< pre class = "display" >
< span class = "plain" > < < / span > < span class = "identifier" > dividing< / span > < span class = "plain" > -< / span > < span class = "identifier" > sentence< / span > < span class = "plain" > > ::=< / span >
< span class = "identifier" > chapter< / span > < span class = "plain" > ... | ==> 1< / span >
< span class = "identifier" > section< / span > < span class = "plain" > ... ==> 2< / span >
< span class = "plain" > < < / span > < span class = "identifier" > structural< / span > < span class = "plain" > -< / span > < span class = "identifier" > sentence< / span > < span class = "plain" > > ::=< / span >
< span class = "plain" > ... ==> < / span > < span class = "constant" > TRUE< / span > < span class = "plain" > ; < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > FAIL_NONTERMINAL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > < < / span > < span class = "identifier" > language< / span > < span class = "plain" > -< / span > < span class = "identifier" > modifying< / span > < span class = "plain" > -< / span > < span class = "identifier" > sentence< / span > < span class = "plain" > > ::=< / span >
< span class = "plain" > ... ==> < / span > < span class = "constant" > TRUE< / span > < span class = "plain" > ; < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > FAIL_NONTERMINAL< / span > < span class = "plain" > ;< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. Syntax tree. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Unit::test_tree< / 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 = "constant" > feed_t< / span > < span class = "plain" > < / span > < span class = "identifier" > FD< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Feeds::begin< / 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" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Feeds::end< / span > < span class = "plain" > (< / span > < span class = "identifier" > FD< / 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" > return< / span > < span class = "plain" > ; }< / span >
< span class = "functiontext" > ParseTree::plant_parse_tree< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > PRINT< / span > < span class = "plain" > (< / span > < span class = "string" > "Read %d words\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Wordings::length< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > ));< / span >
< span class = "functiontext" > Sentences::break< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "reserved" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > save_DL< / span > < span class = "plain" > = < / span > < span class = "identifier" > DL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > DL< / span > < span class = "plain" > = < / span > < span class = "constant" > STDOUT< / span > < span class = "plain" > ;< / span >
< span class = "functiontext" > Streams::enable_debugging< / span > < span class = "plain" > (< / span > < span class = "identifier" > DL< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > ParseTree::log_tree< / span > < span class = "plain" > (< / span > < span class = "identifier" > DL< / span > < span class = "plain" > , < / span > < span class = "identifier" > tree_root< / span > < span class = "plain" > );< / span >
< span class = "identifier" > DL< / span > < span class = "plain" > = < / span > < span class = "identifier" > save_DL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Unit::test_tree 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 >