数学计算

开发平台：
Unix_Linux

t-import.c：源码内容
							/* Test mpz_import.
Copyright 2002, 2003 Free Software Foundation, Inc.
This file is part of the GNU MP Library.
The GNU MP Library is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
the Free Software Foundation; either version 3 of the License, or (at your
option) any later version.
The GNU MP Library is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
License for more details.
You should have received a copy of the GNU Lesser General Public License
along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.  */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "gmp.h"
#include "gmp-impl.h"
#include "tests.h"
void
check_data (void)
{
  static const struct {
    const char  *want;
    size_t      count;
    int         order;
    size_t      size;
    int         endian;
    int         nail;
    char        src[64];
  } data[] = {
    { "0", 0,1, 1,1, 0 },
    { "0", 1,1, 0,1, 0 },
    { "0x12345678", 4,1,  1,1, 0, { '22', '64', '126', '170' } },
    { "0x12345678", 1,1,  4,1, 0, { '22', '64', '126', '170' } },
    { "0x12345678", 1,-1, 4,1, 0, { '22', '64', '126', '170' } },
    { "0x12345678", 4,-1, 1,-1, 0, { '170', '126', '64', '22' } },
    { "0x12345678", 1,1,  4,-1, 0, { '170', '126', '64', '22' } },
    { "0x12345678", 1,-1, 4,-1, 0, { '170', '126', '64', '22' } },
    { "0",    5,1,  1,1, 7, { '376', '376', '376', '376', '376' } },
    { "0",    5,-1, 1,1, 7, { '376', '376', '376', '376', '376' } },
    { "0x15", 5,1,  1,1, 7, { '377', '376', '377', '376', '377' } },
    { "0",    3,1,  2,1,   1, { '200','00', '200','00', '200','00' }},
    { "0",    3,1,  2,-1,  1, { '00','200', '00','200', '00','200' }},
    { "0",    3,1,  2,1,  15, { '377','376', '377','376', '377','376' }},
    { "0x2A", 3,1,  2,1, 14, { '377','376', '377','376', '377','376' } },
    { "0x06", 3,1,  2,1, 14, { '377','374', '377','375', '377','376' } },
    { "0x24", 3,-1, 2,1, 14, { '377','374', '377','375', '377','376' } },
    { "0x123456789ABC", 3,1,  2,1,  0, {
        '22','64', '126','170', '232','274' } },
    { "0x123456789ABC", 3,-1, 2,1,  0, {
        '232','274', '126','170', '22','64' } },
    { "0x123456789ABC", 3,1,  2,-1, 0, {
        '64','22', '170','126', '274','232' } },
    { "0x123456789ABC", 3,-1, 2,-1, 0, {
        '274','232', '170','126', '64','22' } },
    { "0x112233445566778899AABBCC", 3,1,  4,1,  0,
      { '21','42','63','104',
        '125','146','167','210',
        '231','252','273','314' } },
    { "0x112233445566778899AABBCC", 3,-1, 4,1,  0,
      { '231','252','273','314',
        '125','146','167','210',
        '21','42','63','104' } },
    { "0x112233445566778899AABBCC", 3,1,  4,-1, 0,
      { '104','63','42','21',
        '210','167','146','125',
        '314','273','252','231' } },
    { "0x112233445566778899AABBCC", 3,-1, 4,-1, 0,
      { '314','273','252','231',
        '210','167','146','125',
        '104','63','42','21' } },
    { "0x100120023003400450056006700780089009A00AB00BC00C", 3,1,  8,1,  0,
      { '20','01','40','02','60','03','100','04',
        '120','05','140','06','160','07','200','10',
        '220','11','240','12','260','13','300','14' } },
    { "0x100120023003400450056006700780089009A00AB00BC00C", 3,-1, 8,1,  0,
      { '220','11','240','12','260','13','300','14',
        '120','05','140','06','160','07','200','10',
        '20','01','40','02','60','03','100','04' } },
    { "0x100120023003400450056006700780089009A00AB00BC00C", 3,1,  8,-1, 0,
      { '04','100','03','60','02','40','01','20',
        '10','200','07','160','06','140','05','120',
        '14','300','13','260','12','240','11','220' } },
    { "0x100120023003400450056006700780089009A00AB00BC00C", 3,-1, 8,-1, 0,
      { '14','300','13','260','12','240','11','220',
        '10','200','07','160','06','140','05','120',
        '04','100','03','60','02','40','01','20' } },
    { "0x155555555555555555555555", 3,1,  4,1,  1,
      { '325','125','125','125',
        '252','252','252','252',
        '325','125','125','125' } },
    { "0x155555555555555555555555", 3,-1,  4,1,  1,
      { '325','125','125','125',
        '252','252','252','252',
        '325','125','125','125' } },
    { "0x155555555555555555555555", 3,1,  4,-1,  1,
      { '125','125','125','325',
        '252','252','252','252',
        '125','125','125','325' } },
    { "0x155555555555555555555555", 3,-1,  4,-1,  1,
      { '125','125','125','325',
        '252','252','252','252',
        '125','125','125','325' } },
  };
  char    buf[sizeof(data[0].src) + sizeof (mp_limb_t)];
  char    *src;
  size_t  align;
  int     i;
  mpz_t   got, want;
  mpz_init (got);
  mpz_init (want);
  for (i = 0; i < numberof (data); i++)
    {
      for (align = 0; align < sizeof (mp_limb_t); align++)
        {
          mpz_set_str_or_abort (want, data[i].want, 0);
          src = buf + align;
          memcpy (src, data[i].src, data[i].count * data[i].size);
          mpz_set_ui (got, 0L);
          mpz_import (got, data[i].count, data[i].order,
                      data[i].size, data[i].endian, data[i].nail, src);
          MPZ_CHECK_FORMAT (got);
          if (mpz_cmp (got, want) != 0)
            {
              printf ("wrong at data[%d]n", i);
              printf ("    count=%lu order=%d  size=%lu endian=%d nail=%u  align=%lun",
                      (unsigned long) data[i].count, data[i].order,
                      (unsigned long) data[i].size, data[i].endian, data[i].nail,
                      (unsigned long) align);
              mpz_trace ("    got ", got);
              mpz_trace ("    want", want);
              abort ();
            }
        }
    }
  mpz_clear (got);
  mpz_clear (want);
}
int
main (void)
{
  tests_start ();
  mp_trace_base = -16;
  check_data ();
  tests_end ();
  exit (0);
}

						