ALIAS hren {
IF ($0 == 2) {
IF $hget($1) {
VAR %t1.size $hget($1).size
HSAVE -o $1 temp.data. [ $+ [ $1 ] $+ ] .hsh
}
ELSE {
ECHO 4 -a /hren error: Table $1 does not exist
HALT
}
IF $hget($2) { ECHO 4 -a /hren error: Table $2 alread exists }
ELSE {
HMAKE -s $2 %t1.size
HLOAD -s $2 temp.data. [ $+ [ $1 ] $+ ] .hsh
HFREE -s $1 %t1.size
}
ECHO 4 -a /hren: Successfully completed operation.
}
ELSE { ECHO 4 -a Syntax Error: /hren <table1> <table2> }
}