psycamp: show the number of hardlinks a file has

1 files changed, 12 insertions, 4 deletions

diff --git a/bin/psycamp b/bin/psycamp
index c996173..770325b 100755
--- a/bin/psycamp
+++ b/bin/psycamp
@@ -1178,11 +1178,19 @@ sub ginparse {
                         if $? != 256;
                 }
                 my $nf = $CurrentFile;
-                $nf =~ s/\.(\S+)$//i;
+                $nf =~ s/\.([^\.]+)$//i;
                 $codec = $1 unless $codec;
-                $PrintCurrentFile = $codec? "<$codec> $CurrentSize "
-                                          : $CurrentSize .' ';
-                $PrintCurrentFile .= &stringtail($nf, $TWIDTH
+                my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+                       $atime,$mtime,$ctime,$blksize,$blocks)
+                    = stat($CurrentFile);
+                $PrintCurrentFile = $nlink>1?
+                  YELLOW. $CurrentSize .BLUE.'#'. $nlink .RESET:
+                  YELLOW. $CurrentSize .RESET;
+                # consider color codes:
+                my $twidth = $nlink>1? $TWIDTH + 3*4 : $TWIDTH + 2*4;
+                $PrintCurrentFile = $codec?
+                  "<$codec> $PrintCurrentFile ": $PrintCurrentFile .' ';
+                $PrintCurrentFile .= &stringtail($nf, $twidth
                                         -length($PrintCurrentFile) );
                 print "\r$PrintCurrentFile\n";
                 $CurrentInfo = "$TC   -> [$I{duration}] $I{frequency} Hz at $I{bitrate} kbps with $I{channels} channels";