hlfw.ca

task

ref: 6e7bc9b9dc67f5556f2c0c2ed2742e5b1c1ef710
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='
}