Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit3fa676a

Browse files
committed
From: Garrett Wollman <wollman@khavrinen.lcs.mit.edu>Here is some more contrib-fodder, based on TIH's IP address type,for ISBN and ISSN identifiers (which I just happened to need to keeptrack of the things in my library).
1 parentefc9a91 commit3fa676a

File tree

7 files changed

+646
-0
lines changed

7 files changed

+646
-0
lines changed

‎contrib/README

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -35,6 +35,10 @@ ip_and_mac -
3535
PostgreSQL type extensions for IP and MAC addresses
3636
by Tom Ivar Helbekkmo <tih@Hamartun.Priv.NO>
3737

38+
isbn_issn -
39+
PostgreSQL type extensions for ISBN (books) and ISSN (serials)
40+
by Garrett A. Wollman <wollman@khavrinen.lcs.mit.edu>
41+
3842
linux -
3943
Start postgres back end system
4044
by Thomas Lockhart <lockhart@alumni.caltech.edu>
@@ -80,3 +84,5 @@ userlock -
8084
User locks
8185
by Massimo Dal Zotto <dz@cs.unitn.it>
8286

87+
88+

‎contrib/isbn_issn/Makefile

Lines changed: 25 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,25 @@
1+
#
2+
#PostgreSQL types for ISBN and ISSN identifiers.
3+
#
4+
#$Id: Makefile,v 1.1 1998/08/17 03:35:04 scrappy Exp $
5+
6+
all: isbn.so issn.so
7+
8+
isbn.so: isbn.o
9+
ld -Bshareable -o isbn.so isbn.o
10+
11+
isbn.o: isbn.c
12+
cc -g -O -fPIC -I/usr/local/pgsql/include -c isbn.c
13+
14+
issn.so: issn.o
15+
ld -Bshareable -o issn.so issn.o
16+
17+
issn.o: issn.c
18+
cc -g -O -fPIC -I/usr/local/pgsql/include -c issn.c
19+
20+
install: isbn.so issn.so
21+
install -c isbn.so issn.so /usr/local/pgsql/modules
22+
23+
#
24+
#eof
25+
#

