complex.c File Reference

#include "postgres.h"
#include "fmgr.h"
#include "libpq/pqformat.h"

Include dependency graph for complex.c:

Go to the source code of this file.

Data Structures
struct	Complex

Macros
#define	Mag(c)   ((c)->x*(c)->x + (c)->y*(c)->y)

Typedefs
typedef struct Complex	Complex

Functions
	PG_FUNCTION_INFO_V1 (complex_in)
Datum	complex_in (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_out)
Datum	complex_out (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_recv)
Datum	complex_recv (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_send)
Datum	complex_send (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_add)
Datum	complex_add (PG_FUNCTION_ARGS)
static int	complex_abs_cmp_internal (Complex *a, Complex *b)
	PG_FUNCTION_INFO_V1 (complex_abs_lt)
Datum	complex_abs_lt (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_abs_le)
Datum	complex_abs_le (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_abs_eq)
Datum	complex_abs_eq (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_abs_ge)
Datum	complex_abs_ge (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_abs_gt)
Datum	complex_abs_gt (PG_FUNCTION_ARGS)
	PG_FUNCTION_INFO_V1 (complex_abs_cmp)
Datum	complex_abs_cmp (PG_FUNCTION_ARGS)

Variables
	PG_MODULE_MAGIC

Macro Definition Documentation

Mag

#define Mag

(

c

)

((c)->x*(c)->x + (c)->y*(c)->y)

Definition at line 129 of file complex.c.

Typedef Documentation

Complex

typedef struct Complex Complex

Function Documentation

complex_abs_cmp()

Datum complex_abs_cmp

(

PG_FUNCTION_ARGS

)

Definition at line 203 of file complex.c.

{
    Complex    *a = (Complex *) PG_GETARG_POINTER(0);
    Complex    *b = (Complex *) PG_GETARG_POINTER(1);
 
    PG_RETURN_INT32(complex_abs_cmp_internal(a, b));
}

References a, b, complex_abs_cmp_internal(), PG_GETARG_POINTER, and PG_RETURN_INT32.

complex_abs_cmp_internal()

static int complex_abs_cmp_internal ( Complex *  a, Complex *  b  )

static

Definition at line 132 of file complex.c.

{
    double      amag = Mag(a),
                bmag = Mag(b);
 
    if (amag < bmag)
        return -1;
    if (amag > bmag)
        return 1;
    return 0;
}

References a, b, and Mag.

Referenced by complex_abs_cmp(), complex_abs_eq(), complex_abs_ge(), complex_abs_gt(), complex_abs_le(), and complex_abs_lt().

complex_abs_eq()

Datum complex_abs_eq

(

PG_FUNCTION_ARGS

)

Definition at line 170 of file complex.c.

{
    Complex    *a = (Complex *) PG_GETARG_POINTER(0);
    Complex    *b = (Complex *) PG_GETARG_POINTER(1);
 
    PG_RETURN_BOOL(complex_abs_cmp_internal(a, b) == 0);
}

References a, b, complex_abs_cmp_internal(), PG_GETARG_POINTER, and PG_RETURN_BOOL.

complex_abs_ge()

Datum complex_abs_ge

(

PG_FUNCTION_ARGS

)

Definition at line 181 of file complex.c.

{
    Complex    *a = (Complex *) PG_GETARG_POINTER(0);
    Complex    *b = (Complex *) PG_GETARG_POINTER(1);
 
    PG_RETURN_BOOL(complex_abs_cmp_internal(a, b) >= 0);
}

References a, b, complex_abs_cmp_internal(), PG_GETARG_POINTER, and PG_RETURN_BOOL.

complex_abs_gt()

Datum complex_abs_gt

(

PG_FUNCTION_ARGS

)

Definition at line 192 of file complex.c.

{
    Complex    *a = (Complex *) PG_GETARG_POINTER(0);
    Complex    *b = (Complex *) PG_GETARG_POINTER(1);
 
    PG_RETURN_BOOL(complex_abs_cmp_internal(a, b) > 0);
}

References a, b, complex_abs_cmp_internal(), PG_GETARG_POINTER, and PG_RETURN_BOOL.

complex_abs_le()

Datum complex_abs_le

(

PG_FUNCTION_ARGS

)

Definition at line 159 of file complex.c.

{
    Complex    *a = (Complex *) PG_GETARG_POINTER(0);
    Complex    *b = (Complex *) PG_GETARG_POINTER(1);
 
    PG_RETURN_BOOL(complex_abs_cmp_internal(a, b) <= 0);
}

References a, b, complex_abs_cmp_internal(), PG_GETARG_POINTER, and PG_RETURN_BOOL.

complex_abs_lt()

Datum complex_abs_lt

(

PG_FUNCTION_ARGS

)

Definition at line 148 of file complex.c.

{
    Complex    *a = (Complex *) PG_GETARG_POINTER(0);
    Complex    *b = (Complex *) PG_GETARG_POINTER(1);
 
    PG_RETURN_BOOL(complex_abs_cmp_internal(a, b) < 0);
}

