2019-04-12 16:47:00 +03:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
2019-08-28 12:35:44 +03:00
< title > 1/tv< / title >
2019-04-12 16:47:00 +03: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 >
2019-08-28 12:35:44 +03:00
<!-- Weave of '1/hl' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../webs.html" > ★ < / a > < / li > < li > < a href = "index.html" > building< / a > < / li > < li > < a href = "index.html#1" > Chapter 1: Architecture< / a > < / li > < li > < b > Hierarchy Locations< / b > < / li > < / ul > < p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Requirements. < / b > Inform's code for compiling resources to different positions in the Inter hierarchy
2019-04-22 17:06:29 +03:00
is quite defensively written, in order to keep everything to a fairly tightly
specified schema.
< / p >
< p class = "inwebparagraph" > The following is really a union: a requirement should have exactly one of the
following fields set.
< / p >
2019-04-12 16:47:00 +03:00
< pre class = "display" >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > typedef< / span > < span class = "plain" > < / span > < span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > submodule_identity< / span > < span class = "plain" > *< / span > < span class = "identifier" > any_submodule_package_of_this_identity< / 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" > this_exact_package< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > this_exact_package_not_yet_created< / span > < span class = "plain" > ;< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > any_package_of_this_type< / span > < span class = "plain" > ;< / span >
2019-04-16 14:46:46 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > any_enclosure< / span > < span class = "plain" > ;< / span >
2019-08-22 19:03:38 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > must_be_plug< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .any_submodule_package_of_this_identity< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > req< / span > < span class = "element" > .this_exact_package< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > req< / span > < span class = "element" > .this_exact_package_not_yet_created< / span > < span class = "plain" > = -1;< / span >
2019-04-14 13:46:13 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .any_package_of_this_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-04-16 14:46:46 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .any_enclosure< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2019-08-22 19:03:38 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .must_be_plug< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-04-22 17:06:29 +03:00
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function HierarchyLocations::blank is used in < a href = "#SP2" > § 2< / a > , < a href = "#SP3" > § 3< / a > .< / p >
< p class = "endnote" > The structure location_requirement is private to this section.< / p >
2019-04-14 13:46:13 +03:00
2019-04-22 17:06:29 +03:00
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > Here are the functions to create requirements:
< / p >
< pre class = "display" >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::local_submodule< / span > < span class = "plain" > (< / span > < span class = "reserved" > submodule_identity< / span > < span class = "plain" > *< / span > < span class = "identifier" > sid< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .any_submodule_package_of_this_identity< / span > < span class = "plain" > = < / span > < span class = "identifier" > sid< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::generic_submodule< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > submodule_identity< / span > < span class = "plain" > *< / span > < span class = "identifier" > sid< / span > < span class = "plain" > ) {< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .this_exact_package< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Packaging::generic_submodule< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > sid< / span > < span class = "plain" > );< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::synoptic_submodule< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > submodule_identity< / span > < span class = "plain" > *< / span > < span class = "identifier" > sid< / span > < span class = "plain" > ) {< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .this_exact_package< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Packaging::synoptic_submodule< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > sid< / span > < span class = "plain" > );< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::any_package_of_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > ptype_name< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .any_package_of_this_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype_name< / span > < span class = "plain" > );< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-04-16 14:46:46 +03:00
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::any_enclosure< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > req< / span > < span class = "element" > .any_enclosure< / 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" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::this_package< / span > < span class = "plain" > (< / span > < span class = "reserved" > package_request< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .this_exact_package< / span > < span class = "plain" > = < / span > < span class = "identifier" > P< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::this_exotic_package< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > N< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > req< / span > < span class = "element" > .this_exact_package_not_yet_created< / span > < span class = "plain" > = < / span > < span class = "identifier" > N< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-08-22 19:03:38 +03:00
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::plug< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > req< / span > < span class = "element" > .must_be_plug< / 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" > req< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-04-22 17:06:29 +03:00
< / pre >
< p class = "inwebparagraph" > < / p >
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::local_submodule appears nowhere else.< / p >
2019-04-22 17:06:29 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::generic_submodule appears nowhere else.< / p >
2019-04-22 17:06:29 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::synoptic_submodule appears nowhere else.< / p >
2019-04-22 17:06:29 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::any_package_of_type appears nowhere else.< / p >
2019-04-22 17:06:29 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::any_enclosure appears nowhere else.< / p >
2019-04-22 17:06:29 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::this_package is used in < a href = "#SP3" > § 3< / a > .< / p >
2019-04-22 17:06:29 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::this_exotic_package appears nowhere else.< / p >
2019-04-22 17:06:29 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::plug is used in 3/pi (< a href = "3-pi.html#SP3" > § 3< / a > ).< / p >
2019-08-22 19:03:38 +03:00
2019-04-22 17:06:29 +03:00
< p class = "inwebparagraph" > < a id = "SP3" > < / a > < b > § 3. Hierarchy locations. < / b > < / p >
2019-04-14 13:46:13 +03:00
2019-04-22 17:06:29 +03:00
< pre class = "display" >
< span class = "reserved" > typedef< / span > < span class = "plain" > < / span > < span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > hierarchy_location< / span > < span class = "plain" > {< / span >
2019-04-12 16:47:00 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > access_number< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > access_name< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > function_package_name< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > datum_package_name< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > requirements< / span > < span class = "plain" > ;< / span >
2019-04-12 16:47:00 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > equates_to_iname< / span > < span class = "plain" > ;< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > package_type< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > name_translation< / span > < span class = "plain" > < / span > < span class = "identifier" > trans< / span > < span class = "plain" > ;< / span >
2019-04-12 16:47:00 +03:00
< span class = "identifier" > MEMORY_MANAGEMENT< / span >
2019-04-22 17:06:29 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > hierarchy_location< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::new< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > = < / span > < span class = "identifier" > CREATE< / span > < span class = "plain" > (< / span > < span class = "reserved" > hierarchy_location< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_number< / span > < span class = "plain" > = -1;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > function_package_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > datum_package_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > package_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Translation::same< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::blank< / span > < span class = "plain" > ();< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hl< / span > < span class = "plain" > ;< / span >
2019-04-12 18:30:28 +03:00
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::con< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / 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 = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > , < / span > < span class = "reserved" > name_translation< / span > < span class = "plain" > < / span > < span class = "identifier" > nt< / span > < span class = "plain" > , < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ) {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::new< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_number< / span > < span class = "plain" > = < / span > < span class = "identifier" > id< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements< / span > < span class = "plain" > = < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans< / span > < span class = "plain" > = < / span > < span class = "identifier" > nt< / span > < span class = "plain" > ;< / span >
2019-08-31 15:56:36 +03:00
< span class = "functiontext" > HierarchyLocations::index< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hl< / span > < span class = "plain" > ;< / span >
2019-04-12 16:47:00 +03:00
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::package< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / 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 = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > ptype_name< / span > < span class = "plain" > , < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ) {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::new< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_number< / span > < span class = "plain" > = < / span > < span class = "identifier" > id< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements< / span > < span class = "plain" > = < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > package_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype_name< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "functiontext" > HierarchyLocations::index< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hl< / span > < span class = "plain" > ;< / span >
2019-04-15 00:27:33 +03:00
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::make_as< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / 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 = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > iname< / span > < span class = "plain" > ) {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::new< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_number< / span > < span class = "plain" > = < / span > < span class = "identifier" > id< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements< / span > < span class = "plain" > = < / span > < span class = "functiontext" > HierarchyLocations::this_package< / span > < span class = "plain" > (< / span > < span class = "functiontext" > InterNames::location< / span > < span class = "plain" > (< / span > < span class = "identifier" > iname< / span > < span class = "plain" > ));< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > = < / span > < span class = "identifier" > iname< / span > < span class = "plain" > ;< / span >
2019-08-31 15:56:36 +03:00
< span class = "functiontext" > HierarchyLocations::index< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hl< / span > < span class = "plain" > ;< / span >
2019-04-12 16:47:00 +03:00
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::func< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / 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 = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > , < / span > < span class = "reserved" > name_translation< / span > < span class = "plain" > < / span > < span class = "identifier" > nt< / span > < span class = "plain" > , < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ) {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > = < / span > < span class = "identifier" > CREATE< / span > < span class = "plain" > (< / span > < span class = "reserved" > hierarchy_location< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_number< / span > < span class = "plain" > = < / span > < span class = "identifier" > id< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > nt< / span > < span class = "element" > .translate_to< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > function_package_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements< / span > < span class = "plain" > = < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans< / span > < span class = "plain" > = < / span > < span class = "identifier" > nt< / span > < span class = "plain" > ;< / span >
2019-08-31 15:56:36 +03:00
< span class = "functiontext" > HierarchyLocations::index< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hl< / span > < span class = "plain" > ;< / span >
2019-04-12 16:47:00 +03:00
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::datum< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / 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 = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > , < / span > < span class = "reserved" > name_translation< / span > < span class = "plain" > < / span > < span class = "identifier" > nt< / span > < span class = "plain" > , < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > ) {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > = < / span > < span class = "identifier" > CREATE< / span > < span class = "plain" > (< / span > < span class = "reserved" > hierarchy_location< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_number< / span > < span class = "plain" > = < / span > < span class = "identifier" > id< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > nt< / span > < span class = "element" > .translate_to< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > datum_package_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements< / span > < span class = "plain" > = < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans< / span > < span class = "plain" > = < / span > < span class = "identifier" > nt< / span > < span class = "plain" > ;< / span >
2019-08-31 15:56:36 +03:00
< span class = "functiontext" > HierarchyLocations::index< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hl< / span > < span class = "plain" > ;< / span >
2019-04-13 20:58:43 +03:00
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::index< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_number< / span > < span class = "plain" > > = 0) < / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_number< / span > < span class = "plain" > ] = < / span > < span class = "identifier" > hl< / span > < span class = "plain" > ;< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Dictionaries::create< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Dictionaries::write_value< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > , (< / span > < span class = "reserved" > void< / span > < span class = "plain" > *) < / span > < span class = "identifier" > hl< / span > < span class = "plain" > );< / span >
2019-04-13 20:58:43 +03:00
< span class = "plain" > }< / span >
2019-04-12 18:30:28 +03:00
< span class = "plain" > }< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::find< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > id< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > id< / span > < span class = "plain" > < 0) || (< / span > < span class = "identifier" > id< / span > < span class = "plain" > > = < / span > < span class = "identifier" > NO_DEFINED_HL_VALUES< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > id< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ))< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "bad hl ID"< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::hl_to_iname< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > id< / span > < span class = "plain" > ]);< / span >
2019-04-12 16:47:00 +03:00
< span class = "plain" > }< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::find_by_name< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > ) {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > name< / span > < span class = "plain" > ) == 0) < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "bad hl name"< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Dictionaries::find< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > name< / span > < span class = "plain" > ))< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::hl_to_iname< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ,< / span >
2019-04-22 17:06:29 +03:00
< span class = "plain" > (< / span > < span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *)< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Dictionaries::read_value< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > name< / span > < span class = "plain" > ));< / span >
2019-04-12 16:47:00 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::function< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > package_request< / span > < span class = "plain" > *< / span > < span class = "identifier" > R< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > trans< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Packaging::function< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "functiontext" > InterNames::explicitly_named< / span > < span class = "plain" > (< / span > < span class = "identifier" > name< / span > < span class = "plain" > , < / span > < span class = "identifier" > R< / span > < span class = "plain" > ), < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
2019-08-24 13:21:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > trans< / span > < span class = "plain" > ) < / span > < span class = "functiontext" > Produce::change_translation< / span > < span class = "plain" > (< / span > < span class = "identifier" > iname< / span > < span class = "plain" > , < / span > < span class = "identifier" > trans< / span > < span class = "plain" > );< / span >
2019-04-12 16:47:00 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > iname< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::hl_to_iname< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > ) {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > ) < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "NRL accessed inappropriately"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) {< / span >
2019-08-22 19:03:38 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.must_be_plug< / span > < span class = "plain" > ) {< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > InterNames::explicitly_named_in_template< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > );< / span >
2019-08-22 19:03:38 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) {< / span >
2019-08-24 13:21:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package_not_yet_created< / span > < span class = "plain" > > = 0) {< / span >
< span class = "plain" > #< / span > < span class = "identifier" > ifdef< / span > < span class = "plain" > < / span > < span class = "identifier" > CORE_MODULE< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > = < / span > < span class = "identifier" > Hierarchy::exotic_package< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package_not_yet_created< / span > < span class = "plain" > );< / span >
< span class = "plain" > #< / span > < span class = "identifier" > endif< / span >
< span class = "plain" > #< / span > < span class = "identifier" > ifndef< / span > < span class = "plain" > < / span > < span class = "identifier" > CORE_MODULE< / span >
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "feature not available in inter"< / span > < span class = "plain" > );< / span >
< span class = "plain" > #< / span > < span class = "identifier" > endif< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "package can't be found"< / span > < span class = "plain" > );< / span >
2019-08-22 19:03:38 +03:00
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > function_package_name< / span > < span class = "plain" > ) > 0) {< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Packaging::function_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ,< / span >
2019-08-22 19:03:38 +03:00
< span class = "functiontext" > InterNames::explicitly_named< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > function_package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > ),< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > datum_package_name< / span > < span class = "plain" > ) > 0) {< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Packaging::datum_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ,< / span >
2019-08-22 19:03:38 +03:00
< span class = "functiontext" > InterNames::explicitly_named< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > datum_package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > ),< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > )) {< / span >
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > InterNames::explicitly_named< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
2019-04-12 16:47:00 +03:00
< span class = "plain" > }< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > = < / span > < span class = "functiontext" > InterNames::location< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > );< / span >
2019-04-28 05:27:32 +03:00
2019-08-24 13:21:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.translate_to< / span > < span class = "plain" > ) < / span > < span class = "functiontext" > Produce::change_translation< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.translate_to< / span > < span class = "plain" > );< / span >
2019-04-12 16:47:00 +03:00
< span class = "plain" > }< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > equates_to_iname< / span > < span class = "plain" > ;< / span >
2019-04-12 16:47:00 +03:00
< span class = "plain" > }< / span >
2019-04-13 20:58:43 +03:00
2019-08-28 12:35:44 +03:00
< span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::find_in_package< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / 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" > package_request< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > derive_from< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > fix< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > imposed_name< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > id< / span > < span class = "plain" > < 0) || (< / span > < span class = "identifier" > id< / span > < span class = "plain" > > = < / span > < span class = "identifier" > NO_DEFINED_HL_VALUES< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > id< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ))< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "bad hl ID"< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > = < / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > id< / span > < span class = "plain" > ];< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) & & < / span >
< span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_enclosure< / 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" > "NRL accessed inappropriately"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_enclosure< / span > < span class = "plain" > ) {< / span >
2019-04-17 01:21:13 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Inter::Symbols::read_annotation< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > eventual_type< / span > < span class = "plain" > , < / span > < span class = "identifier" > ENCLOSING_IANN< / span > < span class = "plain" > ) != 1)< / span >
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "subpackage not in enclosing superpackage"< / span > < span class = "plain" > );< / span >
2019-08-28 12:35:44 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / 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" > NULL< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > eventual_type< / span > < span class = "plain" > != < / span > < span class = "functiontext" > PackageTypes::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > ))) {< / span >
2019-08-22 19:03:38 +03:00
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "AN: %S, FPN: %S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > function_package_name< / span > < span class = "plain" > );< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Have type: $3, required: %S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > eventual_type< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > );< / span >
2019-08-22 19:03:38 +03:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "constant in wrong superpackage"< / span > < span class = "plain" > );< / span >
2019-04-15 00:27:33 +03:00
< span class = "plain" > }< / span >
2019-04-16 10:15:15 +03:00
2019-04-14 13:46:13 +03:00
< span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > iname< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.translate_to< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > T< / span > < span class = "plain" > = < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.translate_to< / span > < span class = "plain" > ;< / span >
< < span class = "cwebmacro" > Make the actual iname< / span > < span class = "cwebmacronumber" > 3.1< / span > > < span class = "plain" > ;< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.by_imposition< / span > < span class = "plain" > ) {< / span >
2019-04-17 20:19:03 +03:00
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > T< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-04-22 17:06:29 +03:00
< < span class = "cwebmacro" > Make the actual iname< / span > < span class = "cwebmacronumber" > 3.1< / span > > < span class = "plain" > ;< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.name_generator< / span > < span class = "plain" > ) {< / span >
2019-04-16 10:15:15 +03:00
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
2019-04-15 11:58:27 +03:00
< span class = "reserved" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > temp_iname< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-04-17 01:21:13 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > derive_from< / span > < span class = "plain" > ) {< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > temp_iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > InterNames::derived< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.name_generator< / span > < span class = "plain" > , < / span > < span class = "identifier" > derive_from< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
2019-04-17 01:21:13 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > temp_iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > InterNames::generated< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.name_generator< / span > < span class = "plain" > , < / span > < span class = "identifier" > fix< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
2019-04-17 01:21:13 +03:00
< span class = "plain" > }< / span >
2019-04-18 03:53:27 +03:00
< span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "identifier" > EMPTY_WORDING< / span > < span class = "plain" > ;< / span >
2019-04-15 11:58:27 +03:00
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "string" > "%n"< / span > < span class = "plain" > , < / span > < span class = "identifier" > temp_iname< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< < span class = "cwebmacro" > Make the actual iname< / span > < span class = "cwebmacronumber" > 3.1< / span > > < span class = "plain" > ;< / span >
2019-04-15 11:58:27 +03:00
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
2019-04-16 10:15:15 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > T< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-04-22 17:06:29 +03:00
< < span class = "cwebmacro" > Make the actual iname< / span > < span class = "cwebmacronumber" > 3.1< / span > > < span class = "plain" > ;< / span >
2019-04-15 11:58:27 +03:00
< span class = "plain" > }< / span >
2019-04-14 13:46:13 +03:00
2019-08-24 13:21:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.then_make_unique< / span > < span class = "plain" > ) < / span > < span class = "functiontext" > Produce::set_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > iname< / span > < span class = "plain" > , < / span > < span class = "identifier" > MAKE_NAME_UNIQUE< / span > < span class = "plain" > );< / span >
2019-04-16 10:15:15 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > iname< / span > < span class = "plain" > ;< / span >
2019-04-13 20:58:43 +03:00
< span class = "plain" > }< / span >
2019-04-12 16:47:00 +03:00
< / pre >
< p class = "inwebparagraph" > < / p >
2019-04-14 13:46:13 +03:00
< p class = "endnote" > The function HierarchyLocations::new appears nowhere else.< / p >
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::con is used in 3/pi (< a href = "3-pi.html#SP3" > § 3< / a > ).< / p >
2019-04-14 13:46:13 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::package appears nowhere else.< / p >
2019-04-15 00:27:33 +03:00
2019-08-09 15:24:05 +03:00
< p class = "endnote" > The function HierarchyLocations::make_as appears nowhere else.< / p >
2019-04-12 16:47:00 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::func appears nowhere else.< / p >
2019-04-12 18:30:28 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::datum appears nowhere else.< / p >
2019-04-13 20:58:43 +03:00
2019-04-12 18:30:28 +03:00
< p class = "endnote" > The function HierarchyLocations::index appears nowhere else.< / p >
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::find appears nowhere else.< / p >
2019-04-12 16:47:00 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::find_by_name is used in 3/pi (< a href = "3-pi.html#SP3" > § 3< / a > ).< / p >
2019-04-12 16:47:00 +03:00
< p class = "endnote" > The function HierarchyLocations::function appears nowhere else.< / p >
2019-04-22 17:06:29 +03:00
< p class = "endnote" > The function HierarchyLocations::hl_to_iname appears nowhere else.< / p >
2019-04-12 16:47:00 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::find_in_package appears nowhere else.< / p >
2019-04-14 13:46:13 +03:00
2019-04-22 17:06:29 +03:00
< p class = "endnote" > The structure hierarchy_location is private to this section.< / p >
2019-04-12 16:47:00 +03:00
2019-04-22 17:06:29 +03:00
< p class = "inwebparagraph" > < a id = "SP3_1" > < / a > < b > § 3.1. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Make the actual iname< / span > < span class = "cwebmacronumber" > 3.1< / span > > =
2019-04-16 10:15:15 +03:00
< / code > < / p >
< pre class = "displaydefn" >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > function_package_name< / span > < span class = "plain" > ) > 0) {< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Packaging::function< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ,< / span >
2019-04-22 17:06:29 +03:00
< span class = "functiontext" > InterNames::explicitly_named< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > function_package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > ), < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
2019-04-16 10:15:15 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > trans.by_imposition< / span > < span class = "plain" > ) < / span > < span class = "identifier" > iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > InterNames::explicitly_named_with_memo< / span > < span class = "plain" > (< / span > < span class = "identifier" > imposed_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > ) == 0) < / span > < span class = "identifier" > iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > InterNames::explicitly_named_with_memo< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > iname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > InterNames::explicitly_named_with_memo< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > W< / span > < span class = "plain" > );< / span >
2019-04-16 10:15:15 +03:00
< span class = "plain" > }< / span >
2019-08-24 13:21:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > ) > 0) & & (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Produce::change_translation< / span > < span class = "plain" > (< / span > < span class = "identifier" > iname< / span > < span class = "plain" > , < / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
2019-04-16 10:15:15 +03:00
< / pre >
< p class = "inwebparagraph" > < / p >
2019-04-22 17:06:29 +03:00
< p class = "endnote" > This code is used in < a href = "#SP3" > § 3< / a > (four times).< / p >
2019-04-16 10:15:15 +03:00
2019-04-22 17:06:29 +03:00
< p class = "inwebparagraph" > < a id = "SP4" > < / a > < b > § 4. < / b > < / p >
2019-04-13 20:58:43 +03:00
2019-04-16 10:15:15 +03:00
< pre class = "display" >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > package_request< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::package_in_package< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / 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" > package_request< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > id< / span > < span class = "plain" > < 0) || (< / span > < span class = "identifier" > id< / span > < span class = "plain" > > = < / span > < span class = "identifier" > NO_DEFINED_HL_VALUES< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > id< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ))< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "bad hl ID"< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > hl< / span > < span class = "plain" > = < / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hls_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > id< / span > < span class = "plain" > ];< / span >
2019-04-16 14:46:46 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / 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 superpackage"< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > package_type< / 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" > "package_in_package used wrongly"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > ) {< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > eventual_type< / span > < span class = "plain" > != < / span > < span class = "functiontext" > PackageTypes::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > ))< / span >
2019-04-16 14:46:46 +03:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "subpackage in wrong superpackage"< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_enclosure< / span > < span class = "plain" > ) {< / span >
2019-04-16 14:46:46 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Inter::Symbols::read_annotation< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > eventual_type< / span > < span class = "plain" > , < / span > < span class = "identifier" > ENCLOSING_IANN< / span > < span class = "plain" > ) != 1)< / span >
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "subpackage not in enclosing superpackage"< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "NRL accessed inappropriately"< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Packaging::request< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "functiontext" > InterNames::explicitly_named< / span > < span class = "plain" > (< / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > access_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > ), < / span > < span class = "functiontext" > PackageTypes::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hl< / span > < span class = "plain" > -< / span > < span class = "element" > > package_type< / span > < span class = "plain" > ));< / span >
2019-04-16 10:15:15 +03:00
< span class = "plain" > }< / span >
2019-04-22 17:06:29 +03:00
< / pre >
< p class = "inwebparagraph" > < / p >
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::package_in_package appears nowhere else.< / p >
2019-04-22 17:06:29 +03:00
< p class = "inwebparagraph" > < a id = "SP5" > < / a > < b > § 5. Hierarchy locations. < / b > < / p >
< pre class = "display" >
2019-04-13 20:58:43 +03:00
< span class = "reserved" > typedef< / span > < span class = "plain" > < / span > < span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > hierarchy_attachment_point< / span > < span class = "plain" > {< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > hap_id< / span > < span class = "plain" > ;< / span >
2019-04-22 17:06:29 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name_stem< / span > < span class = "plain" > ;< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > type< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > requirements< / span > < span class = "plain" > ;< / span >
2019-04-13 20:58:43 +03:00
< span class = "identifier" > MEMORY_MANAGEMENT< / span >
< span class = "plain" > } < / span > < span class = "reserved" > hierarchy_attachment_point< / span > < span class = "plain" > ;< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::index_ap< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > hierarchy_attachment_point< / span > < span class = "plain" > *< / span > < span class = "identifier" > hap< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > hap_id< / span > < span class = "plain" > > = 0) < / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .haps_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > hap_id< / span > < span class = "plain" > ] = < / span > < span class = "identifier" > hap< / span > < span class = "plain" > ;< / span >
2019-04-13 20:58:43 +03:00
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_attachment_point< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::ap< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > hap_id< / span > < span class = "plain" > , < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > iterated_text< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > ptype_name< / span > < span class = "plain" > ) {< / span >
2019-04-14 13:46:13 +03:00
< span class = "reserved" > hierarchy_attachment_point< / span > < span class = "plain" > *< / span > < span class = "identifier" > hap< / span > < span class = "plain" > = < / span > < span class = "identifier" > CREATE< / span > < span class = "plain" > (< / span > < span class = "reserved" > hierarchy_attachment_point< / span > < span class = "plain" > );< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > hap_id< / span > < span class = "plain" > = < / span > < span class = "identifier" > hap_id< / span > < span class = "plain" > ;< / span >
2019-04-14 13:46:13 +03:00
< span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements< / span > < span class = "plain" > = < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > name_stem< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > iterated_text< / span > < span class = "plain" > );< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > type< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype_name< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "functiontext" > HierarchyLocations::index_ap< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hap< / span > < span class = "plain" > );< / span >
2019-04-13 20:58:43 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hap< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > package_request< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::attach_new_package< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / 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" > package_request< / span > < span class = "plain" > *< / span > < span class = "identifier" > R< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > hap_id< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > hap_id< / span > < span class = "plain" > < 0) || (< / span > < span class = "identifier" > hap_id< / span > < span class = "plain" > > = < / span > < span class = "identifier" > NO_DEFINED_HAP_VALUES< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .haps_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > hap_id< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ))< / span >
2019-04-13 20:58:43 +03:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "invalid HAP request"< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_attachment_point< / span > < span class = "plain" > *< / span > < span class = "identifier" > hap< / span > < span class = "plain" > = < / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .haps_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > hap_id< / span > < span class = "plain" > ];< / span >
2019-04-13 20:58:43 +03:00
2019-08-24 13:21:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_submodule_package_of_this_identity< / span > < span class = "plain" > ) {< / span >
< span class = "plain" > #< / span > < span class = "identifier" > ifdef< / span > < span class = "plain" > < / span > < span class = "identifier" > CORE_MODULE< / span >
2019-08-28 12:35:44 +03:00
< span class = "identifier" > R< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Packaging::request_submodule< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > C< / span > < span class = "plain" > , < / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_submodule_package_of_this_identity< / span > < span class = "plain" > );< / span >
2019-08-24 13:21:48 +03:00
< span class = "plain" > #< / span > < span class = "identifier" > endif< / span >
< span class = "plain" > #< / span > < span class = "identifier" > ifndef< / span > < span class = "plain" > < / span > < span class = "identifier" > CORE_MODULE< / span >
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "feature available only within inform7 compiler"< / span > < span class = "plain" > );< / span >
< span class = "plain" > #< / span > < span class = "identifier" > endif< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > )< / span >
2019-04-22 17:06:29 +03:00
< span class = "identifier" > R< / span > < span class = "plain" > = < / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > ;< / span >
2019-08-24 13:21:48 +03:00
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package_not_yet_created< / span > < span class = "plain" > > = 0) {< / span >
< span class = "plain" > #< / span > < span class = "identifier" > ifdef< / span > < span class = "plain" > < / span > < span class = "identifier" > CORE_MODULE< / span >
< span class = "identifier" > R< / span > < span class = "plain" > = < / span > < span class = "identifier" > Hierarchy::exotic_package< / span > < span class = "plain" > (< / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package_not_yet_created< / span > < span class = "plain" > );< / span >
< span class = "plain" > #< / span > < span class = "identifier" > endif< / span >
< span class = "plain" > #< / span > < span class = "identifier" > ifndef< / span > < span class = "plain" > < / span > < span class = "identifier" > CORE_MODULE< / span >
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "feature available only within inform7 compiler"< / span > < span class = "plain" > );< / span >
< span class = "plain" > #< / span > < span class = "identifier" > endif< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > ) {< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > R< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > R< / span > < span class = "plain" > -< / span > < span class = "element" > > eventual_type< / span > < span class = "plain" > != < / span > < span class = "functiontext" > PackageTypes::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > )))< / span >
2019-08-22 19:03:38 +03:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "subpackage in wrong superpackage"< / span > < span class = "plain" > );< / span >
2019-04-14 13:46:13 +03:00
< span class = "plain" > }< / span >
2019-04-13 20:58:43 +03:00
2019-08-31 15:56:36 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Packaging::request< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Packaging::make_iname_within< / span > < span class = "plain" > (< / span > < span class = "identifier" > R< / span > < span class = "plain" > , < / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > name_stem< / span > < span class = "plain" > ), < / span > < span class = "functiontext" > PackageTypes::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hap< / span > < span class = "plain" > -< / span > < span class = "element" > > type< / span > < span class = "plain" > ));< / span >
2019-04-13 20:58:43 +03:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
2019-04-14 13:46:13 +03:00
< p class = "endnote" > The function HierarchyLocations::index_ap appears nowhere else.< / p >
2019-04-13 20:58:43 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::ap appears nowhere else.< / p >
2019-04-13 20:58:43 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::attach_new_package appears nowhere else.< / p >
2019-04-13 20:58:43 +03:00
2019-08-28 12:35:44 +03:00
< p class = "endnote" > The structure hierarchy_attachment_point is accessed in 1/pck, 1/in and here.< / p >
2019-04-13 20:58:43 +03:00
2019-04-23 11:25:00 +03:00
< p class = "inwebparagraph" > < a id = "SP6" > < / a > < b > § 6. Hierarchy metadata. < / 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" > hierarchy_metadatum< / span > < span class = "plain" > {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > hm_id< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > key< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > requirements< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > MEMORY_MANAGEMENT< / span >
< span class = "plain" > } < / span > < span class = "reserved" > hierarchy_metadatum< / span > < span class = "plain" > ;< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::index_md< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > hierarchy_metadatum< / span > < span class = "plain" > *< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > hm_id< / span > < span class = "plain" > > = 0) < / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hmds_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > hm_id< / span > < span class = "plain" > ] = < / span > < span class = "identifier" > hmd< / span > < span class = "plain" > ;< / span >
2019-04-23 11:25:00 +03:00
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_metadatum< / span > < span class = "plain" > *< / span > < span class = "functiontext" > HierarchyLocations::metadata< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > hm_id< / span > < span class = "plain" > , < / span > < span class = "reserved" > location_requirement< / span > < span class = "plain" > < / span > < span class = "identifier" > req< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > key< / span > < span class = "plain" > ) {< / span >
2019-04-23 11:25:00 +03:00
< span class = "reserved" > hierarchy_metadatum< / span > < span class = "plain" > *< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > = < / span > < span class = "identifier" > CREATE< / span > < span class = "plain" > (< / span > < span class = "reserved" > hierarchy_metadatum< / span > < span class = "plain" > );< / span >
< span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > hm_id< / span > < span class = "plain" > = < / span > < span class = "identifier" > hm_id< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements< / span > < span class = "plain" > = < / span > < span class = "identifier" > req< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > key< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > key< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "functiontext" > HierarchyLocations::index_md< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hmd< / span > < span class = "plain" > );< / span >
2019-04-23 11:25:00 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > hmd< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > HierarchyLocations::markup< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > package_request< / span > < span class = "plain" > *< / span > < span class = "identifier" > R< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > hm_id< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > value< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > hm_id< / span > < span class = "plain" > < 0) || (< / span > < span class = "identifier" > hm_id< / span > < span class = "plain" > > = < / span > < span class = "identifier" > NO_DEFINED_HMD_VALUES< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hmds_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > hm_id< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ))< / span >
2019-04-23 11:25:00 +03:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "invalid HMD request"< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > hierarchy_metadatum< / span > < span class = "plain" > *< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > = < / span > < span class = "identifier" > I< / span > < span class = "plain" > -> < / span > < span class = "identifier" > site< / span > < span class = "element" > .hmds_indexed_by_id< / span > < span class = "plain" > [< / span > < span class = "identifier" > hm_id< / span > < span class = "plain" > ];< / span >
2019-04-23 11:25:00 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > wrong< / 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" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_submodule_package_of_this_identity< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > wrong< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > R< / span > < span class = "plain" > != < / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package< / span > < span class = "plain" > )< / span >
< span class = "identifier" > wrong< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package_not_yet_created< / span > < span class = "plain" > > = 0) {< / span >
2019-08-24 13:21:48 +03:00
< span class = "plain" > #< / span > < span class = "identifier" > ifdef< / span > < span class = "plain" > < / span > < span class = "identifier" > CORE_MODULE< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > R< / span > < span class = "plain" > != < / span > < span class = "identifier" > Hierarchy::exotic_package< / span > < span class = "plain" > (< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.this_exact_package_not_yet_created< / span > < span class = "plain" > ))< / span >
2019-04-23 11:25:00 +03:00
< span class = "identifier" > wrong< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-08-24 13:21:48 +03:00
< span class = "plain" > #< / span > < span class = "identifier" > endif< / span >
< span class = "plain" > #< / span > < span class = "identifier" > ifndef< / span > < span class = "plain" > < / span > < span class = "identifier" > CORE_MODULE< / span >
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "feature available only within inform7 compiler"< / span > < span class = "plain" > );< / span >
< span class = "plain" > #< / span > < span class = "identifier" > endif< / span >
2019-04-23 11:25:00 +03:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > ) {< / span >
2019-08-28 12:35:44 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > R< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > R< / span > < span class = "plain" > -< / span > < span class = "element" > > eventual_type< / span > < span class = "plain" > != < / span > < span class = "functiontext" > PackageTypes::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > requirements.any_package_of_this_type< / span > < span class = "plain" > )))< / span >
2019-04-23 11:25:00 +03:00
< span class = "identifier" > wrong< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > wrong< / span > < span class = "plain" > ) < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "misapplied metadata"< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "functiontext" > Produce::metadata< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > R< / span > < span class = "plain" > , < / span > < span class = "identifier" > hmd< / span > < span class = "plain" > -< / span > < span class = "element" > > key< / span > < span class = "plain" > , < / span > < span class = "identifier" > value< / span > < span class = "plain" > );< / span >
2019-04-23 11:25:00 +03:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function HierarchyLocations::index_md appears nowhere else.< / p >
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::metadata appears nowhere else.< / p >
2019-04-23 11:25:00 +03:00
2019-08-24 13:21:48 +03:00
< p class = "endnote" > The function HierarchyLocations::markup appears nowhere else.< / p >
2019-04-23 11:25:00 +03:00
< p class = "endnote" > The structure hierarchy_metadatum is private to this section.< / p >
2019-04-12 16:47:00 +03:00
< hr class = "tocbar" >
2019-08-28 12:35:44 +03:00
< ul class = "toc" > < li > < a href = "1-tv.html" > Back to 'The Veneer'< / a > < / li > < li > < a href = "1-trn.html" > Continue with 'Translation'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-04-22 17:42:10 +03:00
<!-- End of weave -->
2019-04-12 16:47:00 +03:00
< / body >
< / html >