This file is indexed.

/usr/games/spf2spi is in scid 1:4.6.4+dfsg1-2.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#!/bin/sh
#
# spf2spi:
#     Generate SPI (Scid Photo Index) file from the SPF file.
#     SPI file should be placed in the same directory as SPF file.
#
# Usage:  spf2spi filename.spf > filename.spi
# Example: spf2spi historic.spf > historic.spi
# \
exec tclsh "$0" "$@"

proc trimString {data} {
  #convert names tolower case and strip the first two blanks.
  set data [string tolower $data]
  set strindex [string first "\ " $data]
  set data [string replace $data $strindex $strindex]
  set strindex [string first "\ " $data]
  set data [string replace $data $strindex $strindex]
  return $data
}

if {$argc  != 1} {
  puts stderr "ERROR! spf2spi called with wrong number of arguments!"
  puts stderr ""
  puts stderr " spf2spi:"
  puts stderr "     Generate SPI (Scid Photo Index) file from the SPF file."
  puts stderr "     SPI file should be placed in the same directory as SPF file."
  puts stderr ""
  puts stderr " Usage:  spf2spi filename.spf > filename.spi"
  puts stderr " Example: spf2spi historic.spf > historic.spi"
  exit 1
}

set fd [open "$argv"]

while {[gets $fd line] >= 0} {
  if { [regexp {^photo \"(.*)\" \{$} $line -> name] } {
    set begin [tell $fd]
    while {1} {
      set end [tell $fd]
      gets $fd line
      if {[regexp {.*\}.*} $line ]} {break}
    }
    set photobegin($name) $begin
    set photosize($name) [expr $end - $begin ]
  }
}

foreach { name } [array names photobegin] {
  puts "set \"photobegin([trimString $name ])\" $photobegin($name)"
  puts "set \"photosize([trimString $name ])\" $photosize($name)"
  puts "set \"spffile([trimString $name ])\" \"\$fname\""
}