#!/bin/sh
# ' Change les paths absolus du directory d installation de Le←Lisp '
# ''
# ' Exemple: newdir /usr/ilog/lelisp/vax'

case $1 in
  /*/*)
  sysdir="$1"
  dir=`echo $sysdir | sed 's-\(.*\)/.*$-\1-'` ;;
  "")
  sysdir=`pwd`
  cd ..
  dir=`pwd`
  cd $sysdir ;;
  *)
  echo "Usage: $0 [path←absolu←du←repertoire←de←la←machine]" ;;
esac

chmod -f +w complice config
ed complice <<!
/DIR=/s|=.*\$|=$dir|p
/SYSDIR=/s|=.*\$|=$sysdir|p
w
!
ed config <<!
/DIR=/s|=.*\$|=$dir|p
/SYSDIR=/s|=.*\$|=$sysdir|p
w
!
chmod -f -w complice config

chmod -f +w ../llib/startup.ll
ed ../llib/startup.ll <<!
/(defvar #:system:directory/s|".*"|"$dir/"|p
w
!
chmod -f -w ../llib/startup.ll