9 lines
132 B
Bash
9 lines
132 B
Bash
#!/bin/rc
|
|
|
|
fn car { echo $1 | sed 's/^.*\.//' }
|
|
fn cdr { echo $1 | sed 's/\.[^.]*$//' }
|
|
|
|
self=`{basename `{pwd}}
|
|
name=`{car $self}
|
|
|