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 >
2019-04-17 20:19:03 +03:00
< title > 27/tr< / title >
2019-03-17 14:40:57 +02:00
< 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 '27/cm' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../webs.html" > ★ < / a > < / li > < li > < a href = "index.html" > core< / a > < / li > < li > < a href = "index.html#27" > Chapter 27: Bridge to Inter Module< / a > < / li > < li > < b > Compilation Modules< / b > < / li > < / ul > < p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > typedef< / span > < span class = "plain" > < / span > < span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > compilation_module< / span > < span class = "plain" > {< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > package_request< / span > < span class = "plain" > *< / span > < span class = "identifier" > resources< / span > < span class = "plain" > ;< / span >
2019-04-20 12:51:59 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > module_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > inter_presence< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > hanging_from< / span > < span class = "plain" > ;< / span >
2019-04-18 03:53:27 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > abbreviation< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > MEMORY_MANAGEMENT< / span >
< span class = "plain" > } < / span > < span class = "reserved" > compilation_module< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "identifier" > pool_module< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "identifier" > SR_module< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
2019-04-20 12:51:59 +03:00
< p class = "endnote" > The structure compilation_module is private to this section.< / p >
2019-03-17 14:40:57 +02:00
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Modules::traverse_to_define< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > pool_module< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Modules::new< / span > < span class = "plain" > (< / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "identifier" > ParseTree::traverse< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Modules::look_for_cu< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Modules::look_for_cu< / span > < span class = "plain" > (< / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > p< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > ParseTree::get_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > p< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > HEADING_NT< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > heading< / span > < span class = "plain" > *< / span > < span class = "identifier" > h< / span > < span class = "plain" > = < / span > < span class = "identifier" > ParseTree::get_embodying_heading< / span > < span class = "plain" > (< / span > < span class = "identifier" > p< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > h< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > h< / span > < span class = "plain" > -< / span > < span class = "element" > > level< / span > < span class = "plain" > == 0)) {< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "identifier" > cm< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Modules::new< / span > < span class = "plain" > (< / span > < span class = "identifier" > p< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > SR_module< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > SR_module< / span > < span class = "plain" > = < / span > < span class = "identifier" > cm< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Modules::new< / span > < span class = "plain" > (< / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) {< / span >
2019-03-25 11:21:34 +02:00
< span class = "reserved" > extension_file< / span > < span class = "plain" > *< / span > < span class = "identifier" > owner< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Wordings::nonempty< / span > < span class = "plain" > (< / span > < span class = "identifier" > ParseTree::get_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > )))) {< / span >
< span class = "identifier" > source_location< / span > < span class = "plain" > < / span > < span class = "identifier" > sl< / span > < span class = "plain" > = < / span > < span class = "identifier" > Wordings::location< / span > < span class = "plain" > (< / span > < span class = "identifier" > ParseTree::get_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > ));< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > sl< / span > < span class = "plain" > .< / span > < span class = "identifier" > file_of_origin< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > owner< / span > < span class = "plain" > = < / span > < span class = "identifier" > standard_rules_extension< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > owner< / span > < span class = "plain" > = < / span > < span class = "functiontext" > SourceFiles::get_extension_corresponding< / span > < span class = "plain" > (< / span >
< span class = "identifier" > Lexer::file_of_origin< / span > < span class = "plain" > (< / span > < span class = "identifier" > Wordings::first_wn< / span > < span class = "plain" > (< / span > < span class = "identifier" > ParseTree::get_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > ))));< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > owner< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > pool_module< / span > < span class = "plain" > != < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > pool_module< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "identifier" > C< / span > < span class = "plain" > = < / span > < span class = "identifier" > CREATE< / span > < span class = "plain" > (< / span > < span class = "reserved" > compilation_module< / span > < span class = "plain" > );< / span >
< span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > hanging_from< / span > < span class = "plain" > = < / span > < span class = "identifier" > from< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > resources< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-04-18 03:53:27 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > -> < / span > < span class = "identifier" > allocation_id< / span > < span class = "plain" > == 0) < / span > < span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > abbreviation< / span > < span class = "plain" > = < / span > < span class = "identifier" > I< / span > < span class = "string" > "root"< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
2019-04-18 03:53:27 +03:00
< span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > abbreviation< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::new< / span > < span class = "plain" > ();< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "unlocated CM"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Modules::markable< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "inappropriate CM"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > char< / span > < span class = "plain" > *< / span > < span class = "identifier" > x< / span > < span class = "plain" > = < / span > < span class = "string" > ""< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > C< / span > < span class = "plain" > -> < / span > < span class = "identifier" > allocation_id< / span > < span class = "plain" > == 1) & & (< / span > < span class = "identifier" > export_mode< / span > < span class = "plain" > )) < / span > < span class = "identifier" > x< / span > < span class = "plain" > = < / span > < span class = "string" > "x"< / span > < span class = "plain" > ;< / span >
2019-04-18 03:53:27 +03:00
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > abbreviation< / span > < span class = "plain" > , < / span > < span class = "string" > "m%s%d"< / span > < span class = "plain" > , < / span > < span class = "identifier" > x< / span > < span class = "plain" > , < / span > < span class = "identifier" > C< / span > < span class = "plain" > -> < / span > < span class = "identifier" > allocation_id< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > ParseTree::set_module< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > , < / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Modules::propagate_downwards< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > -< / span > < span class = "element" > > down< / span > < span class = "plain" > , < / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > PN< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > owner< / span > < span class = "plain" > == < / span > < span class = "identifier" > standard_rules_extension< / span > < span class = "plain" > ) < / span > < span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > PN< / span > < span class = "plain" > , < / span > < span class = "string" > "standard_rules"< / span > < span class = "plain" > );< / span >
2019-03-25 11:21:34 +02:00
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > owner< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > PN< / span > < span class = "plain" > , < / span > < span class = "string" > "source_text"< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > PN< / span > < span class = "plain" > , < / span > < span class = "string" > "%X"< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Extensions::Files::get_eid< / span > < span class = "plain" > (< / span > < span class = "identifier" > owner< / span > < span class = "plain" > ));< / span >
< span class = "identifier" > LOOP_THROUGH_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "identifier" > PN< / span > < span class = "plain" > )< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > ) == < / span > < span class = "character" > ' '< / span > < span class = "plain" > )< / span >
< span class = "identifier" > Str::put< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "character" > '_'< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span >
< span class = "identifier" > Str::put< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "identifier" > Characters::tolower< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > )));< / span >
< span class = "plain" > }< / span >
2019-04-20 12:51:59 +03:00
< span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > inter_presence< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Packaging::get_module< / span > < span class = "plain" > (< / span > < span class = "identifier" > PN< / span > < span class = "plain" > );< / span >
< span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > resources< / span > < span class = "plain" > = < / span > < span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > inter_presence< / span > < span class = "plain" > -< / span > < span class = "element" > > the_package< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > PN< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > C< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-04-20 12:51:59 +03:00
< span class = "reserved" > module_package< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Modules::inter_presence< / span > < span class = "plain" > (< / span > < span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "identifier" > C< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "no module"< / span > < span class = "plain" > );< / span >
2019-04-20 12:51:59 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > C< / span > < span class = "plain" > -< / span > < span class = "element" > > inter_presence< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Modules::propagate_downwards< / span > < span class = "plain" > (< / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "identifier" > C< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > while< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Modules::markable< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > )) < / span > < span class = "identifier" > ParseTree::set_module< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Modules::propagate_downwards< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > down< / span > < span class = "plain" > , < / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
< span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > next< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Modules::find< / span > < span class = "plain" > (< / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Modules::markable< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > ParseTree::get_module< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > pool_module< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Modules::markable< / span > < span class = "plain" > (< / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > ParseTree::get_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > ROOT_NT< / span > < span class = "plain" > ) ||< / span >
< span class = "plain" > (< / span > < span class = "identifier" > ParseTree::get_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > HEADING_NT< / span > < span class = "plain" > ) ||< / span >
< span class = "plain" > (< / span > < span class = "identifier" > ParseTree::get_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > SENTENCE_NT< / span > < span class = "plain" > ) ||< / span >
< span class = "plain" > (< / span > < span class = "identifier" > ParseTree::get_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > ) == < / span > < span class = "constant" > ROUTINE_NT< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "identifier" > current_CM< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Modules::current_or_null< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > current_CM< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > current_CM< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Modules::current< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > current_CM< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > current_CM< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > pool_module< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Modules::set_current_to_SR< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > SR_module< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "too soon"< / span > < span class = "plain" > );< / span >
< span class = "identifier" > current_CM< / span > < span class = "plain" > = < / span > < span class = "identifier" > SR_module< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Modules::SR< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > SR_module< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Modules::set_current_to< / span > < span class = "plain" > (< / span > < span class = "reserved" > compilation_module< / span > < span class = "plain" > *< / span > < span class = "identifier" > CM< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > current_CM< / span > < span class = "plain" > = < / span > < span class = "identifier" > CM< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Modules::set_current< / span > < span class = "plain" > (< / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > ) < / span > < span class = "identifier" > current_CM< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Modules::find< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > current_CM< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Modules::traverse_to_define is used in 1/mr (< a href = "1-mr.html#SP4_9" > § 4.9< / a > ).< / p >
< p class = "endnote" > The function Modules::look_for_cu appears nowhere else.< / p >
< p class = "endnote" > The function Modules::new appears nowhere else.< / p >
2019-04-20 12:51:59 +03:00
< p class = "endnote" > The function Modules::inter_presence is used in 27/pc (< a href = "27-pc.html#SP13" > § 13< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< p class = "endnote" > The function Modules::propagate_downwards appears nowhere else.< / p >
2019-04-20 12:51:59 +03:00
< p class = "endnote" > The function Modules::find is used in 5/nv (< a href = "5-nv.html#SP16" > § 16< / a > ), 6/bp (< a href = "6-bp.html#SP31" > § 31< / a > ), 15/pr (< a href = "15-pr.html#SP5_3" > § 5.3< / a > ), 15/vp (< a href = "15-vp.html#SP3" > § 3< / a > ), 21/rl (< a href = "21-rl.html#SP26" > § 26< / a > ), 22/ph (< a href = "22-ph.html#SP6_8" > § 6.8< / a > ), 22/tp (< a href = "22-tp.html#SP7" > § 7< / a > ), 27/hr (< a href = "27-hr.html#SP5" > § 5< / a > ), 27/pc (< a href = "27-pc.html#SP13" > § 13< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< p class = "endnote" > The function Modules::markable appears nowhere else.< / p >
< p class = "endnote" > The function Modules::current_or_null appears nowhere else.< / p >
2019-04-09 18:09:53 +03:00
< p class = "endnote" > The function Modules::current is used in 9/tfa (< a href = "9-tfa.html#SP7_2" > § 7.2< / a > ), 15/ep (< a href = "15-ep.html#SP4" > § 4< / a > ), 15/ma (< a href = "15-ma.html#SP11_3" > § 11.3< / a > ), 17/ts (< a href = "17-ts.html#SP5" > § 5< / a > , < a href = "17-ts.html#SP11_1" > § 11.1< / a > ), 22/tp (< a href = "22-tp.html#SP7" > § 7< / a > ), 23/ad (< a href = "23-ad.html#SP5" > § 5< / a > ), 26/jl (< a href = "26-jl.html#SP4" > § 4< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< p class = "endnote" > The function Modules::set_current_to_SR is used in 15/ep (< a href = "15-ep.html#SP4" > § 4< / a > ).< / p >
< p class = "endnote" > The function Modules::SR is used in 21/rl (< a href = "21-rl.html#SP26" > § 26< / a > ).< / p >
< p class = "endnote" > The function Modules::set_current_to is used in 9/tfa (< a href = "9-tfa.html#SP7_2" > § 7.2< / a > ), 15/ep (< a href = "15-ep.html#SP4" > § 4< / a > ), 17/ts (< a href = "17-ts.html#SP11_1" > § 11.1< / a > ), 23/ad (< a href = "23-ad.html#SP5" > § 5< / a > ).< / p >
< p class = "endnote" > The function Modules::set_current is used in 9/tfa (< a href = "9-tfa.html#SP7_2" > § 7.2< / a > ), 23/ad (< a href = "23-ad.html#SP5" > § 5< / a > ), 25/cp (< a href = "25-cp.html#SP3" > § 3< / a > ).< / p >
< hr class = "tocbar" >
2019-04-17 20:19:03 +03:00
< ul class = "toc" > < li > < a href = "27-tr.html" > Back to 'Translation'< / a > < / li > < li > < a href = "27-pc.html" > Continue with 'Packaging'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-18 02:41:42 +02:00
<!-- End of weave -->
2019-03-17 14:40:57 +02:00
< / body >
< / html >