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 >
< title > 2/plm< / title >
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
< link href = "inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / head >
< body >
<!-- Weave of '2/rcc' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../webs.html" > ★ < / a > < / li > < li > < a href = "index.html" > codegen< / a > < / li > < li > < a href = "index.html#2" > Chapter 2: Linking< / a > < / li > < li > < b > Resolving Conditional Compilation< / b > < / li > < / ul > < p class = "purpose" > To generate the initial state of storage for variables.< / p >
< ul class = "toc" > < li > < a href = "#SP1" > § 1. Resolution< / a > < / li > < / ul > < hr class = "tocbar" >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Resolution. < / b > < / p >
< pre class = "definitions" >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > MAX_CC_STACK_SIZE< / span > < span class = "plain" > 32< / span >
< / pre >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::RCC::resolve< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_repository< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > dictionary< / span > < span class = "plain" > *< / span > < span class = "identifier" > I6_level_symbols< / span > < span class = "plain" > = < / span > < span class = "identifier" > Dictionaries::new< / span > < span class = "plain" > (1024, < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > );< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > cc_stack< / span > < span class = "plain" > [< / span > < span class = "constant" > MAX_CC_STACK_SIZE< / span > < span class = "plain" > ];< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > = 0;< / span >
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > P< / span > < span class = "plain" > ; < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > frame_count< / span > < span class = "plain" > = 0;< / span >
< span class = "identifier" > LOOP_THROUGH_FRAMES< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > frame_count< / span > < span class = "plain" > ++;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > allow< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > for< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > i< / span > < span class = "plain" > =0; < / span > < span class = "identifier" > i< / span > < span class = "plain" > < < / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > ; < / span > < span class = "identifier" > i< / span > < span class = "plain" > ++) < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > cc_stack< / span > < span class = "plain" > [< / span > < span class = "identifier" > i< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) < / span > < span class = "identifier" > allow< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > outer< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Packages::container< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > outer< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > outer< / span > < span class = "plain" > -> < / span > < span class = "identifier" > codelike_package< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > )) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > SPLAT_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > S< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::get_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > repo_segment< / span > < span class = "plain" > -> < / span > < span class = "identifier" > owning_repo< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > MATTER_SPLAT_IFLD< / span > < span class = "plain" > ]);< / span >
< span class = "reserved" > switch< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > PLM_SPLAT_IFLD< / span > < span class = "plain" > ]) {< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > CONSTANT_PLM< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > GLOBAL_PLM< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > ARRAY_PLM< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > ROUTINE_PLM< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > DEFAULT_PLM< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > STUB_PLM< / span > < span class = "plain" > :< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > allow< / span > < span class = "plain" > ) < / span > < < span class = "cwebmacro" > Symbol definition< / span > < span class = "cwebmacronumber" > 1.1< / span > > < span class = "plain" > ;< / span >
< span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > IFDEF_PLM< / span > < span class = "plain" > : < / span > < < span class = "cwebmacro" > Deal with an IFDEF< / span > < span class = "cwebmacronumber" > 1.2< / span > > < span class = "plain" > ; < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > IFNDEF_PLM< / span > < span class = "plain" > : < / span > < < span class = "cwebmacro" > Deal with an IFNDEF< / span > < span class = "cwebmacronumber" > 1.3< / span > > < span class = "plain" > ; < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > IFTRUE_PLM< / span > < span class = "plain" > : < / span > < < span class = "cwebmacro" > Deal with an IFTRUE< / span > < span class = "cwebmacronumber" > 1.4< / span > > < span class = "plain" > ; < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > IFNOT_PLM< / span > < span class = "plain" > : < / span > < < span class = "cwebmacro" > Deal with an IFNOT< / span > < span class = "cwebmacronumber" > 1.5< / span > > < span class = "plain" > ; < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "identifier" > ENDIF_PLM< / span > < span class = "plain" > : < / span > < < span class = "cwebmacro" > Deal with an ENDIF< / span > < span class = "cwebmacronumber" > 1.6< / span > > < span class = "plain" > ; < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > allow< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Inter::Nop::nop_out< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > != 0)< / span >
< span class = "functiontext" > TemplateReader::error< / span > < span class = "plain" > (< / span > < span class = "string" > "conditional compilation is wrongly structured in the template: not enough #endif"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function CodeGen::RCC::resolve is used in 1/sc (< a href = "1-sc.html#SP4" > § 4< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP_1" > < / a > < b > § .1. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Extract second token into ident< / span > < span class = "cwebmacronumber" > .1< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > tcount< / span > < span class = "plain" > = 0;< / span >
< span class = "identifier" > LOOP_THROUGH_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > wchar_t< / span > < span class = "plain" > < / span > < span class = "identifier" > c< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > ' '< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > '\< / span > < span class = "plain" > t< / span > < span class = "character" > '< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > '\< / span > < span class = "plain" > n< / span > < span class = "character" > '< / span > < span class = "plain" > )) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > tcount< / span > < span class = "plain" > == 1) < / span > < span class = "identifier" > tcount< / span > < span class = "plain" > = 2;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > tcount< / span > < span class = "plain" > == 2) < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > tcount< / span > < span class = "plain" > == 0) < / span > < span class = "identifier" > tcount< / span > < span class = "plain" > = 1;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > ';'< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > '-'< / span > < span class = "plain" > )) < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > tcount< / span > < span class = "plain" > == 2) < / span > < span class = "identifier" > PUT_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > , < / span > < span class = "identifier" > c< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1_1" > § 1.1< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP_1" > < / a > < b > § .1. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Extract rest of text into ident< / span > < span class = "cwebmacronumber" > .1< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > tcount< / span > < span class = "plain" > = 0;< / span >
< span class = "identifier" > LOOP_THROUGH_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > wchar_t< / span > < span class = "plain" > < / span > < span class = "identifier" > c< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > ' '< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > '\< / span > < span class = "plain" > t< / span > < span class = "character" > '< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > '\< / span > < span class = "plain" > n< / span > < span class = "character" > '< / span > < span class = "plain" > )) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > tcount< / span > < span class = "plain" > == 1) < / span > < span class = "identifier" > tcount< / span > < span class = "plain" > = 2;< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > tcount< / span > < span class = "plain" > == 0) < / span > < span class = "identifier" > tcount< / span > < span class = "plain" > = 1;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > ';'< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "character" > '-'< / span > < span class = "plain" > )) < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > tcount< / span > < span class = "plain" > == 2) < / span > < span class = "identifier" > PUT_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > , < / span > < span class = "identifier" > c< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1_2" > § 1.2< / a > , < a href = "#SP1_3" > § 1.3< / a > , < a href = "#SP1_4" > § 1.4< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP1_1" > < / a > < b > § 1.1. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Symbol definition< / span > < span class = "cwebmacronumber" > 1.1< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< < span class = "cwebmacro" > Extract second token into ident< / span > < span class = "cwebmacronumber" > .1< / span > > < span class = "plain" > ;< / span >
< span class = "identifier" > LOGIF< / span > < span class = "plain" > (< / span > < span class = "identifier" > RESOLVING_CONDITIONAL_COMPILATION< / span > < span class = "plain" > , < / span > < span class = "string" > "I6 defines %S here\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Dictionaries::create< / span > < span class = "plain" > (< / span > < span class = "identifier" > I6_level_symbols< / span > < span class = "plain" > , < / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1" > § 1< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP1_2" > < / a > < b > § 1.2. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Deal with an IFDEF< / span > < span class = "cwebmacronumber" > 1.2< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< < span class = "cwebmacro" > Extract rest of text into ident< / span > < span class = "cwebmacronumber" > .1< / span > > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > ident< / span > < span class = "plain" > ;< / span >
< < span class = "cwebmacro" > Decide whether symbol defined< / span > < span class = "cwebmacronumber" > 1.2.1< / span > > < span class = "plain" > ;< / span >
< < span class = "cwebmacro" > Stack up the result< / span > < span class = "cwebmacronumber" > 1.2.2< / span > > < span class = "plain" > ;< / span >
< span class = "identifier" > allow< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1" > § 1< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP1_3" > < / a > < b > § 1.3. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Deal with an IFNDEF< / span > < span class = "cwebmacronumber" > 1.3< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< < span class = "cwebmacro" > Extract rest of text into ident< / span > < span class = "cwebmacronumber" > .1< / span > > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > ident< / span > < span class = "plain" > ;< / span >
< < span class = "cwebmacro" > Decide whether symbol defined< / span > < span class = "cwebmacronumber" > 1.2.1< / span > > < span class = "plain" > ;< / span >
< span class = "identifier" > result< / span > < span class = "plain" > = (< / span > < span class = "identifier" > result< / span > < span class = "plain" > )?< / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > :< / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< < span class = "cwebmacro" > Stack up the result< / span > < span class = "cwebmacronumber" > 1.2.2< / span > > < span class = "plain" > ;< / span >
< span class = "identifier" > allow< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1" > § 1< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP1_2_1" > < / a > < b > § 1.2.1. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Decide whether symbol defined< / span > < span class = "cwebmacronumber" > 1.2.1< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
2019-04-09 18:09:53 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > symbol< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::symbol_from_name_in_main_or_basics< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > symbol< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Inter::Symbols::is_extern< / span > < span class = "plain" > (< / span > < span class = "identifier" > symbol< / span > < span class = "plain" > )) < / span > < span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Dictionaries::find< / span > < span class = "plain" > (< / span > < span class = "identifier" > I6_level_symbols< / span > < span class = "plain" > , < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > )) < / span > < span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOGIF< / span > < span class = "plain" > (< / span > < span class = "identifier" > RESOLVING_CONDITIONAL_COMPILATION< / span > < span class = "plain" > , < / span > < span class = "string" > "Must decide if %S defined: %s\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , (< / span > < span class = "identifier" > result< / span > < span class = "plain" > )?< / span > < span class = "string" > "yes"< / span > < span class = "plain" > :< / span > < span class = "string" > "no"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Log::aspect_switched_on< / span > < span class = "plain" > (< / span > < span class = "constant" > RESOLVING_CONDITIONAL_COMPILATION_DA< / span > < span class = "plain" > )) < / span > < span class = "identifier" > LOG_INDENT< / span > < span class = "plain" > ;< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1_2" > § 1.2< / a > , < a href = "#SP1_3" > § 1.3< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP1_4" > < / a > < b > § 1.4. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Deal with an IFTRUE< / span > < span class = "cwebmacronumber" > 1.4< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< < span class = "cwebmacro" > Extract rest of text into ident< / span > < span class = "cwebmacronumber" > .1< / span > > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > NOT_APPLICABLE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > cond< / span > < span class = "plain" > = < / span > < span class = "identifier" > ident< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > match_results< / span > < span class = "plain" > < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > = < / span > < span class = "identifier" > Regexp::create_mr< / span > < span class = "plain" > ();< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Regexp::match< / span > < span class = "plain" > (& < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > , < / span > < span class = "identifier" > cond< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > " *(%C+?) *== *(%d+) *"< / span > < span class = "plain" > )) {< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > identifier< / span > < span class = "plain" > = < / span > < span class = "identifier" > mr2< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0];< / span >
2019-04-09 18:09:53 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > symbol< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::symbol_from_name_in_main_or_basics< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > identifier< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > symbol< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Symbols::defining_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > symbol< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > Inter::Frame::valid< / span > < span class = "plain" > (& < / span > < span class = "identifier" > P< / span > < span class = "plain" > )) & & < / span >
< span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > CONSTANT_IST< / span > < span class = "plain" > ) & & < / span >
< span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > FORMAT_CONST_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > CONSTANT_DIRECT< / span > < span class = "plain" > ) & & < / span >
< span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > DATA_CONST_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > LITERAL_IVAL< / span > < span class = "plain" > )) {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > V< / span > < span class = "plain" > = (< / span > < span class = "reserved" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > DATA_CONST_IFLD< / span > < span class = "plain" > + 1];< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::atoi< / span > < span class = "plain" > (< / span > < span class = "identifier" > mr2< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1], 0);< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > V< / span > < span class = "plain" > == < / span > < span class = "identifier" > W< / span > < span class = "plain" > ) < / span > < span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ; < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > result< / span > < span class = "plain" > == < / span > < span class = "identifier" > NOT_APPLICABLE< / span > < span class = "plain" > ) {< / span >
< span class = "functiontext" > TemplateReader::error< / span > < span class = "plain" > (< / span > < span class = "string" > "conditional compilation is too difficult in the template: #iftrue on %S"< / span > < span class = "plain" > , < / span > < span class = "identifier" > cond< / span > < span class = "plain" > );< / span >
< span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "identifier" > LOGIF< / span > < span class = "plain" > (< / span > < span class = "identifier" > RESOLVING_CONDITIONAL_COMPILATION< / span > < span class = "plain" > , < / span > < span class = "string" > "Must decide if %S: "< / span > < span class = "plain" > , < / span > < span class = "identifier" > cond< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOGIF< / span > < span class = "plain" > (< / span > < span class = "identifier" > RESOLVING_CONDITIONAL_COMPILATION< / span > < span class = "plain" > , < / span > < span class = "string" > "%s\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , (< / span > < span class = "identifier" > result< / span > < span class = "plain" > )?< / span > < span class = "string" > "true"< / span > < span class = "plain" > :< / span > < span class = "string" > "false"< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Log::aspect_switched_on< / span > < span class = "plain" > (< / span > < span class = "constant" > RESOLVING_CONDITIONAL_COMPILATION_DA< / span > < span class = "plain" > )) < / span > < span class = "identifier" > LOG_INDENT< / span > < span class = "plain" > ;< / span >
< < span class = "cwebmacro" > Stack up the result< / span > < span class = "cwebmacronumber" > 1.2.2< / span > > < span class = "plain" > ;< / span >
< span class = "identifier" > allow< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > ident< / span > < span class = "plain" > );< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1" > § 1< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP1_2_2" > < / a > < b > § 1.2.2. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Stack up the result< / span > < span class = "cwebmacronumber" > 1.2.2< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > > = < / span > < span class = "constant" > MAX_CC_STACK_SIZE< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > cc_sp< / span > < span class = "plain" > = < / span > < span class = "constant" > MAX_CC_STACK_SIZE< / span > < span class = "plain" > ; < / span > < span class = "functiontext" > TemplateReader::error< / span > < span class = "plain" > (< / span > < span class = "string" > "conditional compilation is wrongly structured in the template: too many nested #ifdef or #iftrue"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > cc_stack< / span > < span class = "plain" > [< / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > ++] = < / span > < span class = "identifier" > result< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1_2" > § 1.2< / a > , < a href = "#SP1_3" > § 1.3< / a > , < a href = "#SP1_4" > § 1.4< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP1_5" > < / a > < b > § 1.5. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Deal with an IFNOT< / span > < span class = "cwebmacronumber" > 1.5< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "identifier" > LOGIF< / span > < span class = "plain" > (< / span > < span class = "identifier" > RESOLVING_CONDITIONAL_COMPILATION< / span > < span class = "plain" > , < / span > < span class = "string" > "ifnot\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > == 0) < / span > < span class = "functiontext" > TemplateReader::error< / span > < span class = "plain" > (< / span > < span class = "string" > "conditional compilation is wrongly structured in the template: #ifnot at top level"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > cc_stack< / span > < span class = "plain" > [< / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > -1] = (< / span > < span class = "identifier" > cc_stack< / span > < span class = "plain" > [< / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > -1])?< / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > :< / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > allow< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1" > § 1< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP1_6" > < / a > < b > § 1.6. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Deal with an ENDIF< / span > < span class = "cwebmacronumber" > 1.6< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Log::aspect_switched_on< / span > < span class = "plain" > (< / span > < span class = "constant" > RESOLVING_CONDITIONAL_COMPILATION_DA< / span > < span class = "plain" > )) < / span > < span class = "identifier" > LOG_OUTDENT< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOGIF< / span > < span class = "plain" > (< / span > < span class = "identifier" > RESOLVING_CONDITIONAL_COMPILATION< / span > < span class = "plain" > , < / span > < span class = "string" > "endif\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "identifier" > cc_sp< / span > < span class = "plain" > --;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > < 0) { < / span > < span class = "identifier" > cc_sp< / span > < span class = "plain" > = 0; < / span > < span class = "functiontext" > TemplateReader::error< / span > < span class = "plain" > (< / span > < span class = "string" > "conditional compilation is wrongly structured in the template: too many #endif"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ); }< / span >
< span class = "identifier" > allow< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP1" > § 1< / a > .< / p >
< hr class = "tocbar" >
< ul class = "toc" > < li > < a href = "2-plm.html" > Back to 'Parse Linked Matter'< / a > < / li > < li > < a href = "2-alm.html" > Continue with 'Assimilate Linked Matter'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-04-22 17:42:10 +03:00
<!-- End of weave -->
2019-03-17 14:40:57 +02:00
< / body >
< / html >