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-03-25 01:27:44 +02:00
< title > 5/tcc2< / 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 >
<!-- Weave of '5/tsc' 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#5" > Chapter 5: Code Constructs< / a > < / li > < li > < b > The Splat Construct< / b > < / li > < / ul > < p class = "purpose" > Defining the splat construct.< / p >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. < / b > < / p >
< pre class = "definitions" >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > SPLAT_IST< / span >
< / pre >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Splat::define< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Defn::create_construct< / span > < span class = "plain" > (< / span >
< span class = "constant" > SPLAT_IST< / span > < span class = "plain" > ,< / span >
< span class = "identifier" > L< / span > < span class = "string" > "splat (%C*) *& \< / span > < span class = "plain" > "< / span > < span class = "string" > (%c*)\< / span > < span class = "plain" > "< / span > < span class = "string" > "< / span > < span class = "plain" > ,< / span >
< span class = "identifier" > I< / span > < span class = "string" > "splat"< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "splats"< / span > < span class = "plain" > );< / span >
< span class = "identifier" > IC< / span > < span class = "plain" > -< / span > < span class = "element" > > min_level< / span > < span class = "plain" > = 0;< / span >
< span class = "identifier" > IC< / span > < span class = "plain" > -< / span > < span class = "element" > > max_level< / span > < span class = "plain" > = 100000000;< / span >
< span class = "identifier" > IC< / span > < span class = "plain" > -< / span > < span class = "element" > > usage_permissions< / span > < span class = "plain" > = < / span > < span class = "constant" > OUTSIDE_OF_PACKAGES< / span > < span class = "plain" > + < / span > < span class = "constant" > INSIDE_PLAIN_PACKAGE< / span > < span class = "plain" > + < / span > < span class = "constant" > INSIDE_CODE_PACKAGE< / span > < span class = "plain" > ;< / span >
2019-07-09 08:45:46 +03:00
< span class = "identifier" > METHOD_ADD< / span > < span class = "plain" > (< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "constant" > CONSTRUCT_READ_MTID< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Splat::read< / span > < span class = "plain" > );< / span >
2019-09-07 22:43:31 +03:00
< span class = "identifier" > METHOD_ADD< / span > < span class = "plain" > (< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "constant" > CONSTRUCT_TRANSPOSE_MTID< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Splat::transpose< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03:00
< span class = "identifier" > METHOD_ADD< / span > < span class = "plain" > (< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "constant" > CONSTRUCT_VERIFY_MTID< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Splat::verify< / span > < span class = "plain" > );< / span >
< span class = "identifier" > METHOD_ADD< / span > < span class = "plain" > (< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "constant" > CONSTRUCT_WRITE_MTID< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Inter::Splat::write< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
2019-07-26 10:59:23 +03:00
< p class = "endnote" > The function Inter::Splat::define is used in 3/dfn (< a href = "3-dfn.html#SP3" > § 3< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > < / p >
< pre class = "definitions" >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > BLOCK_SPLAT_IFLD< / span > < span class = "plain" > 2< / span >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > MATTER_SPLAT_IFLD< / span > < span class = "plain" > 3< / span >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > PLM_SPLAT_IFLD< / span > < span class = "plain" > 4< / span >
< span class = "definitionkeyword" > define< / span > < span class = "constant" > EXTENT_SPLAT_IFR< / span > < span class = "plain" > 5< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > IFDEF_PLM< / span > < span class = "definitionkeyword" > from < / span > < span class = "constant" > 1< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > IFNDEF_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > IFNOT_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > ENDIF_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > IFTRUE_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > CONSTANT_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > ARRAY_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > GLOBAL_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > STUB_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > ROUTINE_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > ATTRIBUTE_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > PROPERTY_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > VERB_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > FAKEACTION_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > OBJECT_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > DEFAULT_PLM< / span >
< span class = "definitionkeyword" > enum< / span > < span class = "constant" > MYSTERY_PLM< / span >
< / pre >
< pre class = "display" >
2019-07-14 12:44:07 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Splat::read< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_bookmark< / span > < span class = "plain" > *< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_line_parse< / span > < span class = "plain" > *< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_message< / span > < span class = "plain" > **< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) {< / span >
2019-07-26 10:59:23 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Annotations::exist< / span > < span class = "plain" > (& (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -< / span > < span class = "element" > > set< / span > < span class = "plain" > ))) { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "__annotations are not allowed"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
2019-03-17 14:40:57 +02:00
2019-07-14 12:44:07 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Defn::vet_level< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "constant" > SPLAT_IST< / span > < span class = "plain" > , < / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -< / span > < span class = "element" > > indent_level< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03: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 >
2019-03-17 14:40:57 +02:00
2019-07-27 17:01:50 +03:00
< span class = "reserved" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > routine< / 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" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -< / span > < span class = "element" > > indent_level< / span > < span class = "plain" > > 0) {< / span >
2019-07-27 17:01:50 +03:00
< span class = "identifier" > routine< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Defn::get_latest_block_package< / span > < span class = "plain" > ();< / span >
2019-07-09 08:45:46 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > routine< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "indented 'splat' used outside function"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > plm< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Splat::parse_plm< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -< / span > < span class = "element" > > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [0]);< / span >
2019-07-09 08:45:46 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > plm< / span > < span class = "plain" > == 1000000) { *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Errors::plain< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "unknown PLM code before text matter"< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
2019-03-17 14:40:57 +02:00
2019-07-23 22:07:01 +03:00
< span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > SID< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Warehouse::create_text< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Bookmarks::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "functiontext" > Inter::Bookmarks::package< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ));< / span >
2019-07-24 22:29:29 +03:00
< 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::Bookmarks::warehouse< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "identifier" > SID< / span > < span class = "plain" > );< / span >
2019-07-09 08:45:46 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > E< / 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" > ilp< / span > < span class = "plain" > -< / span > < span class = "element" > > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1], 0, < / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -< / span > < span class = "element" > > mr< / span > < span class = "plain" > .< / span > < span class = "identifier" > exp< / span > < span class = "plain" > [1]), < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (*< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
2019-07-26 21:20:27 +03:00
< span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Splat::new< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "identifier" > SID< / span > < span class = "plain" > , < / span > < span class = "identifier" > plm< / span > < span class = "plain" > , (< / span > < span class = "constant" > inter_t< / span > < span class = "plain" > ) < / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -< / span > < span class = "element" > > indent_level< / span > < span class = "plain" > , < / span > < span class = "identifier" > ilp< / span > < span class = "plain" > -< / span > < span class = "element" > > terminal_comment< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Splat::parse_plm< / 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 = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::len< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > ) == 0) < / span > < span class = "reserved" > return< / span > < span class = "plain" > 0;< / span >
< 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" > "ARRAY"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > ARRAY_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "ATTRIBUTE"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > ATTRIBUTE_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "CONSTANT"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > CONSTANT_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "DEFAULT"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > DEFAULT_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "ENDIF"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > ENDIF_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "FAKEACTION"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > FAKEACTION_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "GLOBAL"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > GLOBAL_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "IFDEF"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > IFDEF_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "IFNDEF"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > IFNDEF_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "IFNOT"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > IFNOT_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "IFTRUE"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > IFTRUE_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "OBJECT"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > OBJECT_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "PROPERTY"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > PROPERTY_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "ROUTINE"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > ROUTINE_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "STUB"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > STUB_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "VERB"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > VERB_PLM< / span > < span class = "plain" > ;< / span >
< 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" > "MYSTERY"< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > MYSTERY_PLM< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > 1000000;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Splat::write_plm< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUTPUT_STREAM< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > plm< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > switch< / span > < span class = "plain" > (< / span > < span class = "identifier" > plm< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > ARRAY_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "ARRAY "< / 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" > ATTRIBUTE_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "ATTRIBUTE "< / 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" > CONSTANT_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "CONSTANT "< / 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" > DEFAULT_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "DEFAULT "< / 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" > ENDIF_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "ENDIF "< / 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" > FAKEACTION_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "FAKEACTION "< / 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" > GLOBAL_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "GLOBAL "< / 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" > IFDEF_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "IFDEF "< / 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" > IFNDEF_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "IFNDEF "< / 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" > IFNOT_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "IFNOT "< / 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" > IFTRUE_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "IFTRUE "< / 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" > OBJECT_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "OBJECT "< / 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" > PROPERTY_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "PROPERTY "< / 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" > ROUTINE_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "ROUTINE "< / 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" > STUB_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "STUB "< / 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" > VERB_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "VERB "< / 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" > MYSTERY_PLM< / span > < span class = "plain" > : < / span > < span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "MYSTERY "< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-07-26 21:20:27 +03:00
< span class = "reserved" > inter_error_message< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Inter::Splat::new< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_bookmark< / span > < span class = "plain" > *< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > SID< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > plm< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > level< / span > < span class = "plain" > , < / span > < span class = "constant" > inter_t< / span > < span class = "plain" > < / span > < span class = "identifier" > ID< / 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 >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Node::fill_3< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "constant" > SPLAT_IST< / span > < span class = "plain" > , 0, < / span > < span class = "identifier" > SID< / span > < span class = "plain" > , < / span > < span class = "identifier" > plm< / span > < span class = "plain" > , < / span > < span class = "identifier" > eloc< / span > < span class = "plain" > , < / span > < span class = "identifier" > level< / 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 = "functiontext" > Inter::Node::attach_comment< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > ID< / span > < span class = "plain" > );< / span >
2019-07-14 12:44:07 +03:00
< span class = "reserved" > inter_error_message< / span > < span class = "plain" > *< / span > < span class = "identifier" > E< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Inter::Defn::verify_construct< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Inter::Bookmarks::package< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > ), < / span > < span class = "identifier" > P< / span > < span class = "plain" > ); < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > E< / span > < span class = "plain" > ;< / span >
2019-07-24 23:16:01 +03:00
< span class = "functiontext" > Inter::Bookmarks::insert< / span > < span class = "plain" > (< / span > < span class = "identifier" > IBM< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / 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-09-07 22:43:31 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Splat::transpose< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "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 = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > MATTER_SPLAT_IFLD< / span > < span class = "plain" > ] = < / span > < span class = "identifier" > grid< / span > < span class = "plain" > [< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > MATTER_SPLAT_IFLD< / span > < span class = "plain" > ]];< / span >
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Splat::verify< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > owner< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_message< / span > < span class = "plain" > **< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > W.extent< / span > < span class = "plain" > != < / span > < span class = "constant" > EXTENT_SPLAT_IFR< / span > < span class = "plain" > ) { *< / span > < span class = "identifier" > E< / 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" > "extent wrong"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > MATTER_SPLAT_IFLD< / span > < span class = "plain" > ] == 0) { *< / span > < span class = "identifier" > E< / 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 matter text"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > PLM_SPLAT_IFLD< / span > < span class = "plain" > ] > < / span > < span class = "constant" > MYSTERY_PLM< / span > < span class = "plain" > ) { *< / span > < span class = "identifier" > E< / 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" > "plm out of range"< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ); < / span > < span class = "reserved" > return< / span > < span class = "plain" > ; }< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
2019-07-24 22:29:29 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Inter::Splat::write< / span > < span class = "plain" > (< / span > < span class = "reserved" > inter_construct< / span > < span class = "plain" > *< / span > < span class = "identifier" > IC< / span > < span class = "plain" > , < / span > < span class = "identifier" > OUTPUT_STREAM< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_tree_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "reserved" > inter_error_message< / span > < span class = "plain" > **< / span > < span class = "identifier" > E< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > WRITE< / span > < span class = "plain" > (< / span > < span class = "string" > "splat "< / span > < span class = "plain" > );< / span >
2019-07-24 22:29:29 +03:00
< span class = "functiontext" > Inter::Splat::write_plm< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUT< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > PLM_SPLAT_IFLD< / 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 >
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" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > -< / span > < span class = "element" > > W.data< / span > < span class = "plain" > [< / span > < span class = "constant" > MATTER_SPLAT_IFLD< / 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 = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Inter::Splat::read is used in < a href = "#SP1" > § 1< / a > .< / p >
< p class = "endnote" > The function Inter::Splat::parse_plm appears nowhere else.< / p >
< p class = "endnote" > The function Inter::Splat::write_plm appears nowhere else.< / p >
< p class = "endnote" > The function Inter::Splat::new appears nowhere else.< / p >
2019-09-07 22:43:31 +03:00
< p class = "endnote" > The function Inter::Splat::transpose is used in < a href = "#SP1" > § 1< / a > .< / p >
2019-03-17 14:40:57 +02:00
< p class = "endnote" > The function Inter::Splat::verify is used in < a href = "#SP1" > § 1< / a > .< / p >
< p class = "endnote" > The function Inter::Splat::write is used in < a href = "#SP1" > § 1< / a > .< / p >
< hr class = "tocbar" >
2019-03-25 01:27:44 +02:00
< ul class = "toc" > < li > < a href = "5-tcc2.html" > Back to 'The Cast Construct'< / a > < / li > < li > < i > (This section ends Chapter 5: Code Constructs.)< / i > < / 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 >