# Copyright (C) 2001-2006, Parrot Foundation.

=head1 NAME

docs/dev/byteorder.pod - Byteorder Conversion Functions

=head1 Overview

The platform byteorder is stored for C code in F<include/parrot/config.h>

  #define PARROT_BYTEORDER        0x1234

for parrot code in

=begin PIR_FRAGMENT

  $P0 = getinterp
  .include 'iglobals.pasm'
  $P1 = $P0[.IGLOBALS_CONFIG_HASH]
  $P2 = $P1["byteorder"]

=end PIR_FRAGMENT

or for perl code via

  use Parrot::Config;
  $PConfig{byteorder};

The byteorder values are analog to perl, see L<perlfunc/pack>:

  1234  little-endian 32-bit, 12345678  little-endian 64-bit
  4321  big-endian 32-bit,    87654321  big-endian 64-bit

When reading a pbc stored in a different architecture, the pbc header defines
the pbc byteorder for the architecture which stored the pbc, and the
F<src/packfile/pf_items.c> functions are used to convert the values to the
native endianness, wordsize and ptrsize.

The byteorder code will check the endianness of an C<INTVAL> or an C<opcode_t>
value and swap from little to big, or big to little when appropriate. Functions
also exist to convert a 4, 8, 12, or 16 byte character buffer to big or little
endian. The functions are be placed in the PackFile vtable and are be called
when necessary. The Parrot interpreter is be smart enough to avoid calling
these functions when converting from and to the same byteorder.

=head1 Data Structures and Algorithms

The algorithm to change from one endianness to another is identical and simple
to understand.  Basically, the size of an C<INTVAL> or C<opcode_t> is used to
determine at compile time how many bits should be shifted around. Then the
correct bits are shifted by the correct amounts (please look at source code for
exact amounts). The buffer change functions are implemented by a straight
forward algorithm that assigns swaps all of the bytes.

=head1 Important Functions

=over 4

=item C<fetch_iv_le>

This function will convert an C<INTVAL> into little endian format.  It is a
no-op if the native format is already little endian.

=item C<fetch_iv_be>

This function will convert an C<INTVAL> into big endian format. It is a no-op
if the native format is already big endian.

=item C<fetch_op_le>

This function will convert an C<opcode_t> into little endian format. It is a
no-op if the native format is already little endian.

=item C<fetch_op_be>

This function will convert an C<opcode_t> into big endian format. It is a no-op
if the native format is already big endian.

=item C<fetch_buf_le_>(4,8,12,16)

This set of functions will convert an unsigned character buffer into little
endian format.  Only a C<memcpy> is performed if the native format is already
little endian.

=item C<fetch_buf_be_>(4,8,12,16)

This set of functions will convert an unsigned character buffer into big endian
format.  Only a C<memcpy> is performed if the native format is already big
endian.

=back

=head1 Low level FLOATVAL fetch and convert functions

We support two different floattypes, stored in the pbc header as 0 or 1.

  Floattype 0 = IEEE-754 8 byte double
  Floattype 1 = x86 little endian 12 byte long double

=over 4

=item C<cvt_num12_num8>

Converts i386 LE 12-byte long double to IEEE 754 8 byte double.

=item C<cvt_num12_num8_be>

Converts a 12-byte i386 long double into a big-endian IEEE 754 8-byte double.
Converting to BE is not yet implemented (throws internal_exception).

=item C<cvt_num12_num8_le>

Converts a 12-byte i386 long double into a little-endian IEEE 754
8-byte double.

=back

=head1 Unimplemented Functions

=over 4

=item C<endianize_fetch_int>

Fetch an C<INTVAL> directly from a bytestream

=item C<endianize_put_int>

Put an C<INTVAL> directly on a bytestream

=back

=head1 History

Initial version by Melvin on 2002-01-05,
more byteorder explanations by Reini Urban 2009-02-02

=head1 Notes

This assumes big or little endianness...other, more esoteric forms (such as
middle endian) are not supported.  Also, an assumption of 4 or 8 byte
C<INTVAL>'s and C<opcode_t>'s is made.

=head1 References

The fetch and transformer functions are implemented in F<src/packfile/pf_items.c>

=cut

__END__
Local Variables:
  fill-column:78
End:
vim: expandtab shiftwidth=2 textwidth=70:
