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 > Inter in Text Files< / title >
2020-05-03 03:01:21 +03:00
< link href = "Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-04-14 19:56:54 +03:00
< 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" >
2020-05-03 03:01:21 +03:00
< link href = "Contents.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "Progress.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "Navigation.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "Fonts.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "Base.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< 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" >
< link href = "Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-04-14 19:56:54 +03:00
< / head >
2020-05-03 03:01:21 +03:00
< body class = "commentary-font" >
2020-04-14 19:56:54 +03:00
< 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" >
2020-05-03 03:01:21 +03:00
<!-- Weave of 'Inter in Text Files' generated by Inweb -->
< div class = "breadcrumbs" >
< 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#3" > Chapter 3: Language Definition< / a > < / li > < li > < b > Inter in Text Files< / b > < / li > < / ul > < / div >
< p class = "purpose" > To read inter from a textual file.< / p >
2020-04-14 19:56:54 +03:00
2020-04-16 01:49:59 +03:00
< ul class = "toc" > < li > < a href = "3-iitf.html#SP1" > § 1. Reading textual inter< / a > < / li > < li > < a href = "3-iitf.html#SP2" > § 2. Writing textual inter< / a > < / li > < / ul > < hr class = "tocbar" >
2020-04-14 19:56:54 +03:00
2020-05-03 03:01:21 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1" > < / a > < b > § 1. Reading textual inter. < / b > < / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_blank_lines_stacked< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Inter::Textual::read< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > filename< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > F< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > INTER_FILE_READ< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "(Reading textual inter file %f)\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > F< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > default_ptree< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_blank_lines_stacked< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_bookmark< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > IBM< / span > < span class = "plain-syntax" > = < / span > < a href = "2-bkm.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Bookmarks::at_start_of_this_repository< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_error_location< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::file_location< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TextFiles::read< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > F< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "can't open inter file"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > , < / span > < a href = "3-iitf.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Textual::read_line< / span > < / a > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > IBM< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-st.html#SP10" class = "function-link" > < span class = "function-syntax" > Inter::SymbolsTables::resolve_forward_references< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > default_ptree< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < a href = "2-it.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Tree::traverse< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < a href = "3-iitf.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Textual::lint_visitor< / span > < / a > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , -< / span > < span class = "constant-syntax" > PACKAGE_IST< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Primitives::scan_tree< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Inter::Textual::lint_visitor< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > state< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-dfn.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Defn::verify_children_inner< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::issue< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Inter::Textual::new_symbol< / span > < button class = "popup" onclick = "togglePopup('usagePopup1')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup1" > Usage of < span class = "code-font" > < span class = "function-syntax" > Inter::Textual::new_symbol< / span > < / span > :< br / > The Metadata Construct - < a href = "4-tmc.html#SP2" > § 2< / a > < br / > The Symbol Construct - < a href = "4-tsc.html#SP1" > § 1< / a > < br / > The Pragma Construct - < a href = "4-tpc.html#SP2" > § 2< / a > < br / > The PackageType Construct - < a href = "4-tpc2.html#SP2" > § 2< / a > < br / > The Kind Construct - < a href = "4-tkc.html#SP2" > § 2< / a > < br / > The Variable Construct - < a href = "4-tvc2.html#SP2" > § 2< / a > < br / > The Constant Construct - < a href = "4-tcc2.html#SP2" > § 2< / a > < br / > The Response Construct - < a href = "4-trc.html#SP2" > § 2< / a > < br / > The Instance Construct - < a href = "4-tic.html#SP2" > § 2< / a > < br / > The Property Construct - < a href = "4-tpc4.html#SP2" > § 2< / a > < br / > The Permission Construct - < a href = "4-tpc6.html#SP2" > § 2< / a > < br / > The Primitive Construct - < a href = "4-tpc7.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > inter_error_location< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_symbols_table< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > = < / span > < a href = "2-st.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::SymbolsTables::symbol_from_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-sym.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::is_predeclared< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < a href = "2-sym.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::undefine< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "symbol already exists"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-st.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::SymbolsTables::symbol_from_name_creating< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Inter::Textual::find_symbol< / span > < button class = "popup" onclick = "togglePopup('usagePopup2')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup2" > Usage of < span class = "code-font" > < span class = "function-syntax" > Inter::Textual::find_symbol< / span > < / span > :< br / > Inter Data Types - < a href = "3-idt.html#SP3" > § 3< / a > < br / > The Package Construct - < a href = "4-tpc3.html#SP2" > § 2< / a > < br / > The Kind Construct - < a href = "4-tkc.html#SP2" > § 2< / a > < br / > The DefaultValue Construct - < a href = "4-tdc.html#SP2" > § 2< / a > < br / > The Variable Construct - < a href = "4-tvc2.html#SP2" > § 2< / a > < br / > The Constant Construct - < a href = "4-tcc2.html#SP2" > § 2< / a > < br / > The Response Construct - < a href = "4-trc.html#SP2" > § 2< / a > < br / > The Instance Construct - < a href = "4-tic.html#SP2" > § 2< / a > < br / > The Property Construct - < a href = "4-tpc4.html#SP2" > § 2< / a > < br / > The PropertyValue Construct - < a href = "4-tpc5.html#SP2" > § 2< / a > < br / > The Permission Construct - < a href = "4-tpc6.html#SP2" > § 2< / a > < br / > The Local Construct - < a href = "5-tlc2.html#SP2" > § 2< / a > < br / > The Ref Construct - < a href = "5-trc.html#SP2" > § 2< / a > < br / > The Val Construct - < a href = "5-tvc.html#SP2" > § 2< / a > < br / > The Cast Construct - < a href = "5-tcc2.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_error_location< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_symbols_table< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > inter_t< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > construct< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > = < / span > < a href = "2-st.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::SymbolsTables::symbol_from_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "no such symbol"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > = < / span > < a href = "2-sym.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::definition< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-sym.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::is_extern< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-sym.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::is_predeclared< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "undefined symbol"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "constant-syntax" > ID_IFLD< / span > < span class = "plain-syntax" > ] != < / span > < span class = "identifier-syntax" > construct< / span > < span class = "plain-syntax" > ) & & (< / span > < a href = "2-sym.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::is_predeclared< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "symbol of wrong type"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Inter::Textual::find_undefined_symbol< / span > < button class = "popup" onclick = "togglePopup('usagePopup3')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup3" > Usage of < span class = "code-font" > < span class = "function-syntax" > Inter::Textual::find_undefined_symbol< / span > < / span > :< br / > The Local Construct - < a href = "5-tlc2.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > inter_bookmark< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > IBM< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_error_location< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_symbols_table< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > = < / span > < a href = "2-st.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::SymbolsTables::symbol_from_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "no such symbol"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < a href = "2-sym.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::is_defined< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > )) & & < / span >
< span class = "plain-syntax" > (< / span > < a href = "2-sym.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::is_predeclared< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < a href = "2-sym.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::is_predeclared_local< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDERR< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Ho! %S\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > symbol_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > = < / span > < a href = "2-sym.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::definition< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "3-dfn.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Defn::write_construct_text< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDERR< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "symbol already defined"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Inter::Textual::find_KOI< / span > < button class = "popup" onclick = "togglePopup('usagePopup4')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup4" > Usage of < span class = "code-font" > < span class = "function-syntax" > Inter::Textual::find_KOI< / span > < / span > :< br / > The PropertyValue Construct - < a href = "4-tpc5.html#SP2" > § 2< / a > < br / > The Permission Construct - < a href = "4-tpc6.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > inter_error_location< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_symbols_table< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > = < / span > < a href = "2-st.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::SymbolsTables::symbol_from_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "no such symbol"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > = < / span > < a href = "2-sym.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::definition< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "undefined symbol"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "constant-syntax" > ID_IFLD< / span > < span class = "plain-syntax" > ] != < / span > < span class = "constant-syntax" > KIND_IST< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "constant-syntax" > ID_IFLD< / span > < span class = "plain-syntax" > ] != < / span > < span class = "constant-syntax" > INSTANCE_IST< / span > < span class = "plain-syntax" > )) { *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "symbol of wrong type"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > inter_data_type< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Inter::Textual::data_type< / span > < button class = "popup" onclick = "togglePopup('usagePopup5')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup5" > Usage of < span class = "code-font" > < span class = "function-syntax" > Inter::Textual::data_type< / span > < / span > :< br / > The Kind Construct - < a href = "4-tkc.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > inter_error_location< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_data_type< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > idt< / span > < span class = "plain-syntax" > = < / span > < a href = "3-idt.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Types::find_by_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > idt< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::quoted< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "no such data type"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > idt< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Inter::Textual::read_line< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > line< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > text_file_position< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tfp< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > state< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_bookmark< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > IBM< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > inter_bookmark< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > state< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_error_location< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::file_location< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > line< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tfp< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > line< / span > < span class = "plain-syntax" > ) == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > no_blank_lines_stacked< / span > < span class = "plain-syntax" > ++; < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > no_blank_lines_stacked< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_error_location< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > b_eloc< / span > < span class = "plain-syntax" > = < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::file_location< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > ""< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tfp< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-dfn.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Defn::read_construct_text< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > ""< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > b_eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > IBM< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::issue< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_blank_lines_stacked< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-dfn.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Defn::read_construct_text< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > line< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > IBM< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::issue< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2020-04-14 19:56:54 +03:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary firstcommentary" > < a id = "SP2" > < / a > < b > § 2. Writing textual inter. < / b > < / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Inter::Textual::writer< / span > < button class = "popup" onclick = "togglePopup('usagePopup6')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup6" > Usage of < span class = "code-font" > < span class = "function-syntax" > Inter::Textual::writer< / span > < / span > :< br / > Bytecode Module - < a href = "1-bm.html#SP3_3" > § 3.3< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > OUTPUT_STREAM< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > char< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > format_string< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > vI< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > inter_tree< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > vI< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iitf.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Textual::write< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > OUT< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > textual_write_state< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > to< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > filter< / span > < span class = "plain-syntax" > )(< / span > < span class = "reserved-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pass< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > textual_write_state< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Inter::Textual::write< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > OUTPUT_STREAM< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > filter< / span > < span class = "plain-syntax" > )(< / span > < span class = "reserved-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ), < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pass< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "< no-inter> \n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > textual_write_state< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > to< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > OUT< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > filter< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > filter< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > pass< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > pass< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < a href = "2-it.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Tree::traverse_root_only< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < a href = "3-iitf.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Textual::visitor< / span > < / a > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > , -< / span > < span class = "constant-syntax" > PACKAGE_IST< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-it.html#SP5" class = "function-link" > < span class = "function-syntax" > Inter::Tree::traverse< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < a href = "3-iitf.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Textual::visitor< / span > < / a > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Inter::Textual::visitor< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > state< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > textual_write_state< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > textual_write_state< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > state< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > filter< / span > < span class = "plain-syntax" > ) & & ((*(< / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > filter< / span > < span class = "plain-syntax" > ))(*< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > pass< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_error_message< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > = < / span > < a href = "3-dfn.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Defn::write_construct_text< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tws< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > to< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::issue< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2020-04-14 19:56:54 +03:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > The structure textual_write_state is private to this section.< / li > < / ul >
< nav role = "progress" > < div class = "progresscontainer" >
< ul class = "progressbar" > < li class = "progressprev" > < a href = "3-iibf.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "1-bm.html" > 1< / a > < / li > < li class = "progresschapter" > < a href = "2-it.html" > 2< / a > < / li > < li class = "progresscurrentchapter" > 3< / li > < li class = "progresssection" > < a href = "3-ca.html" > ca< / a > < / li > < li class = "progresssection" > < a href = "3-dfn.html" > dfn< / a > < / li > < li class = "progresssection" > < a href = "3-iibf.html" > iibf< / a > < / li > < li class = "progresscurrent" > iitf< / li > < li class = "progresssection" > < a href = "3-vi.html" > vi< / a > < / li > < li class = "progresssection" > < a href = "3-idt.html" > idt< / a > < / li > < li class = "progresssection" > < a href = "3-ie.html" > ie< / a > < / li > < li class = "progresschapter" > < a href = "4-tnc.html" > 4< / a > < / li > < li class = "progresschapter" > < a href = "5-tlc.html" > 5< / a > < / li > < li class = "progressnext" > < a href = "3-vi.html" > ❯ < / a > < / li > < / ul > < / div >
< / nav > <!-- End of weave -->
2020-04-14 19:56:54 +03:00
< / main >
< / body >
< / html >