mirror of
https://github.com/ganelson/inform.git
synced 2024-07-02 23:14:57 +03:00
Improved inbuild -inspect output
This commit is contained in:
parent
e14c21e835
commit
5c20b92ae8
|
@ -1,6 +1,6 @@
|
||||||
# Inform 7
|
# Inform 7
|
||||||
|
|
||||||
[Version](notes/versioning.md): 10.2.0-beta+6W74 'Krypton' (7 July 2023)
|
[Version](notes/versioning.md): 10.2.0-beta+6W75 'Krypton' (8 July 2023)
|
||||||
|
|
||||||
## About Inform
|
## About Inform
|
||||||
|
|
||||||
|
|
|
@ -1,3 +1,3 @@
|
||||||
Prerelease: beta
|
Prerelease: beta
|
||||||
Build Date: 7 July 2023
|
Build Date: 8 July 2023
|
||||||
Build Number: 6W74
|
Build Number: 6W75
|
||||||
|
|
|
@ -171,7 +171,7 @@ error in this case.
|
||||||
<span class="plain-syntax"> </span><span class="reserved-syntax">if</span><span class="plain-syntax"> ((</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">edition</span><span class="plain-syntax">-></span><span class="element-syntax">work</span><span class="plain-syntax">-></span><span class="element-syntax">genre</span><span class="plain-syntax"> == </span><span class="identifier-syntax">project_bundle_genre</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">C</span><span class="plain-syntax">-></span><span class="element-syntax">edition</span><span class="plain-syntax">-></span><span class="element-syntax">work</span><span class="plain-syntax">-></span><span class="element-syntax">genre</span><span class="plain-syntax"> == </span><span class="identifier-syntax">project_bundle_genre</span><span class="plain-syntax">) ||</span>
|
||||||
<span class="plain-syntax"> (</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">edition</span><span class="plain-syntax">-></span><span class="element-syntax">work</span><span class="plain-syntax">-></span><span class="element-syntax">genre</span><span class="plain-syntax"> == </span><span class="identifier-syntax">project_file_genre</span><span class="plain-syntax">))</span>
|
<span class="plain-syntax"> (</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">edition</span><span class="plain-syntax">-></span><span class="element-syntax">work</span><span class="plain-syntax">-></span><span class="element-syntax">genre</span><span class="plain-syntax"> == </span><span class="identifier-syntax">project_file_genre</span><span class="plain-syntax">))</span>
|
||||||
<span class="plain-syntax"> </span><span class="identifier-syntax">count</span><span class="plain-syntax">++;</span>
|
<span class="plain-syntax"> </span><span class="identifier-syntax">count</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">count</span><span class="plain-syntax"> > </span><span class="constant-syntax">1</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">count</span><span class="plain-syntax"> > </span><span class="constant-syntax">1</span><span class="plain-syntax">) && (</span><span class="identifier-syntax">inbuild_task</span><span class="plain-syntax"> != </span><span class="constant-syntax">INSPECT_TTASK</span><span class="plain-syntax">))</span>
|
||||||
<span class="plain-syntax"> </span><a href="../../../inweb/foundation-module/3-em.html#SP7" class="function-link"><span class="function-syntax">Errors::with_text</span></a><span class="plain-syntax">(</span><span class="string-syntax">"can only work on one project bundle at a time"</span><span class="plain-syntax">, </span><span class="identifier-syntax">NULL</span><span class="plain-syntax">);</span>
|
<span class="plain-syntax"> </span><a href="../../../inweb/foundation-module/3-em.html#SP7" class="function-link"><span class="function-syntax">Errors::with_text</span></a><span class="plain-syntax">(</span><span class="string-syntax">"can only work on one project bundle at a time"</span><span class="plain-syntax">, </span><span class="identifier-syntax">NULL</span><span class="plain-syntax">);</span>
|
||||||
<span class="plain-syntax"> </span><span class="reserved-syntax">if</span><span class="plain-syntax"> (</span><a href="../../../inweb/foundation-module/4-sm.html#SP8" class="function-link"><span class="function-syntax">Str::len</span></a><span class="plain-syntax">(</span><span class="identifier-syntax">filter_text</span><span class="plain-syntax">) > </span><span class="constant-syntax">0</span><span class="plain-syntax">) </span><a href="1-mn.html#SP2_8" class="function-link"><span class="function-syntax">Main::add_search_results_as_targets</span></a><span class="plain-syntax">(</span><span class="identifier-syntax">filter_text</span><span class="plain-syntax">);</span>
|
<span class="plain-syntax"> </span><span class="reserved-syntax">if</span><span class="plain-syntax"> (</span><a href="../../../inweb/foundation-module/4-sm.html#SP8" class="function-link"><span class="function-syntax">Str::len</span></a><span class="plain-syntax">(</span><span class="identifier-syntax">filter_text</span><span class="plain-syntax">) > </span><span class="constant-syntax">0</span><span class="plain-syntax">) </span><a href="1-mn.html#SP2_8" class="function-link"><span class="function-syntax">Main::add_search_results_as_targets</span></a><span class="plain-syntax">(</span><span class="identifier-syntax">filter_text</span><span class="plain-syntax">);</span>
|
||||||
</pre>
|
</pre>
|
||||||
|
|
|
@ -276,13 +276,8 @@ such newcomers are graphed too.
|
||||||
<span class="reserved-syntax">void</span><span class="plain-syntax"> </span><span class="function-syntax">Copies::inspect</span><span class="plain-syntax">(</span><span class="identifier-syntax">OUTPUT_STREAM</span><span class="plain-syntax">, </span><span class="reserved-syntax">inbuild_copy</span><span class="plain-syntax"> *</span><span class="identifier-syntax">C</span><span class="plain-syntax">) {</span>
|
<span class="reserved-syntax">void</span><span class="plain-syntax"> </span><span class="function-syntax">Copies::inspect</span><span class="plain-syntax">(</span><span class="identifier-syntax">OUTPUT_STREAM</span><span class="plain-syntax">, </span><span class="reserved-syntax">inbuild_copy</span><span class="plain-syntax"> *</span><span class="identifier-syntax">C</span><span class="plain-syntax">) {</span>
|
||||||
<span class="plain-syntax"> </span><span class="identifier-syntax">WRITE</span><span class="plain-syntax">(</span><span class="string-syntax">"%S: "</span><span class="plain-syntax">, </span><a href="2-gnr.html#SP1" class="function-link"><span class="function-syntax">Genres::name</span></a><span class="plain-syntax">(</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">edition</span><span class="plain-syntax">-></span><span class="element-syntax">work</span><span class="plain-syntax">-></span><span class="element-syntax">genre</span><span class="plain-syntax">));</span>
|
<span class="plain-syntax"> </span><span class="identifier-syntax">WRITE</span><span class="plain-syntax">(</span><span class="string-syntax">"%S: "</span><span class="plain-syntax">, </span><a href="2-gnr.html#SP1" class="function-link"><span class="function-syntax">Genres::name</span></a><span class="plain-syntax">(</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">edition</span><span class="plain-syntax">-></span><span class="element-syntax">work</span><span class="plain-syntax">-></span><span class="element-syntax">genre</span><span class="plain-syntax">));</span>
|
||||||
<span class="plain-syntax"> </span><a href="2-edt.html#SP3" class="function-link"><span class="function-syntax">Editions::inspect</span></a><span class="plain-syntax">(</span><span class="identifier-syntax">OUT</span><span class="plain-syntax">, </span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">edition</span><span class="plain-syntax">);</span>
|
<span class="plain-syntax"> </span><a href="2-edt.html#SP3" class="function-link"><span class="function-syntax">Editions::inspect</span></a><span class="plain-syntax">(</span><span class="identifier-syntax">OUT</span><span class="plain-syntax">, </span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">edition</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">C</span><span class="plain-syntax">-></span><span class="identifier-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">C</span><span class="plain-syntax">-></span><span class="identifier-syntax">location_if_path</span><span class="plain-syntax">) </span><span class="identifier-syntax">WRITE</span><span class="plain-syntax">(</span><span class="string-syntax">" = directory %p"</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</span><span class="plain-syntax">(</span><span class="string-syntax">" at path %p"</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">C</span><span class="plain-syntax">-></span><span class="identifier-syntax">location_if_file</span><span class="plain-syntax">) </span><span class="identifier-syntax">WRITE</span><span class="plain-syntax">(</span><span class="string-syntax">" = file %f"</span><span class="plain-syntax">, </span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">location_if_file</span><span class="plain-syntax">);</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">C</span><span class="plain-syntax">-></span><span class="identifier-syntax">location_if_file</span><span class="plain-syntax">) {</span>
|
|
||||||
<span class="plain-syntax"> </span><span class="identifier-syntax">pathname</span><span class="plain-syntax"> *</span><span class="identifier-syntax">P</span><span class="plain-syntax"> = </span><span class="identifier-syntax">Filenames::up</span><span class="plain-syntax">(</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">location_if_file</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">P</span><span class="plain-syntax">) </span><span class="identifier-syntax">WRITE</span><span class="plain-syntax">(</span><span class="string-syntax">" in directory %p"</span><span class="plain-syntax">, </span><span class="identifier-syntax">P</span><span class="plain-syntax">);</span>
|
|
||||||
<span class="plain-syntax"> }</span>
|
|
||||||
<span class="plain-syntax"> </span><span class="reserved-syntax">int</span><span class="plain-syntax"> </span><span class="identifier-syntax">N</span><span class="plain-syntax"> = </span><span class="identifier-syntax">LinkedLists::len</span><span class="plain-syntax">(</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">errors_reading_source_text</span><span class="plain-syntax">);</span>
|
<span class="plain-syntax"> </span><span class="reserved-syntax">int</span><span class="plain-syntax"> </span><span class="identifier-syntax">N</span><span class="plain-syntax"> = </span><span class="identifier-syntax">LinkedLists::len</span><span class="plain-syntax">(</span><span class="identifier-syntax">C</span><span class="plain-syntax">-></span><span class="element-syntax">errors_reading_source_text</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">0</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">0</span><span class="plain-syntax">) {</span>
|
||||||
<span class="plain-syntax"> </span><span class="identifier-syntax">WRITE</span><span class="plain-syntax">(</span><span class="string-syntax">" - %d error"</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</span><span class="plain-syntax">(</span><span class="string-syntax">" - %d error"</span><span class="plain-syntax">, </span><span class="identifier-syntax">N</span><span class="plain-syntax">);</span>
|
||||||
|
|
|
@ -103,7 +103,7 @@ error in this case.
|
||||||
if ((C->edition->work->genre == project_bundle_genre) ||
|
if ((C->edition->work->genre == project_bundle_genre) ||
|
||||||
(C->edition->work->genre == project_file_genre))
|
(C->edition->work->genre == project_file_genre))
|
||||||
count++;
|
count++;
|
||||||
if (count > 1)
|
if ((count > 1) && (inbuild_task != INSPECT_TTASK))
|
||||||
Errors::with_text("can only work on one project bundle at a time", NULL);
|
Errors::with_text("can only work on one project bundle at a time", NULL);
|
||||||
if (Str::len(filter_text) > 0) Main::add_search_results_as_targets(filter_text);
|
if (Str::len(filter_text) > 0) Main::add_search_results_as_targets(filter_text);
|
||||||
|
|
||||||
|
|
|
@ -210,13 +210,8 @@ This function implements the command-line instruction to |-inspect|.
|
||||||
void Copies::inspect(OUTPUT_STREAM, inbuild_copy *C) {
|
void Copies::inspect(OUTPUT_STREAM, inbuild_copy *C) {
|
||||||
WRITE("%S: ", Genres::name(C->edition->work->genre));
|
WRITE("%S: ", Genres::name(C->edition->work->genre));
|
||||||
Editions::inspect(OUT, C->edition);
|
Editions::inspect(OUT, C->edition);
|
||||||
if (C->location_if_path) {
|
if (C->location_if_path) WRITE(" = directory %p", C->location_if_path);
|
||||||
WRITE(" at path %p", C->location_if_path);
|
if (C->location_if_file) WRITE(" = file %f", C->location_if_file);
|
||||||
}
|
|
||||||
if (C->location_if_file) {
|
|
||||||
pathname *P = Filenames::up(C->location_if_file);
|
|
||||||
if (P) WRITE(" in directory %p", P);
|
|
||||||
}
|
|
||||||
int N = LinkedLists::len(C->errors_reading_source_text);
|
int N = LinkedLists::len(C->errors_reading_source_text);
|
||||||
if (N > 0) {
|
if (N > 0) {
|
||||||
WRITE(" - %d error", N);
|
WRITE(" - %d error", N);
|
||||||
|
|
|
@ -1,9 +1,9 @@
|
||||||
100.0% in inform7 run
|
100.0% in inform7 run
|
||||||
67.4% in compilation to Inter
|
66.7% in compilation to Inter
|
||||||
44.9% in //Sequence::undertake_queued_tasks//
|
44.7% in //Sequence::undertake_queued_tasks//
|
||||||
5.0% in //MajorNodes::pre_pass//
|
5.0% in //MajorNodes::pre_pass//
|
||||||
3.4% in //MajorNodes::pass_1//
|
3.4% in //MajorNodes::pass_1//
|
||||||
1.9% in //ImperativeDefinitions::assess_all//
|
1.5% in //ImperativeDefinitions::assess_all//
|
||||||
1.5% in //RTKindConstructors::compile//
|
1.5% in //RTKindConstructors::compile//
|
||||||
1.5% in //RTPhrasebook::compile_entries//
|
1.5% in //RTPhrasebook::compile_entries//
|
||||||
1.1% in //Sequence::lint_inter//
|
1.1% in //Sequence::lint_inter//
|
||||||
|
@ -15,15 +15,15 @@
|
||||||
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
|
5.0% not specifically accounted for
|
||||||
28.2% in running Inter pipeline
|
28.1% in running Inter pipeline
|
||||||
9.6% in step 14/15: generate inform6 -> auto.inf
|
9.6% in step 14/15: generate inform6 -> auto.inf
|
||||||
6.9% in step 5/15: load-binary-kits
|
6.9% in step 5/15: load-binary-kits
|
||||||
6.2% in step 6/15: make-synoptic-module
|
5.7% 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
|
||||||
1.9% not specifically accounted for
|
2.3% not specifically accounted for
|
||||||
3.4% in supervisor
|
4.2% in supervisor
|
||||||
0.8% not specifically accounted for
|
0.8% not specifically accounted for
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
"is": {
|
"is": {
|
||||||
"type": "kit",
|
"type": "kit",
|
||||||
"title": "Architecture16Kit",
|
"title": "Architecture16Kit",
|
||||||
"version": "10.2.0-beta+6W74"
|
"version": "10.2.0-beta+6W75"
|
||||||
},
|
},
|
||||||
"compatibility": "16-bit",
|
"compatibility": "16-bit",
|
||||||
"kit-details": {
|
"kit-details": {
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
"is": {
|
"is": {
|
||||||
"type": "kit",
|
"type": "kit",
|
||||||
"title": "Architecture32Kit",
|
"title": "Architecture32Kit",
|
||||||
"version": "10.2.0-beta+6W74"
|
"version": "10.2.0-beta+6W75"
|
||||||
},
|
},
|
||||||
"compatibility": "32-bit",
|
"compatibility": "32-bit",
|
||||||
"kit-details": {
|
"kit-details": {
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
"is": {
|
"is": {
|
||||||
"type": "kit",
|
"type": "kit",
|
||||||
"title": "BasicInformKit",
|
"title": "BasicInformKit",
|
||||||
"version": "10.2.0-beta+6W74"
|
"version": "10.2.0-beta+6W75"
|
||||||
},
|
},
|
||||||
"needs": [ {
|
"needs": [ {
|
||||||
"need": {
|
"need": {
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
"is": {
|
"is": {
|
||||||
"type": "kit",
|
"type": "kit",
|
||||||
"title": "CommandParserKit",
|
"title": "CommandParserKit",
|
||||||
"version": "10.2.0-beta+6W74"
|
"version": "10.2.0-beta+6W75"
|
||||||
},
|
},
|
||||||
"needs": [ {
|
"needs": [ {
|
||||||
"need": {
|
"need": {
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
"is": {
|
"is": {
|
||||||
"type": "kit",
|
"type": "kit",
|
||||||
"title": "EnglishLanguageKit",
|
"title": "EnglishLanguageKit",
|
||||||
"version": "10.2.0-beta+6W74"
|
"version": "10.2.0-beta+6W75"
|
||||||
},
|
},
|
||||||
"needs": [ {
|
"needs": [ {
|
||||||
"need": {
|
"need": {
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
"is": {
|
"is": {
|
||||||
"type": "kit",
|
"type": "kit",
|
||||||
"title": "WorldModelKit",
|
"title": "WorldModelKit",
|
||||||
"version": "10.2.0-beta+6W74"
|
"version": "10.2.0-beta+6W75"
|
||||||
},
|
},
|
||||||
"needs": [ {
|
"needs": [ {
|
||||||
"need": {
|
"need": {
|
||||||
|
|
|
@ -85,7 +85,8 @@ and now poses a moral rather than gender-based question.
|
||||||
already makes it held by default
|
already makes it held by default
|
||||||
([commit 1fc5055](https://github.com/ganelson/inform/commit/1fc505507b52be19a09cc3898326952954620312))
|
([commit 1fc5055](https://github.com/ganelson/inform/commit/1fc505507b52be19a09cc3898326952954620312))
|
||||||
- Fix for Jira bug [I7-2282](https://inform7.atlassian.net/browse/I7-2282)
|
- Fix for Jira bug [I7-2282](https://inform7.atlassian.net/browse/I7-2282)
|
||||||
"segfaults in linux with latest inform, ..., built with gcc"
|
"segfaults in linux with latest inform, ..., built with gcc": see
|
||||||
|
also [I7-2108](https://inform7.atlassian.net/browse/I7-2108)
|
||||||
(hat-tip to Adrian Welcker: [PR#111](https://github.com/ganelson/inform/pull/111))
|
(hat-tip to Adrian Welcker: [PR#111](https://github.com/ganelson/inform/pull/111))
|
||||||
- Fix for Jira bug [I7-2269](https://inform7.atlassian.net/browse/I7-2269)
|
- Fix for Jira bug [I7-2269](https://inform7.atlassian.net/browse/I7-2269)
|
||||||
"Output of I6 floating point literals strips the '+', resulting in uncompilable I6"
|
"Output of I6 floating point literals strips the '+', resulting in uncompilable I6"
|
||||||
|
|
Loading…
Reference in a new issue