mirror of
https://github.com/postgres/postgres.git
synced 2025-06-30 21:42:05 +03:00
Postgres95 1.01 Distribution - Virgin Sources
This commit is contained in:
Marc G. Fournier
343
src/backend/utils/adt/int.c
Normal file
343
src/backend/utils/adt/int.c
Normal file
@ -0,0 +1,343 @@
|
||||
/*-------------------------------------------------------------------------
|
||||
*
|
||||
* int.c--
|
||||
* Functions for the built-in integer types.
|
||||
*
|
||||
* Copyright (c) 1994, Regents of the University of California
|
||||
*
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/backend/utils/adt/int.c,v 1.1.1.1 1996/07/09 06:22:04 scrappy Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
/*
|
||||
* OLD COMMENTS
|
||||
* I/O routines:
|
||||
* int2in, int2out, int28in, int28out, int4in, int4out
|
||||
* Conversion routines:
|
||||
* itoi
|
||||
* Boolean operators:
|
||||
* inteq, intne, intlt, intle, intgt, intge
|
||||
* Arithmetic operators:
|
||||
* intpl, intmi, int4mul, intdiv
|
||||
*
|
||||
* Arithmetic operators:
|
||||
* intmod, int4fac
|
||||
*
|
||||
* XXX makes massive and possibly unwarranted type promotion assumptions.
|
||||
* fix me when we figure out what we want to do about ANSIfication...
|
||||
*/
|
||||
|
||||
#include "postgres.h"
|
||||
#include "fmgr.h"
|
||||
#include "utils/builtins.h" /* where the declarations go */
|
||||
#include "utils/elog.h"
|
||||
#include "utils/palloc.h"
|
||||
|
||||
/*****************************************************************************
|
||||
* USER I/O ROUTINES *
|
||||
*****************************************************************************/
|
||||
|
||||
/*
|
||||
* int2in - converts "num" to short
|
||||
*/
|
||||
int32 int2in(char *num)
|
||||
{
|
||||
return((int32) pg_atoi(num, sizeof(int16), '\0'));
|
||||
}
|
||||
|
||||
/*
|
||||
* int2out - converts short to "num"
|
||||
*/
|
||||
char *int2out(int16 sh)
|
||||
{
|
||||
char *result;
|
||||
|
||||
result = (char *)palloc(7); /* assumes sign, 5 digits, '\0' */
|
||||
itoa((int) sh, result);
|
||||
return(result);
|
||||
}
|
||||
|
||||
/*
|
||||
* int28in - converts "num num ..." to internal form
|
||||
*
|
||||
* Note:
|
||||
* Fills any nonexistent digits with NULLs.
|
||||
*/
|
||||
int16 *int28in(char *shs)
|
||||
{
|
||||
register int16 (*result)[];
|
||||
int nums;
|
||||
|
||||
if (shs == NULL)
|
||||
return(NULL);
|
||||
result = (int16 (*)[]) palloc(sizeof(int16 [8]));
|
||||
if ((nums = sscanf(shs, "%hd%hd%hd%hd%hd%hd%hd%hd",
|
||||
*result,
|
||||
*result + 1,
|
||||
*result + 2,
|
||||
*result + 3,
|
||||
*result + 4,
|
||||
*result + 5,
|
||||
*result + 6,
|
||||
*result + 7)) != 8) {
|
||||
do
|
||||
(*result)[nums++] = 0;
|
||||
while (nums < 8);
|
||||
}
|
||||
return((int16 *) result);
|
||||
}
|
||||
|
||||
/*
|
||||
* int28out - converts internal form to "num num ..."
|
||||
*/
|
||||
char *int28out(int16 (*shs)[])
|
||||
{
|
||||
register int num;
|
||||
register int16 *sp;
|
||||
register char *rp;
|
||||
char *result;
|
||||
|
||||
if (shs == NULL) {
|
||||
result = (char *)palloc(2);
|
||||
result[0] = '-';
|
||||
result[1] = '\0';
|
||||
return(result);
|
||||
}
|
||||
rp = result = (char *)palloc(8 * 7); /* assumes sign, 5 digits, ' ' */
|
||||
sp = *shs;
|
||||
for (num = 8; num != 0; num--) {
|
||||
itoa(*sp++, rp);
|
||||
while (*++rp != '\0')
|
||||
;
|
||||
*rp++ = ' ';
|
||||
}
|
||||
*--rp = '\0';
|
||||
return(result);
|
||||
}
|
||||
|
||||
/*
|
||||
* int28in - converts "num num ..." to internal form
|
||||
*
|
||||
* Note:
|
||||
* Fills any nonexistent digits with NULLs.
|
||||
*/
|
||||
int32 *int44in(char *input_string)
|
||||
{
|
||||
int32 *foo = (int32 *)palloc(4*sizeof(int32));
|
||||
register int i = 0;
|
||||
|
||||
i = sscanf(input_string,
|
||||
"%d, %d, %d, %d",
|
||||
&foo[0],
|
||||
&foo[1],
|
||||
&foo[2],
|
||||
&foo[3]);
|
||||
while (i < 4)
|
||||
foo[i++] = 0;
|
||||
|
||||
return(foo);
|
||||
}
|
||||
|
||||
/*
|
||||
* int28out - converts internal form to "num num ..."
|
||||
*/
|
||||
char *int44out(int32 an_array[])
|
||||
{
|
||||
int temp = 4;
|
||||
char *output_string = NULL;
|
||||
int i;
|
||||
|
||||
if ( temp > 0 ) {
|
||||
char *walk;
|
||||
output_string = (char *)palloc(16*temp); /* assume 15 digits + sign */
|
||||
walk = output_string;
|
||||
for ( i = 0 ; i < temp ; i++ ) {
|
||||
itoa(an_array[i],walk);
|
||||
while (*++walk != '\0')
|
||||
;
|
||||
*walk++ = ' ';
|
||||
}
|
||||
*--walk = '\0';
|
||||
}
|
||||
return(output_string);
|
||||
}
|
||||
|
||||
|
||||
/*****************************************************************************
|
||||
* PUBLIC ROUTINES *
|
||||
*****************************************************************************/
|
||||
|
||||
/*
|
||||
* int4in - converts "num" to int4
|
||||
*/
|
||||
int32 int4in(char *num)
|
||||
{
|
||||
return(pg_atoi(num, sizeof(int32), '\0'));
|
||||
}
|
||||
|
||||
/*
|
||||
* int4out - converts int4 to "num"
|
||||
*/
|
||||
char *int4out(int32 l)
|
||||
{
|
||||
char *result;
|
||||
|
||||
result = (char *)palloc(12); /* assumes sign, 10 digits, '\0' */
|
||||
ltoa(l, result);
|
||||
return(result);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* ===================
|
||||
* CONVERSION ROUTINES
|
||||
* ===================
|
||||
*/
|
||||
|
||||
int32 i2toi4(int16 arg1)
|
||||
{
|
||||
return((int32) arg1);
|
||||
}
|
||||
|
||||
int16 i4toi2(int32 arg1)
|
||||
{
|
||||
if (arg1< -0x8000)
|
||||
elog(NOTICE, "i4toi2: \"%d\" causes int2 underflow", arg1);
|
||||
if (arg1 > 0x7FFF)
|
||||
elog(NOTICE, "i4toi2: \"%d\" causes int2 overflow", arg1);
|
||||
|
||||
return((int16) arg1);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* =========================
|
||||
* BOOLEAN OPERATOR ROUTINES
|
||||
* =========================
|
||||
*/
|
||||
|
||||
/*
|
||||
* inteq - returns 1 iff arg1 == arg2
|
||||
* intne - returns 1 iff arg1 != arg2
|
||||
* intlt - returns 1 iff arg1 < arg2
|
||||
* intle - returns 1 iff arg1 <= arg2
|
||||
* intgt - returns 1 iff arg1 > arg2
|
||||
* intge - returns 1 iff arg1 >= arg2
|
||||
*/
|
||||
int32 int4eq(int32 arg1, int32 arg2) { return(arg1 == arg2); }
|
||||
int32 int4ne(int32 arg1, int32 arg2) { return(arg1 != arg2); }
|
||||
int32 int4lt(int32 arg1, int32 arg2) { return(arg1 < arg2); }
|
||||
int32 int4le(int32 arg1, int32 arg2) { return(arg1 <= arg2); }
|
||||
int32 int4gt(int32 arg1, int32 arg2) { return(arg1 > arg2); }
|
||||
int32 int4ge(int32 arg1, int32 arg2) { return(arg1 >= arg2); }
|
||||
|
||||
int32 int2eq(int16 arg1, int16 arg2) { return(arg1 == arg2); }
|
||||
int32 int2ne(int16 arg1, int16 arg2) { return(arg1 != arg2); }
|
||||
int32 int2lt(int16 arg1, int16 arg2) { return(arg1 < arg2); }
|
||||
int32 int2le(int16 arg1, int16 arg2) { return(arg1 <= arg2); }
|
||||
int32 int2gt(int16 arg1, int16 arg2) { return(arg1 > arg2); }
|
||||
int32 int2ge(int16 arg1, int16 arg2) { return(arg1 >= arg2); }
|
||||
|
||||
int32 int24eq(int32 arg1, int32 arg2) { return(arg1 == arg2); }
|
||||
int32 int24ne(int32 arg1, int32 arg2) { return(arg1 != arg2); }
|
||||
int32 int24lt(int32 arg1, int32 arg2) { return(arg1 < arg2); }
|
||||
int32 int24le(int32 arg1, int32 arg2) { return(arg1 <= arg2); }
|
||||
int32 int24gt(int32 arg1, int32 arg2) { return(arg1 > arg2); }
|
||||
int32 int24ge(int32 arg1, int32 arg2) { return(arg1 >= arg2); }
|
||||
|
||||
int32 int42eq(int32 arg1, int32 arg2) { return(arg1 == arg2); }
|
||||
int32 int42ne(int32 arg1, int32 arg2) { return(arg1 != arg2); }
|
||||
int32 int42lt(int32 arg1, int32 arg2) { return(arg1 < arg2); }
|
||||
int32 int42le(int32 arg1, int32 arg2) { return(arg1 <= arg2); }
|
||||
int32 int42gt(int32 arg1, int32 arg2) { return(arg1 > arg2); }
|
||||
int32 int42ge(int32 arg1, int32 arg2) { return(arg1 >= arg2); }
|
||||
|
||||
|
||||
int32 keyfirsteq(int16 *arg1, int16 arg2) { return(*arg1 == arg2); }
|
||||
|
||||
/*
|
||||
* int[24]pl - returns arg1 + arg2
|
||||
* int[24]mi - returns arg1 - arg2
|
||||
* int[24]mul - returns arg1 * arg2
|
||||
* int[24]div - returns arg1 / arg2
|
||||
*/
|
||||
int32 int4um(int32 arg) { return(-arg); }
|
||||
int32 int4pl(int32 arg1, int32 arg2) { return(arg1 + arg2); }
|
||||
int32 int4mi(int32 arg1, int32 arg2) { return(arg1 - arg2); }
|
||||
int32 int4mul(int32 arg1, int32 arg2) { return(arg1 * arg2); }
|
||||
int32 int4div(int32 arg1, int32 arg2) { return(arg1 / arg2); }
|
||||
int32 int4inc(int32 arg) { return(arg + (int32)1); }
|
||||
|
||||
int16 int2um(int16 arg) { return(-arg); }
|
||||
int16 int2pl(int16 arg1, int16 arg2) { return(arg1 + arg2); }
|
||||
int16 int2mi(int16 arg1, int16 arg2) { return(arg1 - arg2); }
|
||||
int16 int2mul(int16 arg1, int16 arg2) { return(arg1 * arg2); }
|
||||
int16 int2div(int16 arg1, int16 arg2) { return(arg1 / arg2); }
|
||||
int16 int2inc(int16 arg) { return(arg + (int16)1); }
|
||||
|
||||
int32 int24pl(int32 arg1, int32 arg2) { return(arg1 + arg2); }
|
||||
int32 int24mi(int32 arg1, int32 arg2) { return(arg1 - arg2); }
|
||||
int32 int24mul(int32 arg1, int32 arg2) { return(arg1 * arg2); }
|
||||
int32 int24div(int32 arg1, int32 arg2) { return(arg1 / arg2); }
|
||||
|
||||
int32 int42pl(int32 arg1, int32 arg2) { return(arg1 + arg2); }
|
||||
int32 int42mi(int32 arg1, int32 arg2) { return(arg1 - arg2); }
|
||||
int32 int42mul(int32 arg1, int32 arg2) { return(arg1 * arg2); }
|
||||
int32 int42div(int32 arg1, int32 arg2) { return(arg1 / arg2); }
|
||||
|
||||
/*
|
||||
* int[24]mod - returns arg1 mod arg2
|
||||
*/
|
||||
int32 int4mod(int32 arg1, int32 arg2) { return(arg1 % arg2); }
|
||||
int32 int2mod(int16 arg1, int16 arg2) { return(arg1 % arg2); }
|
||||
int32 int24mod(int32 arg1, int32 arg2) { return(arg1 % arg2); }
|
||||
int32 int42mod(int32 arg1, int32 arg2) { return(arg1 % arg2); }
|
||||
|
||||
/*
|
||||
* int[24]fac - returns arg1!
|
||||
*/
|
||||
int32 int4fac(int32 arg1)
|
||||
{
|
||||
int32 result;
|
||||
|
||||
if (arg1 < 1)
|
||||
result = 0;
|
||||
else
|
||||
for (result = 1; arg1 > 0; --arg1)
|
||||
result *= arg1;
|
||||
return(result);
|
||||
}
|
||||
|
||||
int32 int2fac(int16 arg1)
|
||||
{
|
||||
int16 result;
|
||||
|
||||
if (arg1 < 1)
|
||||
result = 0;
|
||||
else
|
||||
for (result = 1; arg1 > 0; --arg1)
|
||||
result *= arg1;
|
||||
return(result);
|
||||
}
|
||||
|
||||
int16 int2larger(int16 arg1, int16 arg2)
|
||||
{
|
||||
return ((arg1 > arg2) ? arg1 : arg2);
|
||||
}
|
||||
|
||||
int16 int2smaller(int16 arg1, int16 arg2)
|
||||
{
|
||||
return ((arg1 < arg2) ? arg1 : arg2);
|
||||
}
|
||||
|
||||
int32 int4larger(int32 arg1, int32 arg2)
|
||||
{
|
||||
return ((arg1 > arg2) ? arg1 : arg2);
|
||||
}
|
||||
|
||||
int32 int4smaller(int32 arg1, int32 arg2)
|
||||
{
|
||||
return ((arg1 < arg2) ? arg1 : arg2);
|
||||
}
|
||||
Reference in New Issue
Block a user