chiark / gitweb /
where-vessels: Put "last seen at" question mark at front of abbrev
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 13 Dec 2009 03:05:22 +0000 (03:05 +0000)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 13 Dec 2009 03:05:22 +0000 (03:05 +0000)
yarrg/where-vessels

index 29c3ab7..66d8527 100755 (executable)
@@ -236,6 +236,12 @@ proc display-note-infos {} {
 proc vessel {vin} {
     global pirate notes_used note_missings newnotes
     upvar 1 $vin vi
+    set abbrev {}
+    switch -exact [errexpect-arrayget vi inPort] {
+       true            { }
+       false           { append abbrev ? }
+       default         { errexpect-error "unexpected inPort" }
+    }
     switch -exact [errexpect-arrayget vi vesselClass] {
        smsloop         { set sz 00sl }
        lgsloop         { set sz 01ct }
@@ -250,7 +256,7 @@ proc vessel {vin} {
        grandfrig       { set sz 10gf }
        default         { errexpect-error "unknown class" }
     }
-    set abbrev $sz
+    append abbrev $sz
     switch -exact [errexpect-arrayget vi vesselSubclass] {
        null            { }
        icy             { append abbrev F }
@@ -263,11 +269,6 @@ proc vessel {vin} {
        false/true      { append abbrev 0* }
        default         { errexpect-error "unexpected isLocked/isBattleReady" }
     }
-    switch -exact [errexpect-arrayget vi inPort] {
-       true            { }
-       false           { append abbrev ? }
-       default         { errexpect-error "unexpected inPort" }
-    }
     set vid [errexpect-arrayget vi vesselId]
     upvar #0 notes($vid) note
     set realname [errexpect-arrayget vi vesselName]