alias hcopy {
if ($1 == -s) {
tokenize 32 $2-
var %s = $true
}
if (!$hget($1)) {
echo -s * /hcopy: no such table $+(',$1,')
return
}
if ($hget($2)) hfree $2
hmake $2 $hget($1).size
var %items = $hget($1,0).item, %item = 1, %it
while (%item <= %items) {
var %it = $hget($1,%item).item
hadd $2 %it $hget($1,%it)
inc %item
}
if (%s) echo -s * Hashtable $+(',$1,') copied to $+(',$2,')
}