shared_source/c_datd/esrg_int_def.c

//$Header$
//-------------------------------------------------------------------------------------------------
//This file is part of "David T. Ashley's Shared Source Code", a set of shared components
//integrated into many of David T. Ashley's projects.
//-------------------------------------------------------------------------------------------------
//This source code and any program in which it is compiled/used is provided under the MIT License,
//reproduced below.
//-------------------------------------------------------------------------------------------------
//Permission is hereby granted, free of charge, to any person obtaining a copy of
//this software and associated documentation files(the "Software"), to deal in the
//Software without restriction, including without limitation the rights to use,
//copy, modify, merge, publish, distribute, sublicense, and / or sell copies of the
//Software, and to permit persons to whom the Software is furnished to do so,
//subject to the following conditions :
//
//The above copyright notice and this permission notice shall be included in all
//copies or substantial portions of the Software.
//
//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
//IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
//FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
//AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
//LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
//OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
//SOFTWARE.
//-------------------------------------------------------------------------------------------------
#define MODULE_ESRG_INT_DEF

#include <assert.h>
#include <string.h>

#include "esrg_int_def.h"


void ESRG_INT_DEF_Create( ESRG_INT_DEF_INT *arg, int is_signed )
   {
   assert(arg != NULL);

   memset(arg, 0, sizeof(ESRG_INT_DEF_INT));

   if (is_signed)
      {
      arg->flags = ESRG_INT_DEF_FLAG_IS_SIGNED;
      }
   }


void ESRG_INT_DEF_AssignU( ESRG_INT_DEF_INT *arg, unsigned int aval)
   {
   assert(arg != NULL);

   //Reset any pending error flags.  An assignment starts fresh.
   arg->flags &= ~(ESRG_INT_DEF_FLAG_NEG_ROLL | ESRG_INT_DEF_FLAG_POS_ROLL | ESRG_INT_DEF_FLAG_NAN);

   arg->limbs[0] = aval;
   memset(&(arg->limbs[1]), 0, sizeof(arg->limbs[0]) * (ESRG_INT_DEF_NLIMBS-1));

   //The only circumstance under which there is an overflow
   //is if the value is inherently signed and if the limbs per 
   //int is 1 and the MSB is set.
   if (arg->flags & ESRG_INT_DEF_FLAG_IS_SIGNED)
      {
      if (ESRG_INT_DEF_NLIMBS == 1)
         {
         if (aval & (1 << (ESRG_INT_DEF_NATIVE_BITSIZE-1)))
            {
            arg->flags |= ESRG_INT_DEF_FLAG_POS_ROLL;
            }
         }
      }
   }


void ESRG_INT_DEF_AssignS( ESRG_INT_DEF_INT *arg, int aval)
   {
   assert(arg != NULL);

   //Reset any pending error flags.  An assignment starts fresh.
   arg->flags &= ~(ESRG_INT_DEF_FLAG_NEG_ROLL | ESRG_INT_DEF_FLAG_POS_ROLL | ESRG_INT_DEF_FLAG_NAN);

   arg->limbs[0] = aval;
      //Assign the base limb.

   //Deal with the sign extension.  If the number is not signed,
   //don't extend at all.  If the number is signed, extend.
   if (arg->flags & ESRG_INT_DEF_FLAG_IS_SIGNED)
      {
      if (aval < 0)
         memset(&(arg->limbs[1]), -1, sizeof(arg->limbs[0]) * (ESRG_INT_DEF_NLIMBS-1));
      else
         memset(&(arg->limbs[1]),  0, sizeof(arg->limbs[0]) * (ESRG_INT_DEF_NLIMBS-1));
      }
   else
      {
      memset(&(arg->limbs[1]),  0, sizeof(arg->limbs[0]) * (ESRG_INT_DEF_NLIMBS-1));
      }
   
   //The only circumstance under which there is an overflow
   //is if the value is inherently unsigned and if the limbs per 
   //int is 1 and the MSB is set.
   if (!(arg->flags & ESRG_INT_DEF_FLAG_IS_SIGNED))
      {
      if (ESRG_INT_DEF_NLIMBS == 1)
         {
         if (aval & (1 << (ESRG_INT_DEF_NATIVE_BITSIZE-1)))
            {
            arg->flags |= ESRG_INT_DEF_FLAG_POS_ROLL;
            }
         }
      }
   }


int ESRG_INT_DEF_Cmp ( ESRG_INT_DEF_INT *a, ESRG_INT_DEF_INT *b )
   {
   assert(a != NULL);
   assert(b != NULL);

   return(0);
   }

