From c90e3bf08b1c6f4426d0f72c76b1ac9a0a346efb Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Sat, 10 Feb 2024 07:05:52 +0100 Subject: Add tools MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- tools/getlinks | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100755 tools/getlinks (limited to 'tools/getlinks') diff --git a/tools/getlinks b/tools/getlinks new file mode 100755 index 0000000..b1a376a --- /dev/null +++ b/tools/getlinks @@ -0,0 +1,19 @@ +#!/bin/sh + +if test $# = 0; then + dir=. +else + dir="$1" + shift 1 +fi + +dirlen="${#dir}" +find "$dir" | xtest -L "$@" | colrm 1 $dirlen | sed 's/^\/*//' | while read f; do + L="$(printf '%s\n' "$f" | rev | cut -d . -f 2- | rev)" + T="$(dirname -- "$L")/$(readlink -- "$dir/$f" | rev | cut -d . -f 2- | rev)" + T="$(printf '%s\n' "$T" | sed 's:/\(./\)*:/:g')" + while printf '%s\n' "$T" | grep '/../' > /dev/null; do + T="$(printf '%s\n' "$T" | sed 's:[^/]*/\.\./::')" + done + printf '%s\n\t%s\n' "$T" "$L" +done -- cgit v1.2.3-70-g09d2