54 lines
1.4 KiB
Bash
Executable file
54 lines
1.4 KiB
Bash
Executable file
#!/bin/bash
|
|
|
|
# NAME
|
|
# tracefile - list files being accessed
|
|
#
|
|
# SYNOPSIS
|
|
# tracefile [-aenu] command
|
|
#
|
|
# DESCRIPTION
|
|
# tracefile will print the files being accessed by the command.
|
|
#
|
|
# OPTIONS
|
|
# -a List all files.
|
|
#
|
|
# -e List only existing files.
|
|
#
|
|
# -n List only non-existing files.
|
|
#
|
|
# -u List only files once.
|
|
#
|
|
# AUTHOR
|
|
# Ole Tange <tange@gnu.org>
|
|
#
|
|
# COPYRIGHT
|
|
# Copyright © 2012 Free Software Foundation, Inc. License
|
|
# GPLv3+: GNU GPL version 3 or later
|
|
# <http://gnu.org/licenses/gpl.html>. This is free software: you
|
|
# are free to change and redistribute it. There is NO WARRANTY,
|
|
# to the extent permitted by law.
|
|
|
|
|
|
export _EXISTS=0
|
|
export _NONEXISTS=0
|
|
export _UNIQUE=0
|
|
|
|
while true ; do
|
|
case "$1" in
|
|
-e|--exists) export _EXISTS=1; shift ;;
|
|
-n|--nonexists) export _NONEXISTS=1; shift ;;
|
|
-a|--all) export _EXISTS=1; export _NONEXISTS=1; shift ;;
|
|
-u|--unique) export _UNIQUE=1; shift ;;
|
|
*) break;
|
|
esac
|
|
done
|
|
|
|
if [ "$_EXISTS" == "0" -a "$_NONEXISTS" == "0" ] ; then
|
|
export _EXISTS=1
|
|
export _NONEXISTS=1
|
|
fi
|
|
|
|
strace -ff -e trace=file "$@" 2>&1 |
|
|
perl -ne 's/^[^"]+"(([^\\"]|\\[\\"nt])*)".*/$1/ && do { '$_EXISTS' and -e $1 and (not '$_UNIQUE' or not $seen{$_}++) and print; '$_NONEXISTS' and ! -e $1 and (not '$_UNIQUE' or not $seen{$_}++) and print };'
|
|
|