hlfw.ca

task

ref: 57a3cb892d1df2f3787531e0ead84c8e943744ea
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/todo

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