shithub: riscv

ref: dc512aea211afa46b9f98623d7cf70b4a12da0c1
dir: /rc/bin/replica/defs/

View raw version 
tmp=()

fn fatal {
	if(! ~ $#tmp 0)
		rm -f $tmp
	echo $* >[1=2]
	exit $"*
}

fn must {
	$* || fatal $"*^': '^$status
}

fn need {
	for(i)
		if(~ $$i UNCONFIGURED)
			fatal $name^' does not set $'^$i
}

opt=()
while(! ~ $#* 0 && ~ $1 -*){
	if(~ $1 -s -c){	# take one argument 
		opt=($opt $1)
		shift
	}
	opt=($opt $1)
	shift
}
if(~ $1 --)
	shift
if(~ $#* 0)
	usage
name=$1
shift
paths=($*)

if(! ~ $name /* ./* ../*)
	name=$home/lib/replica/$name

if(! test -x $name)
	fatal no such replica $name

cfgopt=()
applyopt=()
fn servermount { status='' }
fn clientmount { status='' }
fn serverupdate { status='' }
for (i in clientroot clientproto clientdb clientexclude serverroot serverlog serverproto)
	$i=UNCONFIGURED
. $name

if(! ~ $#serverexclude 0)
	serverexclude=-x^$serverexclude
if(! ~ $#clientexclude 0)
	clientexclude=-x^$clientexclude