2019-03-17 14:40:57 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > 25/ci< / title >
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
< link href = "inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / head >
< body >
<!-- Weave of '25/ciac' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../webs.html" > ★ < / a > < / li > < li > < a href = "index.html" > core< / a > < / li > < li > < a href = "index.html#25" > Chapter 25: Compilation< / a > < / li > < li > < b > Compile Invocations As Calls< / b > < / li > < / ul > < p class = "purpose" > Here we generate Inform 6 code to execute the phrase(s) called for by an invocation list.< / p >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. < / b > Compiling an invocation by a function call is simple:
< / p >
< pre class = "display" >
2019-08-24 13:21:48 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Invocations::AsCalls::csi_by_call< / span > < span class = "plain" > (< / span > < span class = "identifier" > value_holster< / span > < span class = "plain" > *< / span > < span class = "identifier" > VH< / span > < span class = "plain" > , < / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > inv< / span > < span class = "plain" > ,< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > source_location< / span > < span class = "plain" > *< / span > < span class = "identifier" > where_from< / span > < span class = "plain" > , < / span > < span class = "reserved" > tokens_packet< / span > < span class = "plain" > *< / span > < span class = "identifier" > tokens< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > phrase< / span > < span class = "plain" > *< / span > < span class = "identifier" > ph< / span > < span class = "plain" > = < / span > < span class = "identifier" > ParseTree::get_phrase_invoked< / span > < span class = "plain" > (< / span > < span class = "identifier" > inv< / span > < span class = "plain" > );< / span >
2019-08-24 13:21:48 +03:00
< span class = "identifier" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > IS< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Routines::Compile::iname< / span > < span class = "plain" > (< / span > < span class = "identifier" > ph< / span > < span class = "plain" > ,< / span >
2019-03-17 14:40:57 +02:00
< span class = "functiontext" > Routines::ToPhrases::make_request< / span > < span class = "plain" > (< / span > < span class = "identifier" > ph< / span > < span class = "plain" > , < / span > < span class = "identifier" > tokens< / span > < span class = "plain" > -< / span > < span class = "element" > > as_requested< / span > < span class = "plain" > ,< / span >
< span class = "identifier" > ParseTree::get_kind_variable_declarations< / span > < span class = "plain" > (< / span > < span class = "identifier" > inv< / span > < span class = "plain" > ), < / span > < span class = "identifier" > ParseTree::get_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > inv< / span > < span class = "plain" > )));< / span >
< span class = "identifier" > LOGIF< / span > < span class = "plain" > (< / span > < span class = "identifier" > MATCHING< / span > < span class = "plain" > , < / span > < span class = "string" > "Calling routine %n with kind $u from $e\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > IS< / span > < span class = "plain" > ,< / span >
< span class = "identifier" > tokens< / span > < span class = "plain" > -< / span > < span class = "element" > > as_requested< / span > < span class = "plain" > , < / span > < span class = "identifier" > inv< / span > < span class = "plain" > );< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > options_supplied< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Invocations::get_phrase_options_bitmap< / span > < span class = "plain" > (< / span > < span class = "identifier" > inv< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > ParseTree::get_phrase_options_invoked< / span > < span class = "plain" > (< / span > < span class = "identifier" > inv< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > options_supplied< / span > < span class = "plain" > = -1;< / span >
2019-08-24 13:21:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > VH< / span > < span class = "plain" > -> < / span > < span class = "identifier" > vhmode_wanted< / span > < span class = "plain" > == < / span > < span class = "identifier" > INTER_VAL_VHMODE< / span > < span class = "plain" > ) < / span > < span class = "identifier" > VH< / span > < span class = "plain" > -> < / span > < span class = "identifier" > vhmode_provided< / span > < span class = "plain" > = < / span > < span class = "identifier" > INTER_VAL_VHMODE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > VH< / span > < span class = "plain" > -> < / span > < span class = "identifier" > vhmode_provided< / span > < span class = "plain" > = < / span > < span class = "identifier" > INTER_VOID_VHMODE< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "functiontext" > Invocations::AsCalls::emit_function_call< / span > < span class = "plain" > (< / span > < span class = "identifier" > tokens< / span > < span class = "plain" > , < / span > < span class = "identifier" > IS< / span > < span class = "plain" > , < / span > < span class = "identifier" > options_supplied< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Invocations::AsCalls::csi_by_call is used in 25/ci (< a href = "25-ci.html#SP4_1" > § 4.1< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > The following can be used to call any phrase compiled to an I6 routine,
and it's used not only by the code above, but also when calling a
phrase value stored dynamically at run-time.
< / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Invocations::AsCalls::emit_function_call< / span > < span class = "plain" > (< / span >
2019-08-24 13:21:48 +03:00
< span class = "reserved" > tokens_packet< / span > < span class = "plain" > *< / span > < span class = "identifier" > tokens< / span > < span class = "plain" > , < / span > < span class = "identifier" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > identifier< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > phrase_options< / span > < span class = "plain" > ,< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > indirect_spec< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > lookup_flag< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > kind< / span > < span class = "plain" > *< / span > < span class = "identifier" > return_kind< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< < span class = "cwebmacro" > Compute the return kind of the phrase< / span > < span class = "cwebmacronumber" > 2.2< / span > > < span class = "plain" > ;< / span >
< span class = "constant" > BEGIN_COMPILATION_MODE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > COMPILATION_MODE_ENTER< / span > < span class = "plain" > (< / span > < span class = "constant" > DEREFERENCE_POINTERS_CMODE< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > identifier< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Produce::inv_call_iname< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > identifier< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Produce::down< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > ());< / span >
2019-03-17 14:40:57 +02:00
< 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" > indirect_spec< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > arity< / span > < span class = "plain" > = < / span > < span class = "identifier" > tokens< / span > < span class = "plain" > -< / span > < span class = "element" > > tokens_count< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Kinds::Behaviour::uses_pointer_values< / span > < span class = "plain" > (< / span > < span class = "identifier" > return_kind< / span > < span class = "plain" > )) < / span > < span class = "identifier" > arity< / span > < span class = "plain" > ++;< / span >
< span class = "reserved" > switch< / span > < span class = "plain" > (< / span > < span class = "identifier" > arity< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "reserved" > case< / span > < span class = "plain" > 0: < / span > < span class = "identifier" > Produce::inv_primitive< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > INDIRECT0_BIP< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > 1: < / span > < span class = "identifier" > Produce::inv_primitive< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > INDIRECT1_BIP< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > 2: < / span > < span class = "identifier" > Produce::inv_primitive< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > INDIRECT2_BIP< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > 3: < / span > < span class = "identifier" > Produce::inv_primitive< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > INDIRECT3_BIP< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > 4: < / span > < span class = "identifier" > Produce::inv_primitive< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > INDIRECT4_BIP< / span > < span class = "plain" > ); < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > default< / span > < span class = "plain" > : < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "indirect function call with too many arguments"< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Produce::down< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / 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" > lookup_flag< / span > < span class = "plain" > ) {< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Produce::inv_primitive< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > LOOKUP_BIP< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Produce::down< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > ());< / span >
2019-03-17 14:40:57 +02:00
< span class = "functiontext" > Specifications::Compiler::emit_as_val< / span > < span class = "plain" > (< / span > < span class = "identifier" > K_value< / span > < span class = "plain" > , < / span > < span class = "identifier" > indirect_spec< / span > < span class = "plain" > );< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Produce::val< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > K_number< / span > < span class = "plain" > , < / span > < span class = "identifier" > LITERAL_IVAL< / span > < span class = "plain" > , 1);< / span >
< span class = "identifier" > Produce::up< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > ());< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "functiontext" > Specifications::Compiler::emit_as_val< / span > < span class = "plain" > (< / span > < span class = "identifier" > K_value< / span > < span class = "plain" > , < / span > < span class = "identifier" > indirect_spec< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "emit function call improperly called"< / span > < span class = "plain" > );< / span >
< < span class = "cwebmacro" > Emit the comma-separated list of arguments< / span > < span class = "cwebmacronumber" > 2.1< / span > > < span class = "plain" > ;< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Produce::up< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > ());< / span >
2019-03-17 14:40:57 +02:00
< span class = "constant" > END_COMPILATION_MODE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Invocations::AsCalls::emit_function_call is used in < a href = "#SP1" > § 1< / a > , 25/cii (< a href = "25-cii.html#SP3_7_1" > § 3.7.1< / a > , < a href = "25-cii.html#SP3_7_2" > § 3.7.2< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP2_1" > < / a > < b > § 2.1. < / b > See the corresponding code for defining routines. If the return value of
the phrase is a block value, we must call it with a pointer to a new value
of that kind as the first argument. Arguments corresponding to the tokens
then follow, and finally the optional bitmap of phrase options.
< / p >
< p class = "macrodefinition" > < code class = "display" >
< < span class = "cwebmacrodefn" > Emit the comma-separated list of arguments< / span > < span class = "cwebmacronumber" > 2.1< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Kinds::Behaviour::uses_pointer_values< / span > < span class = "plain" > (< / span > < span class = "identifier" > return_kind< / span > < span class = "plain" > ))< / span >
< span class = "functiontext" > Frames::emit_allocation< / span > < span class = "plain" > (< / span > < span class = "identifier" > return_kind< / span > < span class = "plain" > );< / span >
< span class = "reserved" > for< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > k< / span > < span class = "plain" > =0; < / span > < span class = "identifier" > k< / span > < span class = "plain" > < < / span > < span class = "identifier" > tokens< / span > < span class = "plain" > -< / span > < span class = "element" > > tokens_count< / span > < span class = "plain" > ; < / span > < span class = "identifier" > k< / span > < span class = "plain" > ++)< / span >
< span class = "functiontext" > Specifications::Compiler::emit_to_kind< / span > < span class = "plain" > (< / span > < span class = "identifier" > tokens< / span > < span class = "plain" > -< / span > < span class = "element" > > args< / span > < span class = "plain" > [< / span > < span class = "identifier" > k< / span > < span class = "plain" > ], < / span > < span class = "identifier" > tokens< / span > < span class = "plain" > -< / span > < span class = "element" > > kind_required< / span > < span class = "plain" > [< / span > < span class = "identifier" > k< / span > < span class = "plain" > ]);< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > phrase_options< / span > < span class = "plain" > != -1)< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Produce::val< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > K_number< / span > < span class = "plain" > , < / span > < span class = "identifier" > LITERAL_IVAL< / span > < span class = "plain" > , (< / span > < span class = "identifier" > inter_t< / span > < span class = "plain" > ) < / span > < span class = "identifier" > phrase_options< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP2" > § 2< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP2_2" > < / a > < b > § 2.2. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Compute the return kind of the phrase< / span > < span class = "cwebmacronumber" > 2.2< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "identifier" > kind< / span > < span class = "plain" > *< / span > < span class = "identifier" > K< / span > < span class = "plain" > = < / span > < span class = "identifier" > tokens< / span > < span class = "plain" > -< / span > < span class = "element" > > as_requested< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > kind< / span > < span class = "plain" > *< / span > < span class = "identifier" > args< / 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 = "identifier" > Kinds::get_construct< / span > < span class = "plain" > (< / span > < span class = "identifier" > K< / span > < span class = "plain" > ) != < / span > < span class = "identifier" > CON_phrase< / span > < span class = "plain" > ) < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "no function kind"< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Kinds::binary_construction_material< / span > < span class = "plain" > (< / span > < span class = "identifier" > K< / span > < span class = "plain" > , & < / span > < span class = "identifier" > args< / span > < span class = "plain" > , & < / span > < span class = "identifier" > return_kind< / span > < span class = "plain" > );< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP2" > § 2< / a > .< / p >
< hr class = "tocbar" >
< ul class = "toc" > < li > < a href = "25-ci.html" > Back to 'Compile Invocations'< / a > < / li > < li > < a href = "25-cii.html" > Continue with 'Compile Invocations Inline'< / 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 >