#!/bin/sh
#
# Copyright (c) 2007 Benjamin Schweizer. All rights reserved.
#
#
# Abstract
# ~~~~~~~~
# Opens $EDITOR for RCS files if present, otherwise creates RCS files
#
# Authors
# ~~~~~~~
# Benjamin Schweizer <code at benjamin-schweizer dot de>
#
# Changes
# ~~~~~~~
# 2007-09-28, schweizer: initial release
#
# Todo
# ~~~~
# - we'll see
#

test "${EDITOR}" || EDITOR=`which vi` || exit 1
which rcs > /dev/null || exit 2
test "${1}" || exit 3

co -l $@ 2> /dev/null
${EDITOR} $@
ci -u $@

# eof.