/usr/games/scidpgn 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 | #!/bin/sh
# scidpgn: prints the PGN representation of all games in a
# Scid database, with all comments and variations.
# The "\" at the end of the comment line below is necessary! It means
# that the "exec" line is a comment to Tcl but not to /bin/sh.
# The next line restarts using tkscid, the Scid Tcl interpreter: \
exec tkscid "$0" "$@"
if {$argc != 1} {
puts "Usage: scidpgn database"
puts "Example: scidpgn mybase"
exit 1
}
set baseName [file rootname [ lindex $argv 0 ]]
if {[catch { sc_base open $baseName } baseId]} {
puts "Error: could not open database"
exit 1
}
set nGames [sc_base numGames $baseId]
for {set i 1} {$i <= $nGames} {incr i} {
if {[catch { sc_game load $i }]} {
puts "Error: could not load game number $i"
exit 1
}
puts [sc_game pgn -tags 1 -comments 1 -var 1 -width 75]
}
|