extents-list

#!/bin/bash

# SPDX-FileCopyrightText: 2016-2020 Graham R. Cobb
# SPDX-License-Identifier: GPL-3.0-or-later
#
# Copyright (C) 2016 Graham R. Cobb
# Released under GPL V3.0 -- see LICENSE
#
# extents-list [-s] <find-options>...
#
# Where <find-options> are options which will be passed to the find
# command to result in a list of files to be considered.
#
# Examples:
#
# extents-list some-directory/some-file
# extents-list some-directory
# extents-list subvolume-directory -mount
#

# Make sure errors are passed back
set -o pipefail

if [ "$1" = "-s" ]
then
    shift
    $0 "$@" | extents-size
    exit $?
fi

if [ $# -eq 0 ]
then
    echo "$0: No file specified" >&2
    echo "Usage: $0 <find-options>..." >&2
    exit 1
fi

# find all the files
find "$@" -type f -print0 |
    # list each file's extents
    xargs -0 filefrag -vs |
    # Get just the extent starts and ends
    awk -e '
	/^[[:space:]]*[[:digit:]]+:[[:space:]]*[[:digit:]]+..[[:space:]]*[[:digit:]]+:[[:space:]]*([[:digit:]]+)..[[:space:]]*([[:digit:]]+):/ {
		if ( (! match($0,/inline/)) &&
                     match($0, /^[[:space:]]*[[:digit:]]+:[[:space:]]*[[:digit:]]+..[[:space:]]*[[:digit:]]+:[[:space:]]*([[:digit:]]+)..[[:space:]]*([[:digit:]]+):/, a) > 0)
			print a[1], a[2]
		}
	' |
    extents-merge