/usr/lib/swi-prolog/customize/edit is in swi-prolog-nox 7.6.4+dfsg-1build1.
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 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | #!/bin/sh -f
#
# Ask PceEmacs to edit files for me. To use this package, make sure
# xpce-client is installed in your path and one XPCE process runs
# PceEmacs as a server. One way to do that is to put the following in
# your X startup:
#
# xterm -iconic -title 'PceEmacs server' -e swipl -g emacs_server
#
# Author: Jan Wielemaker
# Copying: Public domain
usage()
{ echo "usage: `basename $0` [+line] file[:line]"
exit 1
}
line=""
HOST=`hostname`
server="$HOME/.xpce_emacs_server"
case "$DISPLAY" in
:*) server=$server.$(echo "$DISPLAY" | sed 's/^:\([0-9]*\).*/\1/')
;;
*) server=$server.$HOST
;;
esac
#echo "Server = $server"
if [ ! -S "$server" -o -z "$DISPLAY" ]; then
server="$HOME/.xpce_emacs_server"
if [ ! -S "$server" ]; then
echo "No PceEmacs server"
exec emacs "$*"
fi
fi
done=false
while [ $done = false ]; do
case "$1" in
+[0-9]*)
line=`echo "$1" | sed 's/^+//'`
shift
;;
*)
done=true
;;
esac
done
file="$1"
case "$file" in
"") usage
;;
[~/]*) ;;
*) file=`pwd`/$file ;;
esac
case "$file" in
*:[0-9]*)
eval `echo $file | sed 's/\(.*\):\([0-9]*\)$/file=\1;line=\2/'`
;;
esac
if [ "$line" = "" ]; then
cmd="edit('$file')"
else
cmd="edit('$file', $line)"
fi
xpce-client $server -bc "$cmd"
if [ $? = 2 ]; then
if [ "$line" = "" ]; then
exec emacs "$file";
else
exec emacs "$file" +$line
fi
fi
|