tangetools/tracefile/tracefile

#!/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 };'