/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\""
}
|