2020-04-14 19:56:54 +03:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > The Cast Construct< / title >
< meta name = "viewport" content = "width=device-width initial-scale=1" >
< 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 >
< nav role = "navigation" >
< h1 > < a href = "../index.html" >
< img src = "../docs-src/Figures/Inform.png" height = 72" >
< / a > < / h1 >
< ul > < li > < a href = "../compiler.html" > compiler tools< / a > < / li >
< 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 = "../supervisor-module/index.html" > supervisor< / a > < / li >
< / ul > < h2 > Inform7 Modules< / h2 > < ul >
< li > < a href = "../core-module/index.html" > core< / 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 = "../problems-module/index.html" > problems< / a > < / li >
< li > < a href = "../index-module/index.html" > index< / a > < / li >
< / ul > < h2 > Inter Modules< / h2 > < ul >
< li > < a href = "index.html" > < span class = "selectedlink" > bytecode< / span > < / a > < / li >
< li > < a href = "../building-module/index.html" > building< / a > < / li >
< li > < a href = "../codegen-module/index.html" > codegen< / a > < / li >
< / ul > < h2 > Shared Modules< / h2 > < ul >
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
< li > < a href = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
< / ul >
< / nav >
< main role = "main" >
<!-- Weave of 'The Cast Construct' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../index.html" > Home< / a > < / li > < li > < a href = "../compiler.html" > Inter Modules< / a > < / li > < li > < a href = "index.html" > bytecode< / a > < / li > < li > < a href = "index.html#5" > Chapter 5: Code Constructs< / a > < / li > < li > < b > The Cast Construct< / b > < / li > < / ul > < p class = "purpose" > Defining the cast construct.< / p >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. < / b > < / p >
< pre class = "definitions" >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > CAST_IST< / span >
< / pre >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Cast::define< button class = "popup" onclick = "togglePopup('usagePopup501')" > ...< span class = "popuptext" id = "usagePopup501" > Usage of < b > Inter::Cast::define< / b > :< br > Definition - < a href = "3-dfn.html#SP3" > § 3< / a > < / span > < / button > < / 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" > < a href = "3-dfn.html#SP1" > Inter::Defn::create_construct< / a > < / span > < span class = "plain" > (< / span >
< span class = "constant" > CAST_IST< / span > < span class = "plain" > ,< / span >
< span class = "identifier" > L< / span > < span class = "string" > "cast (%i+) < - (%i+)"< / span > < span class = "plain" > ,< / span >
< span class = "identifier" > I< / span > < span class = "string" > "cast"< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "casts"< / span > < span class = "plain" > );< / span >
< span class = "identifier" > IC< / span > < span class = "plain" > -> < / span > < span class = "element" > min_level< / span > < span class = "plain" > = < / span > < span class = "constant" > 1< / 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" > 100000000< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > IC< / span > < span class = "plain" > -> < / span > < span class = "element" > usage_permissions< / span > < span class = "plain" > = < / span > < span class = "constant" > INSIDE_CODE_PACKAGE< / span > < span class = "plain" > + < / span > < span class = "constant" > CAN_HAVE_CHILDREN< / span > < span class = "plain" > ;< / span >
2020-04-16 01:49:59 +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" > < a href = "5-tcc2.html#SP2" > Inter::Cast::read< / a > < / 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" > < a href = "5-tcc2.html#SP2" > Inter::Cast::verify< / a > < / 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" > < a href = "5-tcc2.html#SP2" > Inter::Cast::write< / a > < / 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" > VERIFY_INTER_CHILDREN_MTID< / span > < span class = "plain" > , < / span > < span class = "functiontext" > < a href = "5-tcc2.html#SP2" > Inter::Cast::verify_children< / a > < / span > < span class = "plain" > );< / span >
2020-04-14 19:56:54 +03:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > < / p >
< pre class = "definitions" >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > BLOCK_CAST_IFLD< / span > < span class = "plain" > < / span > < span class = "constant" > 2< / span >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > TO_KIND_CAST_IFLD< / span > < span class = "plain" > < / span > < span class = "constant" > 3< / span >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > FROM_KIND_CAST_IFLD< / span > < span class = "plain" > < / span > < span class = "constant" > 4< / span >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > EXTENT_CAST_IFR< / span > < span class = "plain" > < / span > < span class = "constant" > 5< / span >
< / pre >
< pre class = "display" >
2020-04-16 01:49:59 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Cast::read< button class = "popup" onclick = "togglePopup('usagePopup502')" > ...< span class = "popuptext" id = "usagePopup502" > Usage of < b > Inter::Cast::read< / b > :< br > < a href = "5-tcc2.html#SP1" > § 1< / a > < / span > < / button > < / 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-14 19:56:54 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > < a href = "2-ann.html#SP2" > Inter::Annotations::exist< / a > < / 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" > < a href = "3-ie.html#SP1" > Inter::Errors::plain< / a > < / 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 >
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "3-dfn.html#SP4" > Inter::Defn::vet_level< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "constant" > CAST_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 >
< 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 >
< span class = "reserved" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > routine< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "3-dfn.html#SP4" > Inter::Defn::get_latest_block_package< / a > < / span > < span class = "plain" > ();< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > routine< / 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" > < a href = "3-ie.html#SP1" > Inter::Errors::plain< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "'val' used outside function"< / 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 = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > from_kind< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "3-iitf.html#SP1" > Inter::Textual::find_symbol< / a > < / span > < span class = "plain" > (< / span > < span class = "functiontext" > < a href = "2-bkm.html#SP1" > Inter::Bookmarks::tree< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "functiontext" > < a href = "2-bkm.html#SP1" > Inter::Bookmarks::scope< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / 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 = "constant" > KIND_IST< / 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 >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > to_kind< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "3-iitf.html#SP1" > Inter::Textual::find_symbol< / a > < / span > < span class = "plain" > (< / span > < span class = "functiontext" > < a href = "2-bkm.html#SP1" > Inter::Bookmarks::tree< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "functiontext" > < a href = "2-bkm.html#SP1" > Inter::Bookmarks::scope< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / 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 = "constant" > KIND_IST< / 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-16 01:49:59 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "5-tcc2.html#SP2" > Inter::Cast::new< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "identifier" > from_kind< / span > < span class = "plain" > , < / span > < span class = "identifier" > to_kind< / 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 > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
2020-04-14 19:56:54 +03:00
< span class = "plain" > }< / span >
< span class = "reserved" > inter_error_message< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Inter::Cast::new< button class = "popup" onclick = "togglePopup('usagePopup503')" > ...< span class = "popuptext" id = "usagePopup503" > Usage of < b > Inter::Cast::new< / b > :< br > none< / span > < / button > < / 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_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > from_kind< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > to_kind< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > level< / 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_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "2-in.html#SP4" > Inter::Node::fill_3< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "constant" > CAST_IST< / span > < span class = "plain" > , < / span > < span class = "constant" > 0< / span > < span class = "plain" > , < / span > < span class = "functiontext" > < a href = "2-st.html#SP9" > Inter::SymbolsTables::id_from_IRS_and_symbol< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "identifier" > to_kind< / span > < span class = "plain" > ), < / span > < span class = "functiontext" > < a href = "2-st.html#SP9" > Inter::SymbolsTables::id_from_IRS_and_symbol< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "identifier" > from_kind< / span > < span class = "plain" > ), < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , (< / span > < span class = "constant" > inter_t< / span > < span class = "plain" > ) < / span > < span class = "identifier" > level< / 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 > < span class = "functiontext" > < a href = "3-dfn.html#SP4" > Inter::Defn::verify_construct< / a > < / span > < span class = "plain" > (< / span > < span class = "functiontext" > < a href = "2-bkm.html#SP1" > Inter::Bookmarks::package< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "identifier" > P< / span > < span class = "plain" > ); < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > E< / span > < span class = "plain" > ;< / span >
< span class = "functiontext" > < a href = "2-bkm.html#SP1" > Inter::Bookmarks::insert< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2020-04-16 01:49:59 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Cast::verify< button class = "popup" onclick = "togglePopup('usagePopup504')" > ...< span class = "popuptext" id = "usagePopup504" > Usage of < b > Inter::Cast::verify< / b > :< br > < a href = "5-tcc2.html#SP1" > § 1< / a > < / span > < / button > < / 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 >
2020-04-14 19:56:54 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -> < / span > < span class = "element" > W< / span > < span class = "plain" > .< / span > < span class = "element" > extent< / span > < span class = "plain" > != < / span > < span class = "constant" > EXTENT_CAST_IFR< / span > < span class = "plain" > ) { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "2-in.html#SP6" > Inter::Node::error< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "extent wrong"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "3-vi.html#SP1" > Inter::Verify::symbol< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > owner< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > -> < / span > < span class = "element" > W< / span > < span class = "plain" > .< / span > < span class = "element" > data< / span > < span class = "plain" > [< / span > < span class = "constant" > TO_KIND_CAST_IFLD< / span > < span class = "plain" > ], < / span > < span class = "constant" > KIND_IST< / 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 >
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "3-vi.html#SP1" > Inter::Verify::symbol< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > owner< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > -> < / span > < span class = "element" > W< / span > < span class = "plain" > .< / span > < span class = "element" > data< / span > < span class = "plain" > [< / span > < span class = "constant" > FROM_KIND_CAST_IFLD< / span > < span class = "plain" > ], < / span > < span class = "constant" > KIND_IST< / 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 >
< span class = "plain" > }< / span >
2020-04-16 01:49:59 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Cast::write< button class = "popup" onclick = "togglePopup('usagePopup505')" > ...< span class = "popuptext" id = "usagePopup505" > Usage of < b > Inter::Cast::write< / b > :< br > < a href = "5-tcc2.html#SP1" > § 1< / a > < / span > < / button > < / 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 >
2020-04-14 19:56:54 +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" > < a href = "2-pck.html#SP3" > Inter::Packages::scope_of< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > 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" > < a href = "2-in.html#SP6" > Inter::Node::error< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / 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" > NULL< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > from_kind< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "2-st.html#SP7" > Inter::SymbolsTables::symbol_from_frame_data< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "constant" > FROM_KIND_CAST_IFLD< / span > < span class = "plain" > );< / span >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > to_kind< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "2-st.html#SP7" > Inter::SymbolsTables::symbol_from_frame_data< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "constant" > TO_KIND_CAST_IFLD< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > from_kind< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > to_kind< / span > < span class = "plain" > )) {< / span >
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "cast %S < - %S"< / span > < span class = "plain" > , < / span > < span class = "identifier" > to_kind< / span > < span class = "plain" > -> < / span > < span class = "element" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > from_kind< / span > < span class = "plain" > -> < / span > < span class = "element" > symbol_name< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "2-in.html#SP6" > Inter::Node::error< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "cannot write cast"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
< span class = "plain" > }< / span >
2020-04-16 01:49:59 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Cast::verify_children< button class = "popup" onclick = "togglePopup('usagePopup506')" > ...< span class = "popuptext" id = "usagePopup506" > Usage of < b > Inter::Cast::verify_children< / b > :< br > < a href = "5-tcc2.html#SP1" > § 1< / a > < / span > < / button > < / 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_error_message< / span > < span class = "plain" > **< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) {< / span >
2020-04-14 19:56:54 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > arity_as_invoked< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOOP_THROUGH_INTER_CHILDREN< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > arity_as_invoked< / span > < span class = "plain" > ++;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > C< / span > < span class = "plain" > -> < / span > < span class = "element" > W< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [0] != < / span > < span class = "constant" > INV_IST< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > C< / span > < span class = "plain" > -> < / span > < span class = "element" > W< / span > < span class = "plain" > .< / span > < span class = "element" > data< / span > < span class = "plain" > [0] != < / span > < span class = "constant" > VAL_IST< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > C< / span > < span class = "plain" > -> < / span > < span class = "element" > W< / span > < span class = "plain" > .< / span > < span class = "element" > data< / span > < span class = "plain" > [0] != < / span > < span class = "constant" > EVALUATION_IST< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > C< / span > < span class = "plain" > -> < / span > < span class = "element" > W< / span > < span class = "plain" > .< / span > < span class = "element" > data< / span > < span class = "plain" > [0] != < / span > < span class = "constant" > CAST_IST< / span > < span class = "plain" > )) {< / span >
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "2-in.html#SP6" > Inter::Node::error< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "only inv, cast, concatenate and val can be under a cast"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > arity_as_invoked< / span > < span class = "plain" > != < / span > < span class = "constant" > 1< / span > < span class = "plain" > ) {< / span >
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > < a href = "2-in.html#SP6" > Inter::Node::error< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "a cast should have exactly one child"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< hr class = "tocbar" >
< ul class = "toc" > < li > < a href = "5-trc2.html" > Back to 'The Reference Construct'< / a > < / li > < li > < a href = "5-tsc.html" > Continue with 'The Splat Construct'< / a > < / li > < / ul > < hr class = "tocbar" >
<!-- End of weave -->
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
< link href = "Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / main >
< / body >
< / html >