develooper Front page | perl.perl6.internals | Postings from December 2001

Re: Key stuff for aggregates

Thread Previous | Thread Next
From:
Jeff G
Date:
December 6, 2001 21:44
Subject:
Re: Key stuff for aggregates
Message ID:
3C1056AE.4A6A3195@speakeasy.net
Tests passed...

---cut here---
new_key S0
  clone_key S1,S0
  size_key  S1,5
  key_size  I0,S1
  print     "I0 (3) "
  print     I0
  print     "\n"
toss_key S0

#ke_type I1,S1,1

  ke_set_value S1,0,5
  ke_value I0,S1,0
  ke_type I1,S1,0
  print "I0 (5) I1 (0): "
  print I0
  print " "
  print I1
  print "\n"

  ke_set_value S1,1,-3.75
  ke_value N0,S1,1
  ke_type I1,S1,1
  print "N0 (-3.75) I1 (0): "
  print N0
  print " "
  print I1
  print "\n"

  ke_set_value S1,2,"bar"
  ke_value S0,S1,2
  ke_type I1,S1,2
  print "S0 (bar) I1 (0): "
  print S0
  print " "
  print I1
  print "\n"

end
---cut here---

I added the ke_set_value operation to allow us to set key indices.
The above test passed, and it'll be available after 0.03 is finished.

--
Jeff <jgoff@speakeasy.net>
Thread Previous | Thread Next

nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About