Language::Befunge::Storage::Generic::Vec::XS - Language::Befunge::Storage::Generic::Vec rewritten for speed

Language-Befunge-Storage-Generic-Vec-XS documentation Contained in the Language-Befunge-Storage-Generic-Vec-XS distribution.

Index

Code Index:

NAME

Top

Language::Befunge::Storage::Generic::Vec::XS - Language::Befunge::Storage::Generic::Vec rewritten for speed

DESCRIPTION

Top

Language::Befunge::Storage::Generic::Vec implements a linear storage model, where a perl string is used to store a (potentially very large) integer array. The integers are accessed from perl with vec().

Unfortunately, vec() operates on unsigned integers, which means some extra calculations are necessary to convert between unsigned and signed integers.

If the access was done from C, using a signed integer pointer, the access would be much faster, and the conversion would be unnecessary.

METHODS

Top

This module implements a subset of the LBSGV API. Please refer to that module for more information on the methods we implement, listed as follows:

get_value()
set_value()
_offset()
expand()
_is_xs()

SEE ALSO

Top

Language::Befunge::Storage::Generic::Vec

AUTHOR

Top

Mark Glines, <mark@glines.org>

Development is discussed on <language-befunge@mongueurs.net>

COPYRIGHT & LICENSE

Top

Copyright (c) 2008 Mark Glines, all rights reserved.

This program is licensed under the terms of the Artistic License, version 2.0. See the "LICENSE" file for details.

Language-Befunge-Storage-Generic-Vec-XS documentation Contained in the Language-Befunge-Storage-Generic-Vec-XS distribution. 
#
# This file is part of Language::Befunge::Storage::Generic::Vec::XS.
# Copyright (c) 2008 Mark Glines, all rights reserved.
#
# This program is licensed under the terms of the Artistic License v2.0.
# See the "LICENSE" file for details.


package Language::Befunge::Storage::Generic::Vec::XS;

use strict;
use warnings;
no warnings 'redefine';

our $VERSION = '0.03';

use base 'Language::Befunge::Storage::Generic::Vec';
use Language::Befunge::Vector;

require XSLoader;
XSLoader::load('Language::Befunge::Storage::Generic::Vec::XS', $VERSION);

# Preloaded methods go here.

sub get_value {
    my ($self, $v) = @_;
    my ($min, $max, $nd) = @$self{qw(min max nd)};
    return 32 unless $v->bounds_check($min, $max);
    my $rv = $self->_get_value($v, $$self{torus}, $min, $max, $nd);
    return $rv;
}


sub set_value {
    my ($self, $v, $value) = @_;
    my ($min, $max, $nd) = @$self{qw(min max nd)};
    unless($v->bounds_check($min, $max)) {
        $self->expand($v);
        # min/max were overwritten by expand()
        ($min, $max) = @$self{qw(min max)};
    }
    return $self->_set_value($v, $$self{torus}, $min, $max, $nd, $value);
}


sub _offset {
    my ($self, $v, $min, $max) = @_;
    $min //= $$self{min};
    $max //= $$self{max};
    return $self->__offset($$self{nd}, $v, $min, $max);
}


sub expand {
    my ($self, $point) = @_;
    my ($omin, $omax, $nd) = @$self{qw(min max nd)};
    return if $point->bounds_check($omin, $omax);
    my ($min, $max) = ($omin->copy, $omax->copy);
    my $torus = $$self{torus};
    my $rv = $self->_expand($nd, $point->copy, $min, $max, $omin, $omax, $torus);
    $$self{torus} = $rv;
    $$self{min} = $min;
    $$self{max} = $max;
}


sub _is_xs { 1 }

1;
__END__