77--
88-- Copyright (c) 1994, Regents of the University of California
99--
10- -- $Id: complex.source,v 1.6 2000/01/24 07:16:48 tgl Exp $
10+ -- $Id: complex.source,v 1.7 2000/03/28 02:49:19 tgl Exp $
1111--
1212---------------------------------------------------------------------------
1313
1818--called 'complex' which represents complex numbers.
1919-----------------------------
2020
21- -- Assume the user defined functions are in _OBJWD_/complex.so
21+ -- Assume the user defined functions are in _OBJWD_/complex_DLSUFFIX_
2222-- Look at $PWD/complex.c for the source.
2323
2424-- the input function 'complex_in' takes a null-terminated string (the
2828
2929CREATE FUNCTION complex_in(opaque)
3030 RETURNS complex
31- AS '_OBJWD_/complex.so '
31+ AS '_OBJWD_/complex_DLSUFFIX_ '
3232 LANGUAGE 'c';
3333
3434-- the output function 'complex_out' takes the internal representation and
3535-- converts it into the textual representation.
3636
3737CREATE FUNCTION complex_out(opaque)
3838 RETURNS opaque
39- AS '_OBJWD_/complex.so '
39+ AS '_OBJWD_/complex_DLSUFFIX_ '
4040 LANGUAGE 'c';
4141
4242-- now, we can create the type. The internallength specifies the size of the
@@ -80,7 +80,7 @@ SELECT * FROM test_complex;
8080-- first, define a function complex_add (also in complex.c)
8181CREATE FUNCTION complex_add(complex, complex)
8282 RETURNS complex
83- AS '_OBJWD_/complex.so '
83+ AS '_OBJWD_/complex_DLSUFFIX_ '
8484 LANGUAGE 'c';
8585
8686-- we can now define the operator. We show a binary operator here but you
@@ -138,15 +138,15 @@ SELECT 'READ ABOVE!' AS STOP;
138138
139139-- first, define the required operators
140140CREATE FUNCTION complex_abs_lt(complex, complex) RETURNS bool
141- AS '_OBJWD_/complex.so ' LANGUAGE 'c';
141+ AS '_OBJWD_/complex_DLSUFFIX_ ' LANGUAGE 'c';
142142CREATE FUNCTION complex_abs_le(complex, complex) RETURNS bool
143- AS '_OBJWD_/complex.so ' LANGUAGE 'c';
143+ AS '_OBJWD_/complex_DLSUFFIX_ ' LANGUAGE 'c';
144144CREATE FUNCTION complex_abs_eq(complex, complex) RETURNS bool
145- AS '_OBJWD_/complex.so ' LANGUAGE 'c';
145+ AS '_OBJWD_/complex_DLSUFFIX_ ' LANGUAGE 'c';
146146CREATE FUNCTION complex_abs_ge(complex, complex) RETURNS bool
147- AS '_OBJWD_/complex.so ' LANGUAGE 'c';
147+ AS '_OBJWD_/complex_DLSUFFIX_ ' LANGUAGE 'c';
148148CREATE FUNCTION complex_abs_gt(complex, complex) RETURNS bool
149- AS '_OBJWD_/complex.so ' LANGUAGE 'c';
149+ AS '_OBJWD_/complex_DLSUFFIX_ ' LANGUAGE 'c';
150150
151151CREATE OPERATOR < (
152152 leftarg = complex, rightarg = complex, procedure = complex_abs_lt,
@@ -169,9 +169,11 @@ CREATE OPERATOR > (
169169 restrict = scalargtsel, join = scalargtjoinsel
170170);
171171
172- INSERT INTO pg_opclass VALUES ('complex_abs_ops');
172+ INSERT INTO pg_opclass (opcname, opcdeftype)
173+ SELECT 'complex_abs_ops', oid FROM pg_type WHERE typname = 'complex';
173174
174- SELECT oid, opcname FROM pg_opclass WHERE opcname = 'complex_abs_ops';
175+ SELECT oid, opcname, opcdeftype
176+ FROM pg_opclass WHERE opcname = 'complex_abs_ops';
175177
176178SELECT o.oid AS opoid, o.oprname
177179INTO TABLE complex_ops_tmp
@@ -214,7 +216,7 @@ INSERT INTO pg_amop (amopid, amopclaid, amopopr, amopstrategy)
214216
215217--
216218CREATE FUNCTION complex_abs_cmp(complex, complex) RETURNS int4
217- AS '_OBJWD_/complex.so ' LANGUAGE 'c';
219+ AS '_OBJWD_/complex_DLSUFFIX_ ' LANGUAGE 'c';
218220
219221SELECT oid, proname FROM pg_proc WHERE proname = 'complex_abs_cmp';
220222