//End of esrg_int_def.c.
1	dashley	56	//$Header$
2	dashley	25	//-------------------------------------------------------------------------------------------------
3	dashley	56	//This file is part of "David T. Ashley's Shared Source Code", a set of shared components
4			//integrated into many of David T. Ashley's projects.
5	dashley	25	//-------------------------------------------------------------------------------------------------
6	dashley	56	//This source code and any program in which it is compiled/used is provided under the MIT License,
7			//reproduced below.
8			//-------------------------------------------------------------------------------------------------
9			//Permission is hereby granted, free of charge, to any person obtaining a copy of
10			//this software and associated documentation files(the "Software"), to deal in the
11			//Software without restriction, including without limitation the rights to use,
12			//copy, modify, merge, publish, distribute, sublicense, and / or sell copies of the
13			//Software, and to permit persons to whom the Software is furnished to do so,
14			//subject to the following conditions :
15	dashley	25	//
16	dashley	56	//The above copyright notice and this permission notice shall be included in all
17			//copies or substantial portions of the Software.
18	dashley	25	//
19	dashley	56	//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
20			//IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
21			//FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
22			//AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
23			//LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
24			//OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
25			//SOFTWARE.
26	dashley	25	//-------------------------------------------------------------------------------------------------
27			#define MODULE_ESRG_INT_DEF
28
29			#include <assert.h>
30			#include <string.h>
31
32			#include "esrg_int_def.h"
33
34
35			void ESRG_INT_DEF_Create( ESRG_INT_DEF_INT *arg, int is_signed )
36			{
37			assert(arg != NULL);
38
39			memset(arg, 0, sizeof(ESRG_INT_DEF_INT));
40
41			if (is_signed)
42			{
43			arg->flags = ESRG_INT_DEF_FLAG_IS_SIGNED;
44			}
45			}
46
47
48			void ESRG_INT_DEF_AssignU( ESRG_INT_DEF_INT *arg, unsigned int aval)
49			{
50			assert(arg != NULL);
51
52			//Reset any pending error flags. An assignment starts fresh.
53			arg->flags &= ~(ESRG_INT_DEF_FLAG_NEG_ROLL \| ESRG_INT_DEF_FLAG_POS_ROLL \| ESRG_INT_DEF_FLAG_NAN);
54
55			arg->limbs[0] = aval;
56			memset(&(arg->limbs[1]), 0, sizeof(arg->limbs[0]) * (ESRG_INT_DEF_NLIMBS-1));
57
58			//The only circumstance under which there is an overflow
59			//is if the value is inherently signed and if the limbs per
60			//int is 1 and the MSB is set.
61			if (arg->flags & ESRG_INT_DEF_FLAG_IS_SIGNED)
62			{
63			if (ESRG_INT_DEF_NLIMBS == 1)
64			{
65			if (aval & (1 << (ESRG_INT_DEF_NATIVE_BITSIZE-1)))
66			{
67			arg->flags \|= ESRG_INT_DEF_FLAG_POS_ROLL;
68			}
69			}
70			}
71			}
72
73
74			void ESRG_INT_DEF_AssignS( ESRG_INT_DEF_INT *arg, int aval)
75			{
76			assert(arg != NULL);
77
78			//Reset any pending error flags. An assignment starts fresh.
79			arg->flags &= ~(ESRG_INT_DEF_FLAG_NEG_ROLL \| ESRG_INT_DEF_FLAG_POS_ROLL \| ESRG_INT_DEF_FLAG_NAN);
80
81			arg->limbs[0] = aval;
82			//Assign the base limb.
83
84			//Deal with the sign extension. If the number is not signed,
85			//don't extend at all. If the number is signed, extend.
86			if (arg->flags & ESRG_INT_DEF_FLAG_IS_SIGNED)
87			{
88			if (aval < 0)
89			memset(&(arg->limbs[1]), -1, sizeof(arg->limbs[0]) * (ESRG_INT_DEF_NLIMBS-1));
90			else
91			memset(&(arg->limbs[1]), 0, sizeof(arg->limbs[0]) * (ESRG_INT_DEF_NLIMBS-1));
92			}
93			else
94			{
95			memset(&(arg->limbs[1]), 0, sizeof(arg->limbs[0]) * (ESRG_INT_DEF_NLIMBS-1));
96			}
97
98			//The only circumstance under which there is an overflow
99			//is if the value is inherently unsigned and if the limbs per
100			//int is 1 and the MSB is set.
101			if (!(arg->flags & ESRG_INT_DEF_FLAG_IS_SIGNED))
102			{
103			if (ESRG_INT_DEF_NLIMBS == 1)
104			{
105			if (aval & (1 << (ESRG_INT_DEF_NATIVE_BITSIZE-1)))
106			{
107			arg->flags \|= ESRG_INT_DEF_FLAG_POS_ROLL;
108			}
109			}
110			}
111			}
112
113
114			int ESRG_INT_DEF_Cmp ( ESRG_INT_DEF_INT a, ESRG_INT_DEF_INT b )
115			{
116			assert(a != NULL);
117			assert(b != NULL);
118
119			return(0);
120			}
121
122	dashley	56	//End of esrg_int_def.c.