2019-03-17 14:40:57 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
2020-04-14 19:56:54 +03:00
< title > Inter in Binary Files< / title >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-03-19 02:11:25 +02:00
< meta name = "viewport" content = "width=device-width initial-scale=1" >
2019-03-17 14:40:57 +02:00
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
2020-05-03 03:01:21 +03:00
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Contents.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Progress.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Navigation.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Fonts.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Base.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-05-03 03:01:21 +03:00
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-04-14 19:56:54 +03:00
2019-03-17 14:40:57 +02:00
< / head >
2020-05-03 03:01:21 +03:00
< body class = "commentary-font" >
2020-03-19 02:11:25 +02:00
< nav role = "navigation" >
2020-04-14 19:56:54 +03:00
< h1 > < a href = "../index.html" >
2020-05-03 18:34:53 +03:00
< img src = "../docs-assets/Inform.png" height = 72" >
2020-04-14 19:56:54 +03:00
< / a > < / h1 >
< ul > < li > < a href = "../compiler.html" > compiler tools< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../other.html" > other tools< / a > < / li >
< li > < a href = "../extensions.html" > extensions and kits< / a > < / li >
< li > < a href = "../units.html" > unit test tools< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Compiler Webs< / h2 > < ul >
2020-03-19 02:11:25 +02:00
< 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 >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Inbuild Modules< / h2 > < ul >
< li > < a href = "../supervisor-module/index.html" > supervisor< / a > < / li >
< / ul > < h2 > Inform7 Modules< / h2 > < ul >
2020-03-19 02:11:25 +02:00
< li > < a href = "../core-module/index.html" > core< / a > < / li >
2020-08-27 17:50:24 +03:00
< li > < a href = "../assertions-module/index.html" > assertions< / a > < / li >
< li > < a href = "../values-module/index.html" > values< / a > < / li >
< li > < a href = "../knowledge-module/index.html" > knowledge< / a > < / li >
< li > < a href = "../imperative-module/index.html" > imperative< / a > < / li >
< li > < a href = "../runtime-module/index.html" > runtime< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../if-module/index.html" > if< / a > < / li >
< li > < a href = "../multimedia-module/index.html" > multimedia< / a > < / li >
< li > < a href = "../index-module/index.html" > index< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Inter Modules< / h2 > < ul >
< li > < a href = "index.html" > < span class = "selectedlink" > bytecode< / span > < / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../building-module/index.html" > building< / a > < / li >
2021-08-10 13:01:03 +03:00
< li > < a href = "../pipeline-module/index.html" > pipeline< / a > < / li >
< li > < a href = "../final-module/index.html" > final< / a > < / li >
2020-05-20 02:02:28 +03:00
< / ul > < h2 > Services< / h2 > < ul >
2020-04-14 19:56:54 +03:00
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
2020-08-27 17:50:24 +03:00
< li > < a href = "../calculus-module/index.html" > calculus< / a > < / li >
2020-04-14 19:56:54 +03:00
< li > < a href = "../html-module/index.html" > html< / a > < / li >
2020-05-20 02:02:28 +03:00
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
2020-08-27 17:50:24 +03:00
< li > < a href = "../kinds-module/index.html" > kinds< / a > < / li >
2020-05-20 02:02:28 +03:00
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
2020-08-27 17:50:24 +03:00
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul >
2020-03-19 02:11:25 +02:00
< / nav >
< main role = "main" >
2020-05-03 03:01:21 +03:00
<!-- Weave of 'Inter in Binary 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 Binary Files< / b > < / li > < / ul > < / div >
< p class = "purpose" > To read or write inter between memory and binary files.< / p >
2019-03-17 14:40:57 +02:00
2020-04-16 01:49:59 +03:00
< ul class = "toc" > < li > < a href = "3-iibf.html#SP1" > § 1. Reading and writing inter to binary< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-17 14:40:57 +02:00
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1" class = "paragraph-anchor" > < / a > < b > § 1. Reading and writing inter to binary. < / b > The binary representation of Inter, saved out to a file, is portable and
2019-03-17 14:40:57 +02:00
complete in itself.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > trace_bin< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_type_errors< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
2019-07-23 22:07:01 +03:00
2020-05-03 03:01:21 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Inter::Binary::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 binary 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 = "reserved-syntax" > long< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > max_offset< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > BinaryFiles::size< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > F< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > FILE< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > BinaryFiles::open_for_reading< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > F< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< 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::interb_location< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > F< / 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" > at< / 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 >
2019-03-17 14:40:57 +02:00
2022-01-25 02:20:07 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_warehouse< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > = < / span > < a href = "2-it.html#SP3" class = "function-link" > < span class = "function-syntax" > InterTree::warehouse< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< 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 >
2019-07-22 02:01:18 +03:00
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Read the shibboleth< / span > < span class = "named-paragraph-number" > 1.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Read the annotations< / span > < span class = "named-paragraph-number" > 1.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Read the resources< / span > < span class = "named-paragraph-number" > 1.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_5" class = "named-paragraph-link" > < span class = "named-paragraph" > Read the symbol equations< / span > < span class = "named-paragraph-number" > 1.5< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_6" class = "named-paragraph-link" > < span class = "named-paragraph" > Read the bytecode< / span > < span class = "named-paragraph-number" > 1.6< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Memory::I7_array_free< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > INTER_BYTECODE_MREASON< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > sizeof< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ));< / span >
2022-01-14 12:56:42 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Primitives::index_primitives_in_tree< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::close< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / 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 >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1" class = "paragraph-anchor" > < / a > < b > § 1.1. < / b > Symmetrically:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< 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::Binary::write< / 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 = "reserved-syntax" > inter_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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Writing binary 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" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > INTER_FILE_READ< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "(Writing binary 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 = "reserved-syntax" > FILE< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > BinaryFiles::open_for_writing< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > F< / span > < span class = "plain-syntax" > );< / span >
2022-01-25 02:20:07 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_warehouse< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > = < / span > < a href = "2-it.html#SP3" class = "function-link" > < span class = "function-syntax" > InterTree::warehouse< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the shibboleth< / span > < span class = "named-paragraph-number" > 1.1.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the annotations< / span > < span class = "named-paragraph-number" > 1.1.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the resources< / span > < span class = "named-paragraph-number" > 1.1.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the symbol equations< / span > < span class = "named-paragraph-number" > 1.1.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_5" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the bytecode< / span > < span class = "named-paragraph-number" > 1.1.5< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::close< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_2" class = "paragraph-anchor" > < / a > < b > § 1.2. < / b > The header is four bytes with a special value (equivalent to the ASCII
2020-05-03 03:01:21 +03:00
for < span class = "extract" > < span class = "extract-syntax" > intr< / span > < / span > ), then four zero bytes, so that we can tell this file from a
2019-03-17 14:40:57 +02:00
text file coincidentally opening with those letters.
< / p >
2020-07-01 02:58:55 +03:00
< pre class = "definitions code-font" > < span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > INTER_SHIBBOLETH< / span > < span class = "plain-syntax" > ((< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "constant-syntax" > 0x696E7472< / span > < span class = "plain-syntax" > )< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read the shibboleth< / span > < span class = "named-paragraph-number" > 1.2< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) ||< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > ((< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > INTER_SHIBBOLETH< / span > < span class = "plain-syntax" > ) ||< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) ||< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > ((< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > )) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "not a binary inter file"< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1" > § 1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_1" class = "paragraph-anchor" > < / a > < b > § 1.1.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the shibboleth< / span > < span class = "named-paragraph-number" > 1.1.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "constant-syntax" > INTER_SHIBBOLETH< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1" > § 1.1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_3" class = "paragraph-anchor" > < / a > < b > § 1.3. < / b > Next we have to describe the possible range of annotations. We need these
2019-03-17 14:40:57 +02:00
now, because they will be referred to in the symbol definitions in the
resource block later on.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read the annotations< / span > < span class = "named-paragraph-number" > 1.3< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ID< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > ID< / 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" > ID< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > keyword< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > L< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > unsigned< / 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" > L< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > keyword< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_annotation_form< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > IA< / span > < span class = "plain-syntax" > = < / span > < a href = "2-ann.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Annotations::form< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ID< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > keyword< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > );< / span >
2021-04-16 23:50:46 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > IA< / 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" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > err< / 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" > err< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "conflicting annotation name '%S'"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > keyword< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > err< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > err< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > }< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > keyword< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1" > § 1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_2" class = "paragraph-anchor" > < / a > < b > § 1.1.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the annotations< / span > < span class = "named-paragraph-number" > 1.1.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_annotation_form< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > IAF< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > IAF< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > inter_annotation_form< / 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" > IAF< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > annotation_ID< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > INVALID_IANN< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > IAF< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > annotation_ID< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > IAF< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > annotation_keyword< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > IAF< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > annotation_keyword< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1" > § 1.1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_4" class = "paragraph-anchor" > < / a > < b > § 1.4. < / b > There follows a block of resources, which is a list in which each entry opens
2019-07-23 22:07:01 +03:00
with a word identifying which resource number is meant; when this is zero,
that's the end of the list and therefore the block. (There is no resource 0.)
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read the resources< / span > < span class = "named-paragraph-number" > 1.4< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > count< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > count< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > count< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > grid_extent< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > grid_extent< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "max zero"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1000< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > = (< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > Memory::calloc< / span > < span class = "plain-syntax" > ((< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > sizeof< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ), < / span > < span class = "constant-syntax" > INTER_BYTECODE_MREASON< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > inter_ti< / 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" > grid_extent< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / 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" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > inter_ti< / 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" > count< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > from_N< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > from_N< / span > < span class = "plain-syntax" > )) {< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) {< / span >
2022-01-25 02:20:07 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > : < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > = (< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-it.html#SP3" class = "function-link" > < span class = "function-syntax" > InterTree::global_scope< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > )-> < / span > < span class = "element-syntax" > n_index< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > : < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > = (< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-it.html#SP3" class = "function-link" > < span class = "function-syntax" > InterTree::root_package< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > )-> < / span > < span class = "element-syntax" > index_n< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > default:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > = < / span > < a href = "2-tw.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Warehouse::create_resource< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Reading resource %d < --- %d\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > from_N< / 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" > from_N< / span > < span class = "plain-syntax" > > = < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > from_N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > -1;< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "max incorrect"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > from_N< / span > < span class = "plain-syntax" > ] = < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > inter_ti< / 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" > grid_extent< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%d "< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ]);< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "\n"< / span > < span class = "plain-syntax" > );< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > inter_ti< / 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" > count< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > from_N< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > from_N< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > from_N< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > from_N< / span > < span class = "plain-syntax" > > = < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "from-N out of range"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > from_N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > grid_extent< / span > < span class = "plain-syntax" > - < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > from_N< / span > < span class = "plain-syntax" > ];< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_resource_holder< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > = & (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_resources< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ]);< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > NO_IRSRC< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Reading resource %d -> %d type %d\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > from_N< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > STRING_IRSRC:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_4_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Read a string resource< / span > < span class = "named-paragraph-number" > 1.4.1< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SYMBOLS_TABLE_IRSRC:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_4_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Read a symbols table resource< / span > < span class = "named-paragraph-number" > 1.4.2< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FRAME_LIST_IRSRC:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_4_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Read a frame list resource< / span > < span class = "named-paragraph-number" > 1.4.4< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PACKAGE_IRSRC:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_4_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Read a package resource< / span > < span class = "named-paragraph-number" > 1.4.3< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1" > § 1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_3" class = "paragraph-anchor" > < / a > < b > § 1.1.3. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the resources< / span > < span class = "named-paragraph-number" > 1.1.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > max< / span > < span class = "plain-syntax" > = -1, < / span > < span class = "identifier-syntax" > count< / 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" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > size< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_resources< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ].< / span > < span class = "element-syntax" > owning_package< / 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" > owner< / span > < span class = "plain-syntax" > ) & & (< / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::tree< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > ) != < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > count< / 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" > n< / span > < span class = "plain-syntax" > +1 > < / span > < span class = "identifier-syntax" > max< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > max< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > +1;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > count< / 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" > count< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > max< / 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" > n< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > size< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_resources< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ].< / span > < span class = "element-syntax" > owning_package< / 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" > owner< / span > < span class = "plain-syntax" > ) & & (< / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::tree< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > ) != < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > );< / 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" > n< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > size< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_resources< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ].< / span > < span class = "element-syntax" > owning_package< / 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" > owner< / span > < span class = "plain-syntax" > ) & & (< / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::tree< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > ) != < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > continue< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Writing resource %d type %d owner %s\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_resources< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ].< / span > < span class = "element-syntax" > irsrc< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > )?< / span > < span class = "string-syntax" > "yes"< / span > < span class = "plain-syntax" > :< / span > < span class = "string-syntax" > "no"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_resource_holder< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > = & (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_resources< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > n< / 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" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_text_stream< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > STRING_IRSRC< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_3_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Write a string resource< / span > < span class = "named-paragraph-number" > 1.1.3.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_symbols_table< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > SYMBOLS_TABLE_IRSRC< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_3_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Write a symbols table resource< / span > < span class = "named-paragraph-number" > 1.1.3.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_package< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > PACKAGE_IRSRC< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_3_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Write a package resource< / span > < span class = "named-paragraph-number" > 1.1.3.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > FRAME_LIST_IRSRC< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "3-iibf.html#SP1_1_3_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Write a frame list resource< / span > < span class = "named-paragraph-number" > 1.1.3.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1" > § 1.1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_4_1" class = "paragraph-anchor" > < / a > < b > § 1.4.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read a string resource< / span > < span class = "named-paragraph-number" > 1.4.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_text_stream< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::new< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > L< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > unsigned< / 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" > L< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_text_stream< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_4" > § 1.4< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_3_1" class = "paragraph-anchor" > < / a > < b > § 1.1.3.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write a string resource< / span > < span class = "named-paragraph-number" > 1.1.3.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_text_stream< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_text_stream< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ));< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1_3" > § 1.1.3< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_4_2" class = "paragraph-anchor" > < / a > < b > § 1.4.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read a symbols table resource< / span > < span class = "named-paragraph-number" > 1.4.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-04-15 00:57:48 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_symbols_table< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_symbols_table< / span > < span class = "plain-syntax" > = < / span > < a href = "2-st.html#SP2" class = "function-link" > < span class = "function-syntax" > InterSymbolsTables::new< / span > < / a > < span class = "plain-syntax" > ();< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / 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" > X< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > st< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > st< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > sc< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > sc< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > uniq< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > uniq< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > L< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > unsigned< / 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" > L< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > );< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > trans< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > unsigned< / 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" > L< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > trans< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-04-15 00:57:48 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > = < / span > < a href = "2-st.html#SP4" class = "function-link" > < span class = "function-syntax" > InterSymbolsTables::symbol_from_name_creating_at_ID< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_symbols_table< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-sym.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::set_type< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > st< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-sym.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::set_scope< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > sc< / 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" > uniq< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-sym.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::set_flag< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > MAKE_NAME_UNIQUE< / 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" > trans< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-sym.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::set_translate< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > trans< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > unsigned< / 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" > L< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c1< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > c2< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > c1< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > c2< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_annotation< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > IA< / span > < span class = "plain-syntax" > = < / span > < a href = "2-ann.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Annotations::from_bytecode< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > c1< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > c2< / 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-ann.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Annotations::is_invalid< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > IA< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "invalid annotation"< / 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" > grid< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-dfn.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Defn::transpose_annotation< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > IA< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > grid_extent< / 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-sym.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::annotate< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > IA< / span > < span class = "plain-syntax" > );< / 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#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::get_scope< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > ) == < / span > < span class = "constant-syntax" > PLUG_ISYMS< / span > < span class = "plain-syntax" > ) {< / span >
2022-01-04 01:40:23 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > c< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
2022-01-04 01:40:23 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > , (< / span > < span class = "identifier-syntax" > wchar_t< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2022-01-04 01:40:23 +02:00
< span class = "plain-syntax" > < / span > < a href = "2-cnn.html#SP1" class = "function-link" > < span class = "function-syntax" > Wiring::wire_to_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< 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_BINARY< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Read symbol $3\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > );< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > trans< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_4" > § 1.4< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_3_2" class = "paragraph-anchor" > < / a > < b > § 1.1.3.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write a symbols table resource< / span > < span class = "named-paragraph-number" > 1.1.3.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< 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" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_symbols_table< / 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" > T< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-09 15:07:39 +03:00
< 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 = "function-syntax" > < T-> < / span > < span class = "element-syntax" > size< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2020-05-03 03:01:21 +03:00
< 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 > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > symbol_array< / 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" > 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 = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > symbol_ID< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-sym.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::get_type< / 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 = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-sym.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::get_scope< / 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#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::get_flag< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > MAKE_NAME_UNIQUE< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / 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" > else< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::len< / 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 = "identifier-syntax" > LOOP_THROUGH_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / 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 = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > translate_text< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > translate_text< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < a href = "2-ann.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Annotations::set_to_bytecode< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ann_set< / 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#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Symbols::get_scope< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ) == < / span > < span class = "constant-syntax" > PLUG_ISYMS< / span > < span class = "plain-syntax" > ) {< / span >
2022-01-04 01:40:23 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < a href = "2-cnn.html#SP1" class = "function-link" > < span class = "function-syntax" > Wiring::wired_to_name< / 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 = "identifier-syntax" > LOOP_THROUGH_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1_3" > § 1.1.3< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_4_3" class = "paragraph-anchor" > < / a > < b > § 1.4.3. < / b > And similarly for packages.
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read a package resource< / span > < span class = "named-paragraph-number" > 1.4.3< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > cl< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > cl< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > rl< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > rl< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > sc< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > sc< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > parent< / 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" > p< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > parent< / span > < span class = "plain-syntax" > = < / span > < a href = "2-tw.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Warehouse::get_package< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > grid< / 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" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_package< / 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" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_package< / span > < span class = "plain-syntax" > = < / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::new< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > );< / 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" > cl< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::make_codelike< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_package< / 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" > rl< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::make_rootlike< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_package< / 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" > sc< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > sc< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > sc< / span > < span class = "plain-syntax" > ];< / span >
< span class = "plain-syntax" > < / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::set_scope< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_package< / span > < span class = "plain-syntax" > , < / span > < a href = "2-tw.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Warehouse::get_symbols_table< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > sc< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > }< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > L< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > unsigned< / 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" > L< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::set_name< / span > < / a > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > parent< / span > < span class = "plain-syntax" > )?(< / span > < span class = "identifier-syntax" > parent< / span > < span class = "plain-syntax" > ):(< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > root_package< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_package< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > );< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > )< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_4" > § 1.4< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_3_3" class = "paragraph-anchor" > < / a > < b > § 1.1.3.3. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write a package resource< / span > < span class = "named-paragraph-number" > 1.1.3.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_package< / 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" > P< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > par< / span > < span class = "plain-syntax" > = < / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::parent< / 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" > par< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / 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" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > par< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > index_n< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::is_codelike< / 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 = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::is_rootlike< / 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 = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > package_scope< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > n_index< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > package_name_t< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > C< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > package_name_t< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > C< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1_3" > § 1.1.3< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_4_4" class = "paragraph-anchor" > < / a > < b > § 1.4.4. < / b > We do nothing here, because frame lists are built new on reading. It's
2019-03-17 14:40:57 +02:00
enough that the slot exists for the eventual list to be stored in.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read a frame list resource< / span > < span class = "named-paragraph-number" > 1.4.4< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-04-21 01:43:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_frame_list< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_frame_list< / span > < span class = "plain-syntax" > = < / span > < a href = "2-inl.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::ListLiterals::new< / span > < / a > < span class = "plain-syntax" > ();< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_4" > § 1.4< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_3_4" class = "paragraph-anchor" > < / a > < b > § 1.1.3.4. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write a frame list resource< / span > < span class = "named-paragraph-number" > 1.1.3.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1_3" > § 1.1.3< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_5" class = "paragraph-anchor" > < / a > < b > § 1.5. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read the symbol equations< / span > < span class = "named-paragraph-number" > 1.5< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / 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" > X< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / 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" > grid< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ];< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbols_table< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > from_T< / span > < span class = "plain-syntax" > = < / span > < a href = "2-tw.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Warehouse::get_symbols_table< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X< / 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" > from_T< / 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" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDERR< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "It's %d\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no from_T"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > from_ID< / 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" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > from_ID< / 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" > from_ID< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > to_T_id< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > to_ID< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > to_T_id< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > grid< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > to_T_id< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > to_T_id< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Read eqn %d -> %d\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > to_T_id< / 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" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > to_ID< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbols_table< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > to_T< / span > < span class = "plain-syntax" > = < / span > < a href = "2-tw.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Warehouse::get_symbols_table< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > to_T_id< / 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" > from_T< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no to_T"< / span > < span class = "plain-syntax" > );< / span >
2021-04-15 00:57:48 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > from_S< / span > < span class = "plain-syntax" > = < / span > < a href = "2-st.html#SP6" class = "function-link" > < span class = "function-syntax" > InterSymbolsTables::symbol_from_id< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > from_T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > from_ID< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > from_S< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no from_S"< / span > < span class = "plain-syntax" > );< / span >
2021-04-15 00:57:48 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > to_S< / span > < span class = "plain-syntax" > = < / span > < a href = "2-st.html#SP6" class = "function-link" > < span class = "function-syntax" > InterSymbolsTables::symbol_from_id< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > to_T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > to_ID< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > to_S< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no to_S"< / span > < span class = "plain-syntax" > );< / span >
2022-01-04 01:40:23 +02:00
< span class = "plain-syntax" > < / span > < a href = "2-cnn.html#SP1" class = "function-link" > < span class = "function-syntax" > Wiring::wire_to< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > from_S< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > to_S< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1" > § 1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_4" class = "paragraph-anchor" > < / a > < b > § 1.1.4. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the symbol equations< / span > < span class = "named-paragraph-number" > 1.1.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< 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" > n< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > size< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_resources< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ].< / span > < span class = "element-syntax" > owning_package< / 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" > owner< / span > < span class = "plain-syntax" > ) & & (< / span > < a href = "2-pck.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Packages::tree< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > ) != < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_resource_holder< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > = & (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_resources< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > n< / 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" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_symbols_table< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_symbols_table< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > from_T< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > res< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > stored_symbols_table< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > );< / span >
2020-05-09 15:07:39 +03:00
< 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 = "function-syntax" > < from_T-> < / span > < span class = "element-syntax" > size< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2020-05-03 03:01:21 +03:00
< 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 > < span class = "identifier-syntax" > from_T< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > symbol_array< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2022-01-04 01:40:23 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-cnn.html#SP1" class = "function-link" > < span class = "function-syntax" > Wiring::is_wired< / 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" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > = < / span > < a href = "2-cnn.html#SP1" class = "function-link" > < span class = "function-syntax" > Wiring::wired_to< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > symbol_ID< / span > < span class = "plain-syntax" > );< / span >
2022-01-04 01:40:23 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > owning_table< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > n_index< / 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" > trace_bin< / 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" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Write eqn %d -> %d\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > owning_table< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > n_index< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > symbol_ID< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1" > § 1.1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_6" class = "paragraph-anchor" > < / a > < b > § 1.6. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Read the bytecode< / span > < span class = "named-paragraph-number" > 1.6< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > error_offset< / span > < span class = "plain-syntax" > = (< / span > < span class = "identifier-syntax" > size_t< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ) - < / span > < span class = "constant-syntax" > PREFRAME_SIZE< / 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" > extent< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > X< / 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" > extent< / span > < span class = "plain-syntax" > < < / span > < span class = "constant-syntax" > 2< / span > < span class = "plain-syntax" > ) || ((< / span > < span class = "reserved-syntax" > long< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > extent< / span > < span class = "plain-syntax" > > = < / span > < span class = "identifier-syntax" > max_offset< / span > < span class = "plain-syntax" > )) < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "overlarge line"< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Reading bytecode, extent %d\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > extent< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > owner< / 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" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PID< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > PID< / 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" > grid< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > PID< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > PID< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "PID %d\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PID< / 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" > PID< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > = < / span > < a href = "2-tw.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Warehouse::get_package< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PID< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Owner has ID %d, table %d\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > index_n< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > package_scope< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > n_index< / span > < span class = "plain-syntax" > );< / 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" > P< / span > < span class = "plain-syntax" > = < / span > < a href = "2-tw.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Warehouse::find_room< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > warehouse< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > extent< / span > < span class = "plain-syntax" > -1, & < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > owner< / 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" > extent< / span > < span class = "plain-syntax" > -1; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > word< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > word< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > P< / 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 = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ] = < / span > < span class = "identifier-syntax" > word< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > comment< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > comment< / span > < span class = "plain-syntax" > )) {< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > comment< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-in.html#SP6" class = "function-link" > < span class = "function-syntax" > Inode::attach_comment< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , (< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > comment< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < a href = "3-iibf.html#SP3" class = "function-link" > < span class = "function-syntax" > Inter::Binary::read_error< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ftell< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "bytecode incomplete"< / 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" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Verify\n"< / 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 > < 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" > grid< / 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::transpose_construct< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > grid< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > grid_extent< / 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 = "identifier-syntax" > exit< / span > < span class = "plain-syntax" > (1); }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_type_errors< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / 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-dfn.html#SP4" class = "function-link" > < span class = "function-syntax" > Inter::Defn::verify_construct< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_type_errors< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / 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 = "identifier-syntax" > exit< / span > < span class = "plain-syntax" > (1); }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > trace_bin< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > STDOUT< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Done\n"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-bkm.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Bookmarks::insert< / span > < / a > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > at< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1" > § 1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1_5" class = "paragraph-anchor" > < / a > < b > § 1.1.5. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the bytecode< / span > < span class = "named-paragraph-number" > 1.1.5< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2022-01-25 02:20:07 +02:00
< span class = "plain-syntax" > < / span > < a href = "2-it.html#SP7" class = "function-link" > < span class = "function-syntax" > InterTree::traverse_root_only< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < a href = "3-iibf.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Binary::visitor< / span > < / a > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > fh< / 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#SP8" class = "function-link" > < span class = "function-syntax" > InterTree::traverse< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < a href = "3-iibf.html#SP2" class = "function-link" > < span class = "function-syntax" > Inter::Binary::visitor< / span > < / a > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > fh< / 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 >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "3-iibf.html#SP1_1" > § 1.1< / a > .< / li > < / ul >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP2" class = "paragraph-anchor" > < / a > < b > § 2. < / b > < / p >
2020-05-03 03:01:21 +03:00
< 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::Binary::visitor< / 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::Binary::visitor< / span > < / span > :< br / > < a href = "3-iibf.html#SP1_1_5" > § 1.1.5< / 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_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" > FILE< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > FILE< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > state< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > extent< / span > < span class = "plain-syntax" > + < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ));< / span >
2020-05-11 17:21:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) (< / span > < a href = "2-in.html#SP6" class = "function-link" > < span class = "function-syntax" > Inode::get_package< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > )-> < / span > < span class = "element-syntax" > index_n< / span > < span class = "plain-syntax" > ));< / span >
2020-05-09 15:07:39 +03:00
< 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 = "function-syntax" > < P-> < / span > < span class = "element-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > extent< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++)< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) (< / span > < span class = "identifier-syntax" > P< / 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 = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ]));< / span >
2020-05-11 17:21:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::write_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) (< / span > < a href = "2-in.html#SP6" class = "function-link" > < span class = "function-syntax" > Inode::get_comment< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > )));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2019-07-08 13:21:00 +03:00
< / pre >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3" class = "paragraph-anchor" > < / a > < b > § 3. < / b > Errors in reading binary inter are not recoverable:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< 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::Binary::read_error< / 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::Binary::read_error< / span > < / span > :< br / > < a href = "3-iibf.html#SP1_2" > § 1.2< / a > , < a href = "3-iibf.html#SP1_3" > § 1.3< / a > , < a href = "3-iibf.html#SP1_4" > § 1.4< / a > , < a href = "3-iibf.html#SP1_4_1" > § 1.4.1< / a > , < a href = "3-iibf.html#SP1_4_2" > § 1.4.2< / a > , < a href = "3-iibf.html#SP1_4_3" > § 1.4.3< / a > , < a href = "3-iibf.html#SP1_5" > § 1.5< / a > , < a href = "3-iibf.html#SP1_6" > § 1.6< / 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" > long< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > at< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > err< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > eloc< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > error_offset< / span > < span class = "plain-syntax" > = (< / span > < span class = "identifier-syntax" > size_t< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > at< / span > < span class = "plain-syntax" > ;< / 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 > < a href = "3-ie.html#SP1" class = "function-link" > < span class = "function-syntax" > Inter::Errors::plain< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > err< / 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" > exit< / span > < span class = "plain-syntax" > (1);< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-27 17:50:24 +03:00
< p class = "commentary firstcommentary" > < a id = "SP4" class = "paragraph-anchor" > < / a > < b > § 4. < / b > This tests a file to see if it looks like Inter binary:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Inter::Binary::test_file< / 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 = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > verdict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > FILE< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > BinaryFiles::open_for_reading< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > F< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unsigned< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X< / 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" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) ||< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > ((< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > INTER_SHIBBOLETH< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > verdict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > BinaryFiles::read_int32< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) ||< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > ((< / span > < span class = "constant-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > verdict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BinaryFiles::close< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > fh< / 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" > verdict< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< nav role = "progress" > < div class = "progresscontainer" >
2021-04-25 15:23:45 +03:00
< ul class = "progressbar" > < li class = "progressprev" > < a href = "3-dfn.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "P-wtmd.html" > P< / 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 = "progresscurrent" > iibf< / li > < li class = "progresssection" > < a href = "3-iitf.html" > iitf< / a > < / 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-mtd.html" > mtd< / 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-iitf.html" > ❯ < / a > < / li > < / ul > < / div >
2020-05-03 03:01:21 +03:00
< / nav > <!-- End of weave -->
2019-03-17 14:40:57 +02:00
2020-03-19 02:11:25 +02:00
< / main >
2019-03-17 14:40:57 +02:00
< / body >
< / html >