#!/bin/sh
# 
# relpath -- construct path relative to cwd
# 
#   Copyright (C) 1996 1997 1998 1999 2000 2001 Ian Piumarta and individual
#      authors/contributors listed elsewhere in this file.
#   All rights reserved.
#   
#   This file is part of Unix Squeak.
# 
#   This file is distributed in the hope that it will be useful, but WITHOUT
#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
#   FITNESS FOR A PARTICULAR PURPOSE.
#   
#   You may use and/or distribute this file ONLY as part of Squeak, under
#   the terms of the Squeak License as described in `LICENSE' in the base of
#   this distribution, subject to the following restrictions:
# 
#   1. The origin of this software must not be misrepresented; you must not
#      claim that you wrote the original software.  If you use this software
#      in a product, an acknowledgment to the original author(s) (and any
#      other contributors mentioned herein) in the product documentation
#      would be appreciated but is not required.
# 
#   2. This notice may not be removed or altered in any source distribution.
# 
#   Using or modifying this file for use in any context other than Squeak
#   changes these copyright conditions.  Read the file `COPYING' in the base
#   of the distribution before proceeding with any such use.
# 
#   You are STRONGLY DISCOURAGED from distributing a modified version of
#   this file under its original name without permission.  If you must
#   change it, rename it first.
# 
# Author: Ian.Piumarta@INRIA.Fr
# 
# Last edited: Mon Aug 28 08:55:34 2000 by piumarta (Ian Piumarta) on emilia

if test $# -ne 2; then
  echo "usage: $0 srcdir path"
fi

cwd=$1
path=$2

for dir in `echo $cwd | tr '/' ' '`; do
  if expr match $path "/$dir" >/dev/null; then
    path=`echo $path | sed "s,^/$dir,,"`
    cwd=`echo $cwd | sed "s,^/$dir,,"`
  fi
done

path=`echo $path | sed 's,^/,,'`

for dir in `echo $cwd | tr '/' ' '`; do
  path="../$path"
done

echo $path
