hlfw.ca

task

ref: d67b1c7ecb14d025f262edbcbab4b92d54f8b397
dir: /init/

View raw version 
#!/bin/rc -e
rfork ne

dir=$1
if(~ $#dir 0)
	dir=.
if(test -e $dir/.pro){
	echo $0: $dir/.pro already exists >[1=2]
	exit 'exists'
}

name=`{basename `{cleanname -d `{pwd} $dir}}
mkdir -p $dir/.pro/task

touch $dir/.pro/ns
>$dir/.pro/config {
	echo '[project '$name']'
	echo '	srvname='$name
	echo '	stubs='
}