mirror of
https://github.com/ganelson/inform.git
synced 2024-06-29 05:24:57 +03:00
Tiny tweak
This commit is contained in:
parent
f467e9d0cc
commit
dbf6422a28
|
@ -709,6 +709,8 @@ produces a second report.
|
||||||
<span class="plain-syntax"> </span><span class="reserved-syntax">do</span><span class="plain-syntax"> {</span>
|
<span class="plain-syntax"> </span><span class="reserved-syntax">do</span><span class="plain-syntax"> {</span>
|
||||||
<span class="plain-syntax"> </span><span class="identifier-syntax">Str::clear</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">);</span>
|
<span class="plain-syntax"> </span><span class="identifier-syntax">Str::clear</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">);</span>
|
||||||
<span class="plain-syntax"> </span><span class="identifier-syntax">WRITE_TO</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">, </span><span class="string-syntax">"%S"</span><span class="plain-syntax">, </span><span class="identifier-syntax">Pathnames::directory_name</span><span class="plain-syntax">(</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">location_if_path</span><span class="plain-syntax">));</span>
|
<span class="plain-syntax"> </span><span class="identifier-syntax">WRITE_TO</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">, </span><span class="string-syntax">"%S"</span><span class="plain-syntax">, </span><span class="identifier-syntax">Pathnames::directory_name</span><span class="plain-syntax">(</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">location_if_path</span><span class="plain-syntax">));</span>
|
||||||
|
<span class="plain-syntax"> </span><span class="reserved-syntax">if</span><span class="plain-syntax"> (</span><span class="identifier-syntax">Str::get_at</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">, </span><span class="identifier-syntax">Str::len</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">)-5) == </span><span class="character-syntax">'.'</span><span class="plain-syntax">)</span>
|
||||||
|
<span class="plain-syntax"> </span><span class="identifier-syntax">Str::truncate</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">, </span><span class="identifier-syntax">Str::len</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">)-5);</span>
|
||||||
<span class="plain-syntax"> </span><span class="reserved-syntax">if</span><span class="plain-syntax"> (</span><span class="identifier-syntax">n</span><span class="plain-syntax"> > </span><span class="constant-syntax">1</span><span class="plain-syntax">) </span><span class="identifier-syntax">WRITE_TO</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">, </span><span class="string-syntax">" %d"</span><span class="plain-syntax">, </span><span class="identifier-syntax">n</span><span class="plain-syntax">);</span>
|
<span class="plain-syntax"> </span><span class="reserved-syntax">if</span><span class="plain-syntax"> (</span><span class="identifier-syntax">n</span><span class="plain-syntax"> > </span><span class="constant-syntax">1</span><span class="plain-syntax">) </span><span class="identifier-syntax">WRITE_TO</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">, </span><span class="string-syntax">" %d"</span><span class="plain-syntax">, </span><span class="identifier-syntax">n</span><span class="plain-syntax">);</span>
|
||||||
<span class="plain-syntax"> </span><span class="identifier-syntax">n</span><span class="plain-syntax">++;</span>
|
<span class="plain-syntax"> </span><span class="identifier-syntax">n</span><span class="plain-syntax">++;</span>
|
||||||
<span class="plain-syntax"> </span><span class="identifier-syntax">WRITE_TO</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">, </span><span class="string-syntax">".i7xd"</span><span class="plain-syntax">);</span>
|
<span class="plain-syntax"> </span><span class="identifier-syntax">WRITE_TO</span><span class="plain-syntax">(</span><span class="identifier-syntax">leaf</span><span class="plain-syntax">, </span><span class="string-syntax">".i7xd"</span><span class="plain-syntax">);</span>
|
||||||
|
|
|
@ -571,6 +571,8 @@ int ExtensionInstaller::trash(OUTPUT_STREAM, inform_project *proj, inbuild_copy
|
||||||
do {
|
do {
|
||||||
Str::clear(leaf);
|
Str::clear(leaf);
|
||||||
WRITE_TO(leaf, "%S", Pathnames::directory_name(C->location_if_path));
|
WRITE_TO(leaf, "%S", Pathnames::directory_name(C->location_if_path));
|
||||||
|
if (Str::get_at(leaf, Str::len(leaf)-5) == '.')
|
||||||
|
Str::truncate(leaf, Str::len(leaf)-5);
|
||||||
if (n > 1) WRITE_TO(leaf, " %d", n);
|
if (n > 1) WRITE_TO(leaf, " %d", n);
|
||||||
n++;
|
n++;
|
||||||
WRITE_TO(leaf, ".i7xd");
|
WRITE_TO(leaf, ".i7xd");
|
||||||
|
|
|
@ -263,7 +263,7 @@ Total memory consumption was 139121K = 136 MB
|
||||||
|
|
||||||
99.9% was used for memory not allocated for objects:
|
99.9% was used for memory not allocated for objects:
|
||||||
|
|
||||||
62.1% text stream storage 88595528 bytes in 508385 claims
|
62.1% text stream storage 88595556 bytes in 508385 claims
|
||||||
3.8% dictionary storage 5480960 bytes in 7754 claims
|
3.8% dictionary storage 5480960 bytes in 7754 claims
|
||||||
---- sorting 2624 bytes in 531 claims
|
---- sorting 2624 bytes in 531 claims
|
||||||
5.0% source text 7200000 bytes in 3 claims
|
5.0% source text 7200000 bytes in 3 claims
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
100.0% in inform7 run
|
100.0% in inform7 run
|
||||||
67.0% in compilation to Inter
|
67.4% in compilation to Inter
|
||||||
45.5% in //Sequence::undertake_queued_tasks//
|
46.1% in //Sequence::undertake_queued_tasks//
|
||||||
4.2% in //MajorNodes::pre_pass//
|
4.2% in //MajorNodes::pre_pass//
|
||||||
3.4% in //MajorNodes::pass_1//
|
3.4% in //MajorNodes::pass_1//
|
||||||
1.9% in //ImperativeDefinitions::assess_all//
|
1.9% in //ImperativeDefinitions::assess_all//
|
||||||
|
@ -14,16 +14,16 @@
|
||||||
0.3% in //Sequence::undertake_queued_tasks//
|
0.3% in //Sequence::undertake_queued_tasks//
|
||||||
0.3% in //Sequence::undertake_queued_tasks//
|
0.3% in //Sequence::undertake_queued_tasks//
|
||||||
0.3% in //World::stage_V//
|
0.3% in //World::stage_V//
|
||||||
5.0% not specifically accounted for
|
4.7% not specifically accounted for
|
||||||
27.9% in running Inter pipeline
|
28.2% in running Inter pipeline
|
||||||
9.5% in step 14/15: generate inform6 -> auto.inf
|
9.6% in step 14/15: generate inform6 -> auto.inf
|
||||||
6.8% in step 5/15: load-binary-kits
|
6.9% in step 5/15: load-binary-kits
|
||||||
5.7% in step 6/15: make-synoptic-module
|
5.8% in step 6/15: make-synoptic-module
|
||||||
1.9% in step 9/15: make-identifiers-unique
|
1.9% in step 9/15: make-identifiers-unique
|
||||||
0.3% in step 12/15: eliminate-redundant-operations
|
0.3% in step 12/15: eliminate-redundant-operations
|
||||||
0.3% in step 4/15: compile-splats
|
0.3% in step 4/15: compile-splats
|
||||||
0.3% in step 7/15: shorten-wiring
|
0.3% in step 7/15: shorten-wiring
|
||||||
0.3% in step 8/15: detect-indirect-calls
|
0.3% in step 8/15: detect-indirect-calls
|
||||||
2.3% not specifically accounted for
|
2.3% not specifically accounted for
|
||||||
4.2% in supervisor
|
3.8% in supervisor
|
||||||
0.8% not specifically accounted for
|
0.4% not specifically accounted for
|
||||||
|
|
|
@ -17,8 +17,6 @@ Sometimes a nice effect is to change the way things are described depending on t
|
||||||
|
|
||||||
On the other hand, beware that this would not work as desired:
|
On the other hand, beware that this would not work as desired:
|
||||||
|
|
||||||
{*}"Night Sky"
|
|
||||||
|
|
||||||
The Planetarium is a room. "[if we have listened to the sinister message]A dark room where it seems something is about to jump out at you![otherwise]A tranquil dark room with a ceilingful of stars.[end if]"
|
The Planetarium is a room. "[if we have listened to the sinister message]A dark room where it seems something is about to jump out at you![otherwise]A tranquil dark room with a ceilingful of stars.[end if]"
|
||||||
|
|
||||||
The sinister message is a thing in the Planetarium. "A message plays very softly, so that you would have to listen to hear it." Instead of doing anything other than listening to the message: say "It's only a sound, after all.". Instead of listening to the sinister message: say "A voice whispers, 'BEWARE'."
|
The sinister message is a thing in the Planetarium. "A message plays very softly, so that you would have to listen to hear it." Instead of doing anything other than listening to the message: say "It's only a sound, after all.". Instead of listening to the sinister message: say "A voice whispers, 'BEWARE'."
|
||||||
|
|
Loading…
Reference in a new issue