2019-03-17 14:40:57 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
2019-07-12 13:37:23 +03:00
< title > 4/tmc< / title >
2020-03-19 02:11:25 +02:00
< meta name = "viewport" content = "width=device-width initial-scale=1" >
2019-03-17 14:40:57 +02:00
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
2020-03-19 02:11:25 +02:00
< link href = "../inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2019-03-17 14:40:57 +02:00
< / head >
< body >
2020-03-19 02:11:25 +02:00
< nav role = "navigation" >
< h1 > < a href = "../webs.html" > Sources< / a > < / h1 >
< ul >
2020-03-28 21:42:53 +02:00
< li > < a href = "../compiler.html" > < b > compiler tools< / b > < / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../other.html" > other tools< / a > < / li >
< li > < a href = "../extensions.html" > extensions and kits< / a > < / li >
< li > < a href = "../units.html" > unit test tools< / a > < / li >
< / ul >
< h2 > Compiler Webs< / h2 >
< ul >
< li > < a href = "../inbuild/index.html" > inbuild< / a > < / li >
< li > < a href = "../inform7/index.html" > inform7< / a > < / li >
< li > < a href = "../inter/index.html" > inter< / a > < / li >
< / ul >
< h2 > Inbuild Modules< / h2 >
< ul >
< li > < a href = "../inbuild-module/index.html" > inbuild< / a > < / li >
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / a > < / li >
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
< / ul >
< h2 > Inform7 Modules< / h2 >
< ul >
< li > < a href = "../core-module/index.html" > core< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../kinds-module/index.html" > kinds< / a > < / li >
< li > < a href = "../if-module/index.html" > if< / a > < / li >
< li > < a href = "../multimedia-module/index.html" > multimedia< / a > < / li >
< li > < a href = "../index-module/index.html" > index< / a > < / li >
< / ul >
< h2 > Inter Modules< / h2 >
< ul >
< li > < a href = "../inter-module/index.html" > inter< / a > < / li >
< li > < a href = "../building-module/index.html" > building< / a > < / li >
< li > < a href = "../codegen-module/index.html" > codegen< / a > < / li >
< / ul >
< h2 > Foundation< / h2 >
< ul >
< li > < a href = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
< / ul >
< / nav >
< main role = "main" >
2019-03-17 14:40:57 +02:00
<!-- Weave of '4/tsc' generated by 7 -->
2020-03-22 12:50:19 +02:00
< ul class = "crumbs" > < li > < a href = "../webs.html" > Source< / a > < / li > < li > < a href = "../compiler.html" > Compiler Modules< / a > < / li > < li > < a href = "index.html" > inter< / a > < / li > < li > < a href = "index.html#4" > Chapter 4: Void Constructs< / a > < / li > < li > < b > The Symbol Construct< / b > < / li > < / ul > < p class = "purpose" > Defining the symbol construct.< / p >
2019-03-17 14:40:57 +02:00
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. < / b > < / p >
< pre class = "definitions" >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > SYMBOL_IST< / span >
< / pre >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Symbol::define< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Defn::create_construct< / span > < span class = "plain" > (< / span >
< span class = "constant" > SYMBOL_IST< / span > < span class = "plain" > ,< / span >
2019-04-23 01:29:02 +03:00
< span class = "identifier" > L< / span > < span class = "string" > "symbol (%C+) (%i+) (%c+)"< / span > < span class = "plain" > ,< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > I< / span > < span class = "string" > "symbol"< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "symbols"< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03:00
< span class = "identifier" > METHOD_ADD< / span > < span class = "plain" > (< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "constant" > CONSTRUCT_READ_MTID< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Symbol::read< / span > < span class = "plain" > );< / span >
< span class = "identifier" > METHOD_ADD< / span > < span class = "plain" > (< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "constant" > CONSTRUCT_VERIFY_MTID< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Symbol::verify< / span > < span class = "plain" > );< / span >
< span class = "identifier" > METHOD_ADD< / span > < span class = "plain" > (< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "constant" > CONSTRUCT_WRITE_MTID< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Symbol::write< / span > < span class = "plain" > );< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > IC< / span > < span class = "plain" > -> < / span > < span class = "element" > min_level< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > IC< / span > < span class = "plain" > -> < / span > < span class = "element" > max_level< / span > < span class = "plain" > = < / span > < span class = "constant" > 1< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
2019-07-14 12:44:07 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Symbol::read< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_bookmark< / span > < span class = "plain" > *< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_line_parse< / span > < span class = "plain" > *< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_message< / span > < span class = "plain" > **< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) {< / span >
2020-04-07 03:06:09 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Defn::vet_level< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "constant" > SYMBOL_IST< / span > < span class = "plain" > , < / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > indent_level< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (*< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Annotations::exist< / span > < span class = "plain" > (& (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > set< / span > < span class = "plain" > ))) { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "__annotations are not allowed"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
2019-03-17 14:40:57 +02:00
2019-07-27 17:01:50 +03:00
< span class = "reserved" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > routine< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Defn::get_latest_block_package< / span > < span class = "plain" > ();< / span >
2019-03-17 14:40:57 +02:00
2020-04-07 03:06:09 +03:00
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [2];< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > trans_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > starred< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > match_results< / span > < span class = "plain" > < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > = < / span > < span class = "identifier" > Regexp::create_mr< / span > < span class = "plain" > ();< / span >
2019-08-04 14:19:47 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Regexp::match< / span > < span class = "plain" > (& < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > , < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "(%C+) `(%C+)`"< / span > < span class = "plain" > )) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > symbol_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0];< / span >
< span class = "identifier" > trans_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1];< / span >
2019-08-04 14:19:47 +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" > Regexp::match< / span > < span class = "plain" > (& < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > , < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "(%C+) --%? (%C+)"< / span > < span class = "plain" > )) {< / span >
< span class = "identifier" > symbol_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0];< / span >
< span class = "identifier" > equate_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1];< / 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" > Regexp::match< / span > < span class = "plain" > (& < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > , < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "(%C+) --> (%C+)"< / span > < span class = "plain" > )) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > symbol_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0];< / span >
< span class = "identifier" > equate_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1];< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::get_last_char< / span > < span class = "plain" > (< / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > ) == < / span > < span class = "character" > '*'< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > starred< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > Str::delete_last_character< / span > < span class = "plain" > (< / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2020-04-07 03:06:09 +03:00
< span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > level< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > routine< / span > < span class = "plain" > ) {< / span >
2019-07-27 17:01:50 +03:00
< span class = "reserved" > inter_symbols_table< / span > < span class = "plain" > *< / span > < span class = "identifier" > locals< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Packages::scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > routine< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > locals< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "function has no symbols table"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
< span class = "identifier" > name_name< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Textual::new_symbol< / span > < span class = "plain" > (< / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "identifier" > locals< / span > < span class = "plain" > , < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > E< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (*< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > level< / span > < span class = "plain" > = (< / span > < span class = "constant" > inter_t< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > indent_level< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
2019-07-14 12:44:07 +03:00
< span class = "identifier" > name_name< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Textual::new_symbol< / span > < span class = "plain" > (< / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Bookmarks::scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > E< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (*< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0], < / span > < span class = "identifier" > I< / span > < span class = "string" > "private"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > PRIVATE_ISYMS< / 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::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0], < / span > < span class = "identifier" > I< / span > < span class = "string" > "public"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > PUBLIC_ISYMS< / 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::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0], < / span > < span class = "identifier" > I< / span > < span class = "string" > "external"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > EXTERNAL_ISYMS< / 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::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0], < / span > < span class = "identifier" > I< / span > < span class = "string" > "plug"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > PLUG_ISYMS< / 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::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0], < / span > < span class = "identifier" > I< / span > < span class = "string" > "socket"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > SOCKET_ISYMS< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03:00
< span class = "reserved" > else< / span > < span class = "plain" > { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "unknown scope keyword"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
2019-03-17 14:40:57 +02:00
2020-04-07 03:06:09 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1], < / span > < span class = "identifier" > I< / span > < span class = "string" > "label"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > LABEL_ISYMT< / 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::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1], < / span > < span class = "identifier" > I< / span > < span class = "string" > "misc"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > MISC_ISYMT< / 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::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1], < / span > < span class = "identifier" > I< / span > < span class = "string" > "package"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > PACKAGE_ISYMT< / 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::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -> < / span > < span class = "element" > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1], < / span > < span class = "identifier" > I< / span > < span class = "string" > "packagetype"< / span > < span class = "plain" > )) < / span > < span class = "functiontext" > Inter::Symbols::set_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > PTYPE_ISYMT< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03:00
< span class = "reserved" > else< / span > < span class = "plain" > { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "unknown symbol-type keyword"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
2019-03-17 14:40:57 +02:00
2019-07-20 09:18:40 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > trans_name< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > )) {< / span >
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "a symbol cannot be both translated and equated"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Packages::is_linklike< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Bookmarks::package< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ))) {< / span >
2019-08-04 14:19:47 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Symbols::is_connector< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) {< / span >
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "in a _linkage package, all symbols must be plugs or sockets"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
2019-07-20 09:18:40 +03:00
< span class = "plain" > }< / span >
2019-08-04 14:19:47 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Symbols::get_scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > ) == < / span > < span class = "constant" > PLUG_ISYMS< / span > < span class = "plain" > )< / span >
< span class = "functiontext" > Inter::SymbolsTables::make_plug< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > eq< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::SymbolsTables::url_name_to_symbol< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Bookmarks::tree< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "functiontext" > Inter::Bookmarks::scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > eq< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "functiontext" > Inter::SymbolsTables::equate_textual< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::SymbolsTables::make_socket< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > eq< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
2019-07-20 09:18:40 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "link symbol not equated"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
2019-08-04 14:19:47 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Symbols::is_connector< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > )) {< / span >
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "plugs and sockets may only occur in a _linkage package"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
2019-07-20 09:18:40 +03:00
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > trans_name< / span > < span class = "plain" > ) < / span > < span class = "functiontext" > Inter::Symbols::set_translate< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > trans_name< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > ) {< / span >
2019-07-23 01:34:28 +03:00
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > eq< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::SymbolsTables::url_name_to_symbol< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Bookmarks::tree< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "functiontext" > Inter::Bookmarks::scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > );< / span >
2019-07-20 09:18:40 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > eq< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "functiontext" > Inter::SymbolsTables::equate_textual< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > equate_name< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::SymbolsTables::equate< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > eq< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > starred< / span > < span class = "plain" > ) {< / span >
< span class = "functiontext" > Inter::Symbols::set_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > name_name< / span > < span class = "plain" > , < / span > < span class = "constant" > MAKE_NAME_UNIQUE< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Symbol::verify< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > owner< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_message< / span > < span class = "plain" > **< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "SYMBOL_IST structures cannot exist"< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Symbol::write< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "identifier" > OUTPUT_STREAM< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_message< / span > < span class = "plain" > **< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "SYMBOL_IST structures cannot exist"< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
2019-07-26 10:59:23 +03:00
< p class = "endnote" > The function Inter::Symbol::define is used in 3/dfn (< a href = "3-dfn.html#SP3" > § 3< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< p class = "endnote" > The function Inter::Symbol::read appears nowhere else.< / p >
< p class = "endnote" > The function Inter::Symbol::verify appears nowhere else.< / p >
< p class = "endnote" > The function Inter::Symbol::write appears nowhere else.< / p >
< hr class = "tocbar" >
2019-07-12 13:37:23 +03:00
< ul class = "toc" > < li > < a href = "4-tmc.html" > Back to 'The Metadata Construct'< / a > < / li > < li > < a href = "4-tvc.html" > Continue with 'The Version Construct'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-04-22 17:42:10 +03:00
<!-- End of weave -->
2020-03-19 02:11:25 +02:00
< / main >
2019-03-17 14:40:57 +02:00
< / body >
< / html >