File: 2pldoc

package info (click to toggle)
swi-prolog 9.0.4%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 82,408 kB
  • sloc: ansic: 387,503; perl: 359,326; cpp: 6,613; lisp: 6,247; java: 5,540; sh: 3,147; javascript: 2,668; python: 1,900; ruby: 1,594; yacc: 845; makefile: 428; xml: 317; sed: 12; sql: 6
file content (19 lines) | stat: -rwxr-xr-x 320 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/bin/sh -f

if [ "$1" = "-undo" ]; then
  shift
  for f in $*; do
    echo -n "Restoring $f ..."
    p=`basename $f .bak`
    mv $f $p
    echo "ok"
  done
  exit
fi

for f in $*; do
   echo -n "Processing $f ..."
   cp -p $f $f.bak
   sed --regexp-extended -e 's/^%(\s+\w+\(.*\))/%%\1/' $f.bak > $f
   echo "ok"
done