‎contrib/isbn_issn/README

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,18 @@
1+
This directory contains definitions for a couple of PostgreSQL
2+
external types, for a couple of international-standard namespaces:
3+
ISBN (books) and ISSN (serials). Rather than just using a char()
4+
member of the appropriate length, I wanted my database to include
5+
the validity-checking that both these numbering systems were designed
6+
to encompass. A little bit of research revealed the formulae
7+
for computing the check digits, and I also included some validity
8+
constraints on the number of hyphens.
9+
10+
The internal representation of these types is intended to be
11+
compatible with `char16', in the (perhaps vain) hope that
12+
this will make it possible to create indices of these types
13+
using char16_ops.
14+
15+
These are based on Tom Ivar Helbekkmo's IP address type definition,
16+
from which I have copied the entire form of the implementation.
17+
18+
Garrett A. Wollman, August 1998

‎contrib/isbn_issn/isbn.c

Lines changed: 187 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,187 @@
1+
/*
2+
*PostgreSQL type definitions for ISBNs.
3+
*
4+
*$Id: isbn.c,v 1.1 1998/08/17 03:35:04 scrappy Exp $
5+
*/
6+
7+
#include<stdio.h>
8+
9+
#include<postgres.h>
10+
#include<utils/palloc.h>
11+
12+
/*
13+
*This is the internal storage format for ISBNs.
14+
*NB: This is an intentional type pun with builtin type `char16'.
15+
*/
16+
17+
typedefstructisbn
18+
{
19+
charnum[13];
20+
charpad[3];
21+
}isbn;
22+
23+
/*
24+
*Various forward declarations:
25+
*/
26+
27+
isbn*isbn_in(char*str);
28+
char*isbn_out(isbn*addr);
29+
30+
boolisbn_lt(isbn*a1,isbn*a2);
31+
boolisbn_le(isbn*a1,isbn*a2);
32+
boolisbn_eq(isbn*a1,isbn*a2);
33+
boolisbn_ge(isbn*a1,isbn*a2);
34+
boolisbn_gt(isbn*a1,isbn*a2);
35+
36+
boolisbn_ne(isbn*a1,isbn*a2);
37+
38+
int4isbn_cmp(isbn*a1,isbn*a2);
39+
40+
int4isbn_sum(char*str);
41+
42+
/*
43+
*ISBN reader.
44+
*/
45+
46+
isbn*
47+
isbn_in(char*str)
48+
{
49+
isbn*result;
50+
char*cp;
51+
intcount;
52+
53+
if (strlen(str)!=13) {
54+
elog(ERROR,"isbn_in: invalid ISBN \"%s\"",str);
55+
return (NULL);
56+
}
57+
if (isbn_sum(str)!=0) {
58+
elog(ERROR,"isbn_in: purported ISBN \"%s\" failed checksum",
59+
str);
60+
return (NULL);
61+
}
62+
63+
result= (isbn*)palloc(sizeof(isbn));
64+
65+
strncpy(result->num,str,13);
66+
memset(result->pad,' ',3);
67+
return (result);
68+
}
69+
70+
/*
71+
* The ISBN checksum is defined as follows:
72+
*
73+
* Number the digits from 1 to 9 (call this N).
74+
* Compute the sum, S, of N * D_N.
75+
* The check digit, C, is the value which satisfies the equation
76+
*S + 10*C === 0 (mod 11)
77+
* The value 10 for C is written as `X'.
78+
*
79+
* For our purposes, we want the complete sum including the check
80+
* digit; if this is zero, then the checksum passed. We also check
81+
* the syntactic validity if the provided string, and return 12
82+
* if any errors are found.
83+
*/
84+
int4
85+
isbn_sum(char*str)
86+
{
87+
int4sum=0,dashes=0,val;
88+
inti;
89+
90+
for (i=0;str[i]&&i<13;i++) {
91+
switch(str[i]) {
92+
case'-':
93+
if (++dashes>3)
94+
return12;
95+
continue;
96+
97+
case'0':case'1':case'2':case'3':
98+
case'4':case'5':case'6':case'7':
99+
case'8':case'9':
100+
val=str[i]-'0';
101+
break;
102+
103+
case'X':case'x':
104+
val=10;
105+
break;
106+
107+
default:
108+
return12;
109+
}
110+
111+
sum+=val* (i+1-dashes);
112+
}
113+
return (sum %11);
114+
}
115+
116+
/*
117+
*ISBN output function.
118+
*/
119+
120+
char*
121+
isbn_out(isbn*num)
122+
{
123+
char*result;
124+
125+
if (num==NULL)
126+
return (NULL);
127+
128+
result= (char*)palloc(14);
129+
130+
result[0]='\0';
131+
strncat(result,num->num,13);
132+
return (result);
133+
}
134+
135+
/*
136+
*Boolean tests for magnitude.
137+
*/
138+
139+
bool
140+
isbn_lt(isbn*a1,isbn*a2)
141+
{
142+
return (strncmp(a1->num,a2->num,13)<0);
143+
};
144+
145+
bool
146+
isbn_le(isbn*a1,isbn*a2)
147+
{
148+
return (strncmp(a1->num,a2->num,13) <=0);
149+
};
150+
151+
bool
152+
isbn_eq(isbn*a1,isbn*a2)
153+
{
154+
return (strncmp(a1->num,a2->num,13)==0);
155+
};
156+
157+
bool
158+
isbn_ge(isbn*a1,isbn*a2)
159+
{
160+
return (strncmp(a1->num,a2->num,13) >=0);
161+
};
162+
163+
bool
164+
isbn_gt(isbn*a1,isbn*a2)
165+
{
166+
return (strncmp(a1->num,a2->num,13)>0);
167+
};
168+
169+
bool
170+
isbn_ne(isbn*a1,isbn*a2)
171+
{
172+
return (strncmp(a1->num,a2->num,13)!=0);
173+
};
174+
175+
/*
176+
*Comparison function for sorting:
177+
*/
178+
179+
int4
180+
isbn_cmp(isbn*a1,isbn*a2)
181+
{
182+
return (strncmp(a1->num,a2->num,13));
183+
}
184+
185+
/*
186+
*eof
187+
*/

