Re: Implementing (elisp-like) buffers in Perl 6: how to do buffer-localisation of arbitrary package variables?

[premchai21]

Could you have an on-buffer-change hook of some sort that accesses a data structure keeping track of which variables were buffer-local to which buffers and swaps their values in and out appropriately?

That is, something like (quite untested):

sub onBufferChange
{
  my ($from, $to) = @_;
  for my $scl (values $from->{locals}) {
    $$$scl[0] = $globalLocals{$$scl[0]}[1];
  }
  for my $scl (values $to->{locals}) {
    exists $globalLocals{$$scl[0]} or
      $globalLocals{$$scl[0]} = [$$scl[0], $$$scl[0]];
    $$$scl[0] = $$scl[1];
  }
}

I have the feeling I've missed the point...