head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	2003.10.13.03.12.13;	author yoichi;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Import Emacs Lisp setup/remove script set.
@
text
@#!/bin/sh
# ex:ts=4
#
# $FreeBSD$
#

# Get script basename
lbase=`basename $0`
real=`realpath $0`
base=`basename ${real}`
dir=`dirname ${real}`

# Read configuration files.
if [ -f ${dir}/${base}.conf ]; then
    . ${dir}/${base}.conf
else
    echo "Cannot read configuration file:"
    echo "[`realpath ${dir}/${base}.conf`]"
    exit 1;
fi

# Read subroutine-definitions file.
if [ -f ${dir}/${base}.subr ]; then
    . ${dir}/${base}.subr
fi

# Grab options 
verbose=0
case "$1" in
-v)
    verbose=1
    shift
    ;;
esac

ECHO_ERR="echo"
if [ "${verbose}" = "1" ]; then
    ECHO_CMD="echo"
else
    ECHO_CMD="true"
fi

# Grab arguments
arg1=$1
arg2=$2
arg3=$3

# Switch with script name
case "${lbase}" in
emsetup)
    [ "x${arg1}" = "x" ] && print_usage_emacsen || true
    setup_emacsen ${arg1}
    ;;
emremove)
    [ "x${arg1}" = "x" ] && print_usage_emacsen || true
    remove_emacsen ${arg1}
    ;;
elsetup)
    [ "x${arg1}" = "x" ] && print_usage_elisp || true
    setup_elisp ${arg1}
    ;;
elremove)
    [ "x${arg1}" = "x" ] && print_usage_elisp || true
    remove_elisp ${arg1}
    ;;
elisp-conf)
    [ "x${arg1}" = "x" ] && print_usage_elisp_conf
    action=${arg1}

    # Grap operations
    case "${action}" in 
    setup)
        [ "x${arg2}" = "x" ] && print_usage_elisp_conf
        [ "x${arg3}" = "x" ] && print_usage_elisp_conf
        elisp=${arg2}
        emacsen=${arg3}
        setup_elisp_emacsen ${elisp} ${emacsen}
        ;;
    remove)
        [ "x${arg2}" = "x" ] && print_usage_elisp_conf
        [ "x${arg3}" = "x" ] && print_usage_elisp_conf
        elisp=${arg2}
        emacsen=${arg3}
        remove_elisp_emacsen ${elisp} ${emacsen}
        ;;
    *)
        print_usage_elisp_conf
        ;;
    esac
    ;;
*)
    print_usage_elisp_conf
    ;;
esac

exit 0;
@