‎contrib/isbn_issn/isbn.sql

Lines changed: 116 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,116 @@
1+
--
2+
--PostgreSQL code for ISBNs.
3+
--
4+
--$Id: isbn.sql,v 1.1 1998/08/17 03:35:05 scrappy Exp $
5+
--
6+
7+
load'/usr/local/pgsql/modules/isbn.so';
8+
9+
--
10+
--Input and output functions and the type itself:
11+
--
12+
13+
createfunctionisbn_in(opaque)
14+
returns opaque
15+
as'/usr/local/pgsql/modules/isbn.so'
16+
language'c';
17+
18+
createfunctionisbn_out(opaque)
19+
returns opaque
20+
as'/usr/local/pgsql/modules/isbn.so'
21+
language'c';
22+
23+
createtypeisbn (
24+
internallength=16,
25+
externallength=13,
26+
input= isbn_in,
27+
output= isbn_out
28+
);
29+
30+
--
31+
--The various boolean tests:
32+
--
33+
34+
createfunctionisbn_lt(isbn, isbn)
35+
returns bool
36+
as'/usr/local/pgsql/modules/isbn.so'
37+
language'c';
38+
39+
createfunctionisbn_le(isbn, isbn)
40+
returns bool
41+
as'/usr/local/pgsql/modules/isbn.so'
42+
language'c';
43+
44+
createfunctionisbn_eq(isbn, isbn)
45+
returns bool
46+
as'/usr/local/pgsql/modules/isbn.so'
47+
language'c';
48+
49+
createfunctionisbn_ge(isbn, isbn)
50+
returns bool
51+
as'/usr/local/pgsql/modules/isbn.so'
52+
language'c';
53+
54+
createfunctionisbn_gt(isbn, isbn)
55+
returns bool
56+
as'/usr/local/pgsql/modules/isbn.so'
57+
language'c';
58+
59+
createfunctionisbn_ne(isbn, isbn)
60+
returns bool
61+
as'/usr/local/pgsql/modules/isbn.so'
62+
language'c';
63+
64+
--
65+
--Now the operators. Note how some of the parameters to some
66+
--of the 'create operator' commands are commented out. This
67+
--is because they reference as yet undefined operators, and
68+
--will be implicitly defined when those are, further down.
69+
--
70+
71+
create operator< (
72+
leftarg= isbn,
73+
rightarg= isbn,
74+
--negator = >=,
75+
procedure= isbn_lt
76+
);
77+
78+
create operator<= (
79+
leftarg= isbn,
80+
rightarg= isbn,
81+
--negator = >,
82+
procedure= isbn_le
83+
);
84+
85+
create operator= (
86+
leftarg= isbn,
87+
rightarg= isbn,
88+
commutator==,
89+
--negator = <>,
90+
procedure= isbn_eq
91+
);
92+
93+
create operator>= (
94+
leftarg= isbn,
95+
rightarg= isbn,
96+
negator=<,
97+
procedure= isbn_ge
98+
);
99+
100+
create operator> (
101+
leftarg= isbn,
102+
rightarg= isbn,
103+
negator=<=,
104+
procedure= isbn_gt
105+
);
106+
107+
create operator<> (
108+
leftarg= isbn,
109+
rightarg= isbn,
110+
negator==,
111+
procedure= isbn_ne
112+
);
113+
114+
--
115+
--eof
116+
--

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp