Vyššie na [Platon] / platos / _scripts

Shell changed to bash, because something was not working properly

#!/bin/bash

#
# _scripts/path-cleanup
#
# Developed by Lubomir Host 'rajo' <rajo AT platon.sk>
# Copyright (c) 2005 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 2005-06-11 - created
#

# $Platon: Platon.SK/office/_scripts/path-cleanup,v 1.1 2005-06-11 01:46:58 rajo Exp $

#
# Make cleanup in path:
#
# 1. - remove duplicated  '/././'
# 2. - remove duplicated   '//'
# 2. - remove directories 'a/b/../c/'  -->  'a/c/'

# comment out next line for debugging
DEBUG=":"

# uncomment next line and progress bar is turned off
#PROGRESSBAR=":"

OUT="/dev/stderr"

REGEXP='s%/\(\./\)\+%/%g; s%/\+%/%g; s%\([^/]\+\)/\.\./%%g; s%/\.\?$%%g;'

make_clanup()
{ # {{{
    file="$1"
    $DEBUG echo "--> Starting with '$file'" > $OUT
    $PROGRESSBAR echo -n "Cleaning path ." > $OUT
    old="$file"
    file=`echo "$file" | sed -e "$REGEXP"`
    $DEBUG echo "    first iter: '$file'" > $OUT
    while [ "x$old" != "x$file" ]; do
        old="$file"
        file=`echo "$file" | sed -e "$REGEXP"`
        $DEBUG echo "          iter: '$file'" > $OUT
        $PROGRESSBAR echo -n "." > $OUT
    done
    $PROGRESSBAR echo " done." > $OUT

    echo "$file"

} # }}}

for filename in $*; do
    make_clanup "$filename"
done