2019-03-17 14:40:57 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
2019-07-24 23:16:01 +03:00
< title > 3/vi< / title >
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" >
< link href = "inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / head >
< body >
2019-07-24 23:16:01 +03:00
<!-- Weave of '3/idt' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../webs.html" > ★ < / a > < / li > < li > < a href = "index.html" > inter< / a > < / li > < li > < a href = "index.html#3" > Chapter 3: Language Definition< / a > < / li > < li > < b > Inter Data Types< / b > < / li > < / ul > < p class = "purpose" > A primitive notion of data type, below the level of kinds.< / p >
2019-03-17 14:40:57 +02:00
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > typedef< / span > < span class = "plain" > < / span > < span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > inter_data_type< / span > < span class = "plain" > {< / span >
< span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > type_ID< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > reserved_word< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > min_value< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > max_value< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > enumerated< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > MEMORY_MANAGEMENT< / span >
< span class = "plain" > } < / span > < span class = "reserved" > inter_data_type< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > int32_idt< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > unchecked_idt< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The structure inter_data_type is accessed in 4/tkc, 4/tcc2 and here.< / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > < / p >
< pre class = "display" >
< span class = "identifier" > dictionary< / span > < span class = "plain" > *< / span > < span class = "identifier" > idt_lookup< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > ID< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > A< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > B< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > en< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > IDT< / span > < span class = "plain" > = < / span > < span class = "identifier" > CREATE< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_data_type< / span > < span class = "plain" > );< / span >
< span class = "identifier" > IDT< / span > < span class = "plain" > -< / span > < span class = "element" > > type_ID< / span > < span class = "plain" > = < / span > < span class = "identifier" > ID< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > IDT< / span > < span class = "plain" > -< / span > < span class = "element" > > reserved_word< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > IDT< / span > < span class = "plain" > -< / span > < span class = "element" > > min_value< / span > < span class = "plain" > = < / span > < span class = "identifier" > A< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > IDT< / span > < span class = "plain" > -< / span > < span class = "element" > > max_value< / span > < span class = "plain" > = < / span > < span class = "identifier" > B< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > IDT< / span > < span class = "plain" > -< / span > < span class = "element" > > enumerated< / span > < span class = "plain" > = < / span > < span class = "identifier" > en< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > idt_lookup< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > idt_lookup< / span > < span class = "plain" > = < / span > < span class = "identifier" > Dictionaries::new< / span > < span class = "plain" > (128, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Dictionaries::create< / span > < span class = "plain" > (< / span > < span class = "identifier" > idt_lookup< / span > < span class = "plain" > , < / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Dictionaries::write_value< / span > < span class = "plain" > (< / span > < span class = "identifier" > idt_lookup< / span > < span class = "plain" > , < / span > < span class = "identifier" > name< / span > < span class = "plain" > , (< / span > < span class = "reserved" > void< / span > < span class = "plain" > *) < / span > < span class = "identifier" > IDT< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > IDT< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Types::is_enumerated< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > idt< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > idt< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > idt< / span > < span class = "plain" > -< / span > < span class = "element" > > enumerated< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Inter::Types::find_by_ID< / span > < span class = "plain" > (< / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > ID< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > IDT< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOOP_OVER< / span > < span class = "plain" > (< / span > < span class = "identifier" > IDT< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_data_type< / span > < span class = "plain" > )< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > ID< / span > < span class = "plain" > == < / span > < span class = "identifier" > IDT< / span > < span class = "plain" > -< / span > < span class = "element" > > type_ID< / span > < span class = "plain" > )< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > IDT< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Inter::Types::find_by_name< / span > < span class = "plain" > (< / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > name< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > dict_entry< / span > < span class = "plain" > *< / span > < span class = "identifier" > de< / span > < span class = "plain" > = < / span > < span class = "identifier" > Dictionaries::find< / span > < span class = "plain" > (< / span > < span class = "identifier" > idt_lookup< / span > < span class = "plain" > , < / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > de< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_data_type< / span > < span class = "plain" > *) < / span > < span class = "identifier" > Dictionaries::read_value< / span > < span class = "plain" > (< / span > < span class = "identifier" > idt_lookup< / span > < span class = "plain" > , < / span > < span class = "identifier" > name< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-09-07 22:43:31 +03:00
< span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Types::transpose_value< / span > < span class = "plain" > (< / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > V1< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > V2< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > *< / span > < span class = "identifier" > grid< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > grid_extent< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_message< / span > < span class = "plain" > **< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > switch< / span > < span class = "plain" > (< / span > < span class = "identifier" > V1< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > DWORD_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > PDWORD_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > LITERAL_TEXT_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > REAL_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > GLOB_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > DIVIDER_IVAL< / span > < span class = "plain" > :< / span >
< span class = "identifier" > V2< / span > < span class = "plain" > = < / span > < span class = "identifier" > grid< / span > < span class = "plain" > [< / span > < span class = "identifier" > V2< / span > < span class = "plain" > ];< / span >
< span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > inter_error_message< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Inter::Types::verify< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > V1< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > V2< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_symbols_table< / span > < span class = "plain" > *< / span > < span class = "identifier" > scope< / span > < span class = "plain" > ) {< / span >
2019-09-07 22:43:31 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > suppress_type_errors< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > switch< / span > < span class = "plain" > (< / span > < span class = "identifier" > V1< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > LITERAL_IVAL< / span > < span class = "plain" > : {< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > idt< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Kind::data_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > idt< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > I< / span > < span class = "plain" > = (< / span > < span class = "constant" > signed_inter_t< / span > < span class = "plain" > ) < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ;< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > I< / span > < span class = "plain" > < < / span > < span class = "identifier" > idt< / span > < span class = "plain" > -< / span > < span class = "element" > > min_value< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > I< / span > < span class = "plain" > > < / span > < span class = "identifier" > idt< / span > < span class = "plain" > -< / span > < span class = "element" > > max_value< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Node::error< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "value out of range"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Node::error< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "unknown kind for value"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > ALIAS_IVAL< / span > < span class = "plain" > : {< / span >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > symb< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::SymbolsTables::symbol_from_id< / span > < span class = "plain" > (< / span > < span class = "identifier" > scope< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > );< / span >
2019-04-04 12:34:17 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "No such symbol when verifying memory inter\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "V2 is %08x\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "IST is $4\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > scope< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "(did you forget to make the package type enclosing?)\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Node::error< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "no such symbol"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
2019-04-04 12:34:17 +03:00
< span class = "plain" > }< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Symbols::is_predeclared< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Symbols::is_extern< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Symbols::definition< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Node::error< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "undefined symbol"< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > -< / span > < span class = "element" > > symbol_name< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > idt< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Kind::data_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > idt< / span > < span class = "plain" > == < / span > < span class = "identifier" > unchecked_idt< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > INSTANCE_IST< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Instance::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / 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" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > CONSTANT_IST< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Constant::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / 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" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > LOCAL_IST< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Local::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / 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" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > VARIABLE_IST< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Variable::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / 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" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > PROPERTY_IST< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Property::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Node::error< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "nonconstant symbol"< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > -< / span > < span class = "element" > > 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 = "functiontext" > Inter::Kind::is_a< / span > < span class = "plain" > (< / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > , < / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > STDERR< / span > < span class = "plain" > , < / span > < span class = "string" > "cks %S, ks %S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > -< / span > < span class = "element" > > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > -< / span > < span class = "element" > > symbol_name< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Node::error< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "value of wrong kind"< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > -< / span > < span class = "element" > > symbol_name< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > DWORD_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > PDWORD_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > LITERAL_TEXT_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > REAL_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > GLOB_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > UNDEF_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > DIVIDER_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Node::error< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "value of unknown category"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
2019-07-22 02:01:18 +03:00
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Inter::Types::value_to_constant_symbol_kind< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_symbols_table< / span > < span class = "plain" > *< / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > V1< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > symb< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::SymbolsTables::symbol_from_data_pair_and_table< / span > < span class = "plain" > (< / span > < span class = "identifier" > V1< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > , < / span > < span class = "identifier" > T< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > ) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Symbols::definition< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > INSTANCE_IST< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Instance::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / 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" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > CONSTANT_IST< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Constant::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > ckind_symbol< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Inter::Types::create is used in < a href = "#SP4" > § 4< / a > .< / p >
2019-06-26 19:27:54 +03:00
< p class = "endnote" > The function Inter::Types::is_enumerated is used in < a href = "#SP3" > § 3< / a > , 4/tkc (< a href = "4-tkc.html#SP2" > § 2< / a > ), 4/tic (< a href = "4-tic.html#SP2" > § 2< / a > ), 4/tpc6 (< a href = "4-tpc6.html#SP2" > § 2< / a > ).< / p >
2019-03-17 14:40:57 +02:00
2019-07-24 23:16:01 +03:00
< p class = "endnote" > The function Inter::Types::find_by_ID is used in 3/vi (< a href = "3-vi.html#SP1" > § 1< / a > ), 4/tkc (< a href = "4-tkc.html#SP2" > § 2< / a > ).< / p >
2019-03-17 14:40:57 +02:00
2019-07-24 23:16:01 +03:00
< p class = "endnote" > The function Inter::Types::find_by_name is used in 3/iitf (< a href = "3-iitf.html#SP1" > § 1< / a > ).< / p >
2019-03-17 14:40:57 +02:00
2019-09-07 22:43:31 +03:00
< p class = "endnote" > The function Inter::Types::transpose_value is used in 4/tcc2 (< a href = "4-tcc2.html#SP2" > § 2< / a > ), 5/tvc (< a href = "5-tvc.html#SP2" > § 2< / a > ).< / p >
2019-07-24 23:16:01 +03:00
< p class = "endnote" > The function Inter::Types::verify is used in 3/vi (< a href = "3-vi.html#SP1" > § 1< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< p class = "endnote" > The function Inter::Types::value_to_constant_symbol_kind is used in 4/tcc2 (< a href = "4-tcc2.html#SP2" > § 2< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP3" > < / a > < b > § 3. < / b > < / p >
< pre class = "definitions" >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > LITERAL_IVAL< / span > < span class = "definitionkeyword" > from < / span > < span class = "constant" > 0x10000< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > LITERAL_TEXT_IVAL< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > REAL_IVAL< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > ALIAS_IVAL< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > UNDEF_IVAL< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > DWORD_IVAL< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > PDWORD_IVAL< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > GLOB_IVAL< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > DIVIDER_IVAL< / span >
< / pre >
< pre class = "display" >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Types::write< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUTPUT_STREAM< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > ,< / span >
2019-03-17 14:40:57 +02:00
< span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > V1< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > V2< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_symbols_table< / span > < span class = "plain" > *< / span > < span class = "identifier" > scope< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > hex_flag< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > switch< / span > < span class = "plain" > (< / span > < span class = "identifier" > V1< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > LITERAL_IVAL< / span > < span class = "plain" > :< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > hex_flag< / span > < span class = "plain" > ) < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "0x%x"< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "%d"< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / 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 = "constant" > REAL_IVAL< / span > < span class = "plain" > :< / span >
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "r\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Constant::write_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUT< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Node::ID_to_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ));< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / 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 = "constant" > LITERAL_TEXT_IVAL< / span > < span class = "plain" > :< / span >
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Constant::write_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUT< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Node::ID_to_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ));< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / 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 = "constant" > ALIAS_IVAL< / span > < span class = "plain" > : {< / span >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > symb< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::SymbolsTables::symbol_from_id< / span > < span class = "plain" > (< / span > < span class = "identifier" > scope< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > ) < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "%S"< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > -< / span > < span class = "element" > > symbol_name< / span > < span class = "plain" > ); < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "< invalid-symbol> "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > UNDEF_IVAL< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "undef"< / 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 = "constant" > GLOB_IVAL< / span > < span class = "plain" > :< / span >
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "& \< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Constant::write_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUT< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Node::ID_to_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ));< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / 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 = "constant" > DWORD_IVAL< / span > < span class = "plain" > :< / span >
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "dw'"< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Constant::write_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUT< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Node::ID_to_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ));< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "'"< / 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 = "constant" > PDWORD_IVAL< / span > < span class = "plain" > :< / span >
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "dwp'"< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Constant::write_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUT< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Node::ID_to_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ));< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "'"< / 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 = "constant" > DIVIDER_IVAL< / span > < span class = "plain" > :< / span >
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "^\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Constant::write_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUT< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Node::ID_to_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "identifier" > V2< / span > < span class = "plain" > ));< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > default< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "< invalid-value-type> "< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > inter_error_message< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Inter::Types::read< / span > < span class = "plain" > (< / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > line< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_tree< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > kind_symbol< / 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 = "constant" > inter_t< / span > < span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_symbols_table< / span > < span class = "plain" > *< / span > < span class = "identifier" > scope< / 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" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "undef"< / span > < span class = "plain" > )) {< / span >
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > UNDEF_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = 0; < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > Str::begins_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > )) & & (< / span > < span class = "identifier" > Str::ends_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > ))) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > LITERAL_TEXT_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::create_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), < / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::get_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Constant::parse_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , 1, < / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > )-2, < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > Str::begins_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "r\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > )) & & (< / span > < span class = "identifier" > Str::ends_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > ))) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > REAL_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::create_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), < / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::get_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Constant::parse_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , 2, < / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > )-2, < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > Str::begins_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "& \< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > )) & & (< / span > < span class = "identifier" > Str::ends_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > ))) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > GLOB_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::create_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), < / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::get_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Constant::parse_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , 2, < / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > )-2, < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > Str::begins_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "dw'"< / span > < span class = "plain" > )) & & (< / span > < span class = "identifier" > Str::ends_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "'"< / span > < span class = "plain" > ))) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > DWORD_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::create_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), < / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::get_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Constant::parse_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , 3, < / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > )-2, < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > Str::begins_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "dwp'"< / span > < span class = "plain" > )) & & (< / span > < span class = "identifier" > Str::ends_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "'"< / span > < span class = "plain" > ))) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > PDWORD_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::create_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), < / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::get_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Constant::parse_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > glob_storage< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , 4, < / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > )-2, < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > Str::begins_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "^\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > )) & & (< / span > < span class = "identifier" > Str::ends_with_wide_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > L< / span > < span class = "string" > "\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > ))) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > DIVIDER_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::create_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), < / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > divider_storage< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::get_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Tree::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ), *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Constant::parse_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > divider_storage< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , 2, < / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > )-2, < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > inter_data_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > idt< / span > < span class = "plain" > = < / span > < span class = "identifier" > int32_idt< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > ) < / span > < span class = "identifier" > idt< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Kind::data_type< / span > < span class = "plain" > (< / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > );< / span >
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > symb< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::SymbolsTables::symbol_from_name< / span > < span class = "plain" > (< / span > < span class = "identifier" > scope< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > ) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Symbols::definition< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Symbols::is_predeclared< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > )) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Symbols::to_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > , < / span > < span class = "identifier" > val1< / span > < span class = "plain" > , < / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Symbols::is_extern< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > )) {< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Symbols::to_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > , < / span > < span class = "identifier" > val1< / span > < span class = "plain" > , < / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "undefined symbol"< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > LOCAL_IST< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > kind_loc< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Local::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Kind::is_a< / span > < span class = "plain" > (< / span > < span class = "identifier" > kind_loc< / span > < span class = "plain" > , < / span > < span class = "identifier" > kind_symbol< / 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" > err< / span > < span class = "plain" > = < / span > < span class = "identifier" > Str::new< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > err< / span > < span class = "plain" > , < / span > < span class = "string" > "local has kind %S which is not a %S"< / span > < span class = "plain" > ,< / span >
< span class = "plain" > (< / span > < span class = "identifier" > kind_loc< / span > < span class = "plain" > )?(< / span > < span class = "identifier" > kind_loc< / span > < span class = "plain" > -< / span > < span class = "element" > > symbol_name< / span > < span class = "plain" > ):< / span > < span class = "identifier" > I< / span > < span class = "string" > "< none> "< / span > < span class = "plain" > ,< / span >
< span class = "plain" > (< / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > )?(< / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > -< / span > < span class = "element" > > symbol_name< / span > < span class = "plain" > ):< / span > < span class = "identifier" > I< / span > < span class = "string" > "< none> "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > err< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Symbols::to_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > , < / span > < span class = "identifier" > val1< / span > < span class = "plain" > , < / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "constant" > CONSTANT_IST< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > kind_const< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Constant::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Kind::is_a< / span > < span class = "plain" > (< / span > < span class = "identifier" > kind_const< / span > < span class = "plain" > , < / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "symbol has the wrong kind"< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Symbols::to_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > , < / span > < span class = "identifier" > val1< / span > < span class = "plain" > , < / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Types::is_enumerated< / span > < span class = "plain" > (< / span > < span class = "identifier" > idt< / span > < span class = "plain" > )) {< / span >
< span class = "reserved" > inter_error_message< / span > < span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > ;< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > symb< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Textual::find_symbol< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "identifier" > scope< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "constant" > INSTANCE_IST< / span > < span class = "plain" > , & < / span > < span class = "identifier" > E< / 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" > E< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > E< / span > < span class = "plain" > ;< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Symbols::definition< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "undefined symbol"< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > kind_const< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Instance::kind_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Kind::is_a< / span > < span class = "plain" > (< / span > < span class = "identifier" > kind_const< / span > < span class = "plain" > , < / span > < span class = "identifier" > kind_symbol< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "symbol has the wrong kind"< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Symbols::to_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > , < / span > < span class = "identifier" > val1< / span > < span class = "plain" > , < / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Symbols::to_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > symb< / span > < span class = "plain" > , < / span > < span class = "identifier" > val1< / span > < span class = "plain" > , < / span > < span class = "identifier" > val2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > sign< / span > < span class = "plain" > = 1, < / span > < span class = "identifier" > base< / span > < span class = "plain" > = 10, < / span > < span class = "identifier" > from< / span > < span class = "plain" > = 0;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::prefix_eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "-"< / span > < span class = "plain" > , 1)) { < / span > < span class = "identifier" > sign< / span > < span class = "plain" > = -1; < / span > < span class = "identifier" > from< / span > < span class = "plain" > = 1; }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::prefix_eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "0b"< / span > < span class = "plain" > , 2)) { < / span > < span class = "identifier" > base< / span > < span class = "plain" > = 2; < / span > < span class = "identifier" > from< / span > < span class = "plain" > = 2; }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::prefix_eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "0x"< / span > < span class = "plain" > , 2)) { < / span > < span class = "identifier" > base< / span > < span class = "plain" > = 16; < / span > < span class = "identifier" > from< / span > < span class = "plain" > = 2; }< / span >
< span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > N< / 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 = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "element" > .index< / span > < span class = "plain" > < < / span > < span class = "identifier" > from< / span > < span class = "plain" > ) < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / 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 = "identifier" > d< / span > < span class = "plain" > = 0;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > c< / span > < span class = "plain" > > = < / span > < span class = "character" > 'a'< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > c< / span > < span class = "plain" > < = < / span > < span class = "character" > 'z'< / span > < span class = "plain" > )) < / span > < span class = "identifier" > d< / span > < span class = "plain" > = < / span > < span class = "identifier" > c< / span > < span class = "plain" > -< / span > < span class = "character" > 'a'< / span > < span class = "plain" > +10;< / span >
< span class = "reserved" > else< / 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" > 'A'< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > c< / span > < span class = "plain" > < = < / span > < span class = "character" > 'Z'< / span > < span class = "plain" > )) < / span > < span class = "identifier" > d< / span > < span class = "plain" > = < / span > < span class = "identifier" > c< / span > < span class = "plain" > -< / span > < span class = "character" > 'A'< / span > < span class = "plain" > +10;< / span >
< span class = "reserved" > else< / 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" > '0'< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > c< / span > < span class = "plain" > < = < / span > < span class = "character" > '9'< / span > < span class = "plain" > )) < / span > < span class = "identifier" > d< / span > < span class = "plain" > = < / span > < span class = "identifier" > c< / span > < span class = "plain" > -< / span > < span class = "character" > '0'< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "bad digit"< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > d< / span > < span class = "plain" > > < / span > < span class = "identifier" > base< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "bad digit for this number base"< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "identifier" > N< / span > < span class = "plain" > = < / span > < span class = "identifier" > base< / span > < span class = "plain" > *< / span > < span class = "identifier" > N< / span > < span class = "plain" > + (< / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > d< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "element" > .index< / span > < span class = "plain" > > 34) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "value out of range"< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "identifier" > N< / span > < span class = "plain" > = < / span > < span class = "identifier" > sign< / span > < span class = "plain" > *< / span > < span class = "identifier" > N< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > idt< / span > < span class = "plain" > ) & & ((< / span > < span class = "identifier" > N< / span > < span class = "plain" > < < / span > < span class = "identifier" > idt< / span > < span class = "plain" > -< / span > < span class = "element" > > min_value< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > N< / span > < span class = "plain" > > < / span > < span class = "identifier" > idt< / span > < span class = "plain" > -< / span > < span class = "element" > > max_value< / span > < span class = "plain" > )))< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Errors::quoted< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "value out of range"< / span > < span class = "plain" > , < / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > LITERAL_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = (< / span > < span class = "constant" > inter_t< / span > < span class = "plain" > ) < / span > < span class = "identifier" > N< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Types::read_I6_decimal< / 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 = "constant" > inter_t< / span > < span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > sign< / span > < span class = "plain" > = 1, < / span > < span class = "identifier" > base< / span > < span class = "plain" > = 10, < / span > < span class = "identifier" > from< / span > < span class = "plain" > = 0;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::prefix_eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "-"< / span > < span class = "plain" > , 1)) { < / span > < span class = "identifier" > sign< / span > < span class = "plain" > = -1; < / span > < span class = "identifier" > from< / span > < span class = "plain" > = 1; }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::prefix_eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "$"< / span > < span class = "plain" > , 1)) { < / span > < span class = "identifier" > base< / span > < span class = "plain" > = 16; < / span > < span class = "identifier" > from< / span > < span class = "plain" > = 1; }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::prefix_eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "$$"< / span > < span class = "plain" > , 2)) { < / span > < span class = "identifier" > base< / span > < span class = "plain" > = 2; < / span > < span class = "identifier" > from< / span > < span class = "plain" > = 2; }< / span >
< span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > N< / 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 = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "element" > .index< / span > < span class = "plain" > < < / span > < span class = "identifier" > from< / span > < span class = "plain" > ) < / span > < span class = "reserved" > continue< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / 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 = "identifier" > d< / span > < span class = "plain" > = 0;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > c< / span > < span class = "plain" > > = < / span > < span class = "character" > 'a'< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > c< / span > < span class = "plain" > < = < / span > < span class = "character" > 'z'< / span > < span class = "plain" > )) < / span > < span class = "identifier" > d< / span > < span class = "plain" > = < / span > < span class = "identifier" > c< / span > < span class = "plain" > -< / span > < span class = "character" > 'a'< / span > < span class = "plain" > +10;< / span >
< span class = "reserved" > else< / 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" > 'A'< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > c< / span > < span class = "plain" > < = < / span > < span class = "character" > 'Z'< / span > < span class = "plain" > )) < / span > < span class = "identifier" > d< / span > < span class = "plain" > = < / span > < span class = "identifier" > c< / span > < span class = "plain" > -< / span > < span class = "character" > 'A'< / span > < span class = "plain" > +10;< / span >
< span class = "reserved" > else< / 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" > '0'< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > c< / span > < span class = "plain" > < = < / span > < span class = "character" > '9'< / span > < span class = "plain" > )) < / span > < span class = "identifier" > d< / span > < span class = "plain" > = < / span > < span class = "identifier" > c< / span > < span class = "plain" > -< / span > < span class = "character" > '0'< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > return< / 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" > d< / span > < span class = "plain" > > < / span > < span class = "identifier" > base< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > N< / span > < span class = "plain" > = < / span > < span class = "identifier" > base< / span > < span class = "plain" > *< / span > < span class = "identifier" > N< / span > < span class = "plain" > + (< / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > long< / span > < span class = "plain" > < / span > < span class = "reserved" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > d< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "element" > .index< / span > < span class = "plain" > > 34) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "identifier" > N< / span > < span class = "plain" > = < / span > < span class = "identifier" > sign< / span > < span class = "plain" > *< / span > < span class = "identifier" > N< / span > < span class = "plain" > ;< / span >
< span class = "plain" > *< / span > < span class = "identifier" > val1< / span > < span class = "plain" > = < / span > < span class = "constant" > LITERAL_IVAL< / span > < span class = "plain" > ; *< / span > < span class = "identifier" > val2< / span > < span class = "plain" > = (< / span > < span class = "constant" > inter_t< / span > < span class = "plain" > ) < / span > < span class = "identifier" > N< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
2019-06-26 19:27:54 +03:00
< p class = "endnote" > The function Inter::Types::write is used in 4/tmc (< a href = "4-tmc.html#SP2" > § 2< / a > ), 4/tdc (< a href = "4-tdc.html#SP2" > § 2< / a > ), 4/tvc2 (< a href = "4-tvc2.html#SP2" > § 2< / a > ), 4/tcc2 (< a href = "4-tcc2.html#SP2" > § 2< / a > ), 4/trc (< a href = "4-trc.html#SP2" > § 2< / a > ), 4/tic (< a href = "4-tic.html#SP2" > § 2< / a > ), 4/tpc5 (< a href = "4-tpc5.html#SP2" > § 2< / a > ), 5/trc (< a href = "5-trc.html#SP2" > § 2< / a > ), 5/tvc (< a href = "5-tvc.html#SP2" > § 2< / a > ).< / p >
2019-03-17 14:40:57 +02:00
2019-06-26 19:27:54 +03:00
< p class = "endnote" > The function Inter::Types::read is used in 4/tdc (< a href = "4-tdc.html#SP2" > § 2< / a > ), 4/tvc2 (< a href = "4-tvc2.html#SP2" > § 2< / a > ), 4/tcc2 (< a href = "4-tcc2.html#SP2" > § 2< / a > ), 4/trc (< a href = "4-trc.html#SP2" > § 2< / a > ), 4/tic (< a href = "4-tic.html#SP2" > § 2< / a > ), 4/tpc5 (< a href = "4-tpc5.html#SP2" > § 2< / a > ), 5/trc (< a href = "5-trc.html#SP2" > § 2< / a > ), 5/tvc (< a href = "5-tvc.html#SP2" > § 2< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< p class = "endnote" > The function Inter::Types::read_I6_decimal appears nowhere else.< / p >
< p class = "inwebparagraph" > < a id = "SP4" > < / a > < b > § 4. < / b > < / p >
< pre class = "definitions" >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > UNCHECKED_IDT< / span > < span class = "definitionkeyword" > from < / span > < span class = "constant" > 0x60000000< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > INT32_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > INT16_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > INT8_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > INT2_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > ENUM_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > LIST_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > COLUMN_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TABLE_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > TEXT_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > ROUTINE_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > STRUCT_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > RELATION_IDT< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > DESCRIPTION_IDT< / span >
< / pre >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Types::create_all< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > unchecked_idt< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > UNCHECKED_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "unchecked"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "identifier" > int32_idt< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > INT32_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "int32"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > INT16_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "int16"< / span > < span class = "plain" > , -32768, 32767, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > INT8_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "int8"< / span > < span class = "plain" > , -128, 127, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > INT2_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "int2"< / span > < span class = "plain" > , 0, 1, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > ENUM_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "enum"< / span > < span class = "plain" > , 0, 2147483647, < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > LIST_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "list"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > COLUMN_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "column"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > TABLE_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "table"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > TEXT_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "text"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > ROUTINE_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "routine"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > STRUCT_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "struct"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > RELATION_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "relation"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Inter::Types::create< / span > < span class = "plain" > (< / span > < span class = "constant" > DESCRIPTION_IDT< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "description"< / span > < span class = "plain" > , -2147483648, 2147483647, < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Inter::Types::create_all is used in 1/im (< a href = "1-im.html#SP3" > § 3< / a > ).< / p >
< hr class = "tocbar" >
2019-07-24 23:16:01 +03:00
< ul class = "toc" > < li > < a href = "3-vi.html" > Back to 'Verifying Inter'< / a > < / li > < li > < a href = "3-ie.html" > Continue with 'Inter Errors'< / 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 >