References a, b, complex_abs_cmp_internal(), PG_GETARG_POINTER, and PG_RETURN_BOOL.

complex_add()

Datum complex_add

(

PG_FUNCTION_ARGS

)

Definition at line 105 of file complex.c.

{
    Complex    *a = (Complex *) PG_GETARG_POINTER(0);
    Complex    *b = (Complex *) PG_GETARG_POINTER(1);
    Complex    *result;
 
    result = (Complex *) palloc(sizeof(Complex));
    result->x = a->x + b->x;
    result->y = a->y + b->y;
    PG_RETURN_POINTER(result);
}

References a, b, palloc(), PG_GETARG_POINTER, PG_RETURN_POINTER, Complex::x, and Complex::y.

complex_in()

Datum complex_in

(

PG_FUNCTION_ARGS

)

Definition at line 31 of file complex.c.

{
    char       *str = PG_GETARG_CSTRING(0);
    double      x,
                y;
    Complex    *result;
 
    if (sscanf(str, " ( %lf , %lf )", &x, &y) != 2)
        ereport(ERROR,
                (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
                 errmsg("invalid input syntax for type %s: \"%s\"",
                        "complex", str)));
 
    result = (Complex *) palloc(sizeof(Complex));
    result->x = x;
    result->y = y;
    PG_RETURN_POINTER(result);
}

References ereport, errcode(), errmsg(), ERROR, palloc(), PG_GETARG_CSTRING, PG_RETURN_POINTER, str, x, Complex::x, y, and Complex::y.

complex_out()

Datum complex_out

(

PG_FUNCTION_ARGS

)

Definition at line 53 of file complex.c.

{
    Complex    *complex = (Complex *) PG_GETARG_POINTER(0);
    char       *result;
 
    result = psprintf("(%g,%g)", complex->x, complex->y);
    PG_RETURN_CSTRING(result);
}

References PG_GETARG_POINTER, PG_RETURN_CSTRING, psprintf(), Complex::x, and Complex::y.

complex_recv()

Datum complex_recv

(

PG_FUNCTION_ARGS

)

Definition at line 71 of file complex.c.

{
    StringInfo  buf = (StringInfo) PG_GETARG_POINTER(0);
    Complex    *result;
 
    result = (Complex *) palloc(sizeof(Complex));
    result->x = pq_getmsgfloat8(buf);
    result->y = pq_getmsgfloat8(buf);
    PG_RETURN_POINTER(result);
}

References buf, palloc(), PG_GETARG_POINTER, PG_RETURN_POINTER, pq_getmsgfloat8(), Complex::x, and Complex::y.

complex_send()

Datum complex_send

(

PG_FUNCTION_ARGS

)

Definition at line 85 of file complex.c.

{
    Complex    *complex = (Complex *) PG_GETARG_POINTER(0);
    StringInfoData buf;
 
    pq_begintypsend(&buf);
    pq_sendfloat8(&buf, complex->x);
    pq_sendfloat8(&buf, complex->y);
    PG_RETURN_BYTEA_P(pq_endtypsend(&buf));
}

References buf, PG_GETARG_POINTER, PG_RETURN_BYTEA_P, pq_begintypsend(), pq_endtypsend(), pq_sendfloat8(), Complex::x, and Complex::y.

PG_FUNCTION_INFO_V1() [1/11]

PG_FUNCTION_INFO_V1

(

complex_abs_cmp

)

PG_FUNCTION_INFO_V1() [2/11]

PG_FUNCTION_INFO_V1

(

complex_abs_eq

)

PG_FUNCTION_INFO_V1() [3/11]

PG_FUNCTION_INFO_V1

(

complex_abs_ge

)

PG_FUNCTION_INFO_V1() [4/11]

PG_FUNCTION_INFO_V1

(

complex_abs_gt

)

PG_FUNCTION_INFO_V1() [5/11]

PG_FUNCTION_INFO_V1

(

complex_abs_le

)

PG_FUNCTION_INFO_V1() [6/11]

PG_FUNCTION_INFO_V1

(

complex_abs_lt

)

PG_FUNCTION_INFO_V1() [7/11]

PG_FUNCTION_INFO_V1

(

complex_add

)

PG_FUNCTION_INFO_V1() [8/11]

PG_FUNCTION_INFO_V1

(

complex_in

)

PG_FUNCTION_INFO_V1() [9/11]

PG_FUNCTION_INFO_V1

(

complex_out

)

PG_FUNCTION_INFO_V1() [10/11]

PG_FUNCTION_INFO_V1

(

complex_recv

)

PG_FUNCTION_INFO_V1() [11/11]

PG_FUNCTION_INFO_V1

(

complex_send

)

Variable Documentation

PG_MODULE_MAGIC

PG_MODULE_MAGIC

Definition at line 15 of file complex.c.