Forums Feature Suggestions /hcopy - Copy hash tables

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,')
} 

/hcopy {
  hsave $1 tempfile
  hmake $2 $hget($1,*).data
  hload $2 tempfile
  .remove tempfile
}