ref: 09c2fc351115c87390601cb39f5cd480b24e555a
dir: /init/
#!/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='
}