From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 16 Jul 2021 00:46:11 +0000 (+0100)
Subject: jstest: from-pieces: Show more things, including z and zg
X-Git-Tag: otter-0.7.2~59
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=6a6f1c4ceece85f9f3e3bb7abfd3340f80fa6581;p=otter.git

jstest: from-pieces: Show more things, including z and zg

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/jstest/from-pieces b/jstest/from-pieces
index 690494d8..da644ead 100755
--- a/jstest/from-pieces
+++ b/jstest/from-pieces
@@ -20,11 +20,12 @@ my @pieces = map {
   [
    $p->{z},
    $p->{zg},
-   (sprintf "    sp!(%7s, %s, %s),%s\n",
+   (sprintf "    sp!(%8s, %s, %3s), // %s %s%s\n",
     "\"$id\"",
     $p->{pinned} ? 'true' : 'false',
     $p->{moveable} eq 'IfWresting' ? 'No' : $p->{moveable},
-    $p->{held} ? " // HELD $p->{held}" : '',
+    $p->{z}, $p->{zg},
+    $p->{held} ? " HELD $p->{held}" : '',
    )
   ]
 } keys %$data;