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

Commit3de11d6

Browse files
Jan WieckJan Wieck
Jan Wieck
authored and
Jan Wieck
committed
Removed the automatic installation of built procedural languages
from initdb again.Added two new commands, createlang and destroylang to bin. Thesehopefully end this damned mklang.sql discussion.Jan
1 parent33773af commit3de11d6

File tree

8 files changed

+382
-26
lines changed

8 files changed

+382
-26
lines changed

‎src/bin/Makefile

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7,15 +7,16 @@
77
#
88
#
99
# IDENTIFICATION
10-
# $Header: /cvsroot/pgsql/src/bin/Makefile,v 1.17 1998/12/18 17:53:21 momjian Exp $
10+
# $Header: /cvsroot/pgsql/src/bin/Makefile,v 1.18 1999/05/20 16:49:59 wieck Exp $
1111
#
1212
#-------------------------------------------------------------------------
1313

1414
SRCDIR= ..
1515
include ../Makefile.global
1616

1717
DIRS = pg_id pg_version psql pg_dump pg_passwd cleardbdir createdb\
18-
createuser destroydb destroyuser initdb vacuumdb initlocation ipcclean
18+
createlang createuser destroydb destroylang destroyuser initdb\
19+
vacuumdb initlocation ipcclean
1920

2021
ifdefMULTIBYTE
2122
DIRS += pg_encoding

‎src/bin/createlang/Makefile

Lines changed: 29 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,29 @@
1+
#-------------------------------------------------------------------------
2+
#
3+
# Makefile.inc--
4+
# Makefile for bin/createlang
5+
#
6+
# Copyright (c) 1994, Regents of the University of California
7+
#
8+
#
9+
# IDENTIFICATION
10+
# $Header: /cvsroot/pgsql/src/bin/createlang/Attic/Makefile,v 1.1 1999/05/20 16:50:00 wieck Exp $
11+
#
12+
#-------------------------------------------------------------------------
13+
14+
SRCDIR= ../..
15+
include ../../Makefile.global
16+
17+
all: createlang
18+
19+
createlang: createlang.sh
20+
sed -e's/__DLSUFFIX__/$(DLSUFFIX)/'\
21+
createlang.sh> createlang
22+
23+
install: createlang
24+
$(INSTALL)$(INSTL_EXE_OPTS)$<$(BINDIR)/$<
25+
26+
clean:
27+
rm -f createlang
28+
29+
depdepend:

‎src/bin/createlang/createlang.sh

Lines changed: 173 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,173 @@
1+
#!/bin/sh
2+
#-------------------------------------------------------------------------
3+
#
4+
# createlang.sh--
5+
# Install a procedural language in a database
6+
#
7+
# Copyright (c) 1994, Regents of the University of California
8+
#
9+
#
10+
# IDENTIFICATION
11+
# $Header: /cvsroot/pgsql/src/bin/createlang/Attic/createlang.sh,v 1.1 1999/05/20 16:50:00 wieck Exp $
12+
#
13+
#-------------------------------------------------------------------------
14+
15+
CMDNAME=`basename$0`
16+
17+
# ----------
18+
# Find the default PGLIB directory
19+
# ----------
20+
postconfig_result="`sh -c postconfig2>/dev/null`"
21+
if [!-z"$postconfig_result" ];then
22+
set -a
23+
eval"$postconfig_result"
24+
set +a
25+
fi
26+
27+
# ----------
28+
# Determine username
29+
# ----------
30+
if [-z"$USER" ];then
31+
if [-z"$LOGNAME" ];then
32+
if [-z"`whoami`" ];then
33+
echo"$CMDNAME: cannot determine user name"
34+
exit 1
35+
fi
36+
else
37+
USER=$LOGNAME
38+
export USER
39+
fi
40+
fi
41+
42+
# ----------
43+
# Get options, language name and dbname
44+
# ----------
45+
dbname=$USER
46+
while [-n"$1" ]
47+
do
48+
case$1in
49+
--pglib)PGLIB=$2;shift;;
50+
-a) AUTHSYS=$2;shift;;
51+
-h) PGHOST=$2;shift;;
52+
-p) PGPORT=$2;shift;;
53+
*) langname=$1
54+
if [-n"$2" ];then
55+
shift
56+
dbname=$1
57+
fi;;
58+
esac
59+
shift;
60+
done
61+
62+
# ----------
63+
# Check that we have PGLIB
64+
# ----------
65+
if [-z"$PGLIB" ];then
66+
echo"Cannot determine PostgreSQL lib directory (PGLIB)."
67+
echo"You must identify the PGLIB either with a --pglib option"
68+
echo"or by setting the PGLIB environment variable."
69+
exit 1
70+
fi
71+
72+
# ----------
73+
# If not given on the commandline, ask for the language
74+
# ----------
75+
if [-z"$langname" ];then
76+
echo -n"Language to install in database$dbname:"
77+
read langname
78+
fi
79+
80+
# ----------
81+
# Check if supported and set related values
82+
# ----------
83+
case"$langname"in
84+
plpgsql)lancomp="PL/pgSQL"
85+
trusted="TRUSTED"
86+
handler="plpgsql_call_handler";;
87+
pltcl)lancomp="PL/Tcl"
88+
trusted="TRUSTED"
89+
handler="pltcl_call_handler";;
90+
*)echo"$CMDNAME: unsupported language '$langname'"
91+
echo" supported languages are plpgsql and pltcl"
92+
exit 1;;
93+
esac
94+
95+
# ----------
96+
# Check that the shared object for the call handler is installed
97+
# in PGLIB
98+
# ----------
99+
if [!-f$PGLIB/${langname}__DLSUFFIX__ ];then
100+
echo"Cannot find the file$PGLIB/${langname}__DLSUFFIX__"
101+
echo"This shared object contains the call handler for$lancomp."
102+
echo"By default, only PL/pgSQL is built and installed. Other"
103+
echo"languages must be explicitly enabled at configure."
104+
echo""
105+
echo"To install PL/Tcl make sure the option --with-tcl is"
106+
echo"given to configure, then recompile and install."
107+
exit 1
108+
fi
109+
110+
# ----------
111+
# Combine psql with options given
112+
# ----------
113+
if [-z"$AUTHSYS" ];then
114+
AUTHOPT=""
115+
else
116+
AUTHOPT="-a$AUTHSYS"
117+
fi
118+
119+
if [-z"$PGHOST" ];then
120+
PGHOSTOPT=""
121+
else
122+
PGHOSTOPT="-h$PGHOST"
123+
fi
124+
125+
if [-z"$PGPORT" ];then
126+
PGPORTOPT=""
127+
else
128+
PGPORTOPT="-p$PGPORT"
129+
fi
130+
131+
MONITOR="psql -tq$AUTHOPT$PGHOSTOPT$PGPORTOPT -c"
132+
133+
# ----------
134+
# Make sure the language isn't already installed
135+
# ----------
136+
res=`$MONITOR"select oid from pg_language where lanname = '$langname'"$dbname`
137+
if [$?-ne 0 ];then
138+
echo"Cannot install language"
139+
exit 1
140+
fi
141+
if [!-z"$res" ];then
142+
echo"The language '$langname' is already installed in database$dbname"
143+
exit 1
144+
fi
145+
146+
# ----------
147+
# Check that there is no function named as the call handler
148+
# ----------
149+
res=`$MONITOR"select oid from pg_proc where proname = '$handler'"$dbname`
150+
if [!-z"$res" ];then
151+
echo"The language$lancomp isn't created up to now but there"
152+
echo"is already a function named '$handler' declared."
153+
echo"Language installation aborted."
154+
exit 1
155+
fi
156+
157+
# ----------
158+
# Create the call handler and the language
159+
# ----------
160+
$MONITOR"create function$handler () returns opaque as '$PGLIB/${langname}__DLSUFFIX__' language 'C'"$dbname
161+
if [$?-ne 0 ];then
162+
echo"Language installation failed"
163+
exit 1
164+
fi
165+
$MONITOR"create$trusted procedural language '$langname' handler$handler lancompiler '$lancomp'"$dbname
166+
if [$?-ne 0 ];then
167+
echo"Language installation failed"
168+
exit 1
169+
fi
170+
171+
172+
exit 0
173+

‎src/bin/destroylang/Makefile

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
#-------------------------------------------------------------------------
2+
#
3+
# Makefile.inc--
4+
# Makefile for bin/destroylang
5+
#
6+
# Copyright (c) 1994, Regents of the University of California
7+
#
8+
#
9+
# IDENTIFICATION
10+
# $Header: /cvsroot/pgsql/src/bin/destroylang/Attic/Makefile,v 1.1 1999/05/20 16:50:02 wieck Exp $
11+
#
12+
#-------------------------------------------------------------------------
13+
14+
SRCDIR= ../..
15+
include ../../Makefile.global
16+
17+
all: destroylang
18+
19+
destroylang: destroylang.sh
20+
cp destroylang.sh destroylang
21+
22+
install: destroylang
23+
$(INSTALL)$(INSTL_EXE_OPTS)$<$(BINDIR)/$<
24+
25+
clean:
26+
rm -f destroylang
27+
28+
depdepend:

‎src/bin/destroylang/destroylang.sh

Lines changed: 139 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,139 @@
1+
#!/bin/sh
2+
#-------------------------------------------------------------------------
3+
#
4+
# createlang.sh--
5+
# Remove a procedural language from a database
6+
#
7+
# Copyright (c) 1994, Regents of the University of California
8+
#
9+
#
10+
# IDENTIFICATION
11+
# $Header: /cvsroot/pgsql/src/bin/destroylang/Attic/destroylang.sh,v 1.1 1999/05/20 16:50:03 wieck Exp $
12+
#
13+
#-------------------------------------------------------------------------
14+
15+
CMDNAME=`basename$0`
16+
17+
# ----------
18+
# Determine username
19+
# ----------
20+
if [-z"$USER" ];then
21+
if [-z"$LOGNAME" ];then
22+
if [-z"`whoami`" ];then
23+
echo"$CMDNAME: cannot determine user name"
24+
exit 1
25+
fi
26+
else
27+
USER=$LOGNAME
28+
export USER
29+
fi
30+
fi
31+
32+
# ----------
33+
# Get options, language name and dbname
34+
# ----------
35+
dbname=$USER
36+
while [-n"$1" ]
37+
do
38+
case$1in
39+
-a) AUTHSYS=$2;shift;;
40+
-h) PGHOST=$2;shift;;
41+
-p) PGPORT=$2;shift;;
42+
*) langname=$1
43+
if [-n"$2" ];then
44+
shift
45+
dbname=$1
46+
fi;;
47+
esac
48+
shift;
49+
done
50+
51+
# ----------
52+
# If not given on the commandline, ask for the language
53+
# ----------
54+
if [-z"$langname" ];then
55+
echo -n"Language to remove from database$dbname:"
56+
read langname
57+
fi
58+
59+
# ----------
60+
# Check if supported and set related values
61+
# ----------
62+
case"$langname"in
63+
plpgsql)lancomp="PL/pgSQL"
64+
handler="plpgsql_call_handler";;
65+
pltcl)lancomp="PL/Tcl"
66+
handler="pltcl_call_handler";;
67+
*)echo"$CMDNAME: unsupported language '$langname'"
68+
echo" supported languages are plpgsql and pltcl"
69+
exit 1;;
70+
esac
71+
72+
# ----------
73+
# Combine psql with options given
74+
# ----------
75+
if [-z"$AUTHSYS" ];then
76+
AUTHOPT=""
77+
else
78+
AUTHOPT="-a$AUTHSYS"
79+
fi
80+
81+
if [-z"$PGHOST" ];then
82+
PGHOSTOPT=""
83+
else
84+
PGHOSTOPT="-h$PGHOST"
85+
fi
86+
87+
if [-z"$PGPORT" ];then
88+
PGPORTOPT=""
89+
else
90+
PGPORTOPT="-p$PGPORT"
91+
fi
92+
93+
MONITOR="psql -tq$AUTHOPT$PGHOSTOPT$PGPORTOPT -c"
94+
95+
# ----------
96+
# Make sure the language is installed
97+
# ----------
98+
res=`$MONITOR"select oid from pg_language where lanname = '$langname'"$dbname`
99+
if [$?-ne 0 ];then
100+
echo"Cannot remove language"
101+
exit 1
102+
fi
103+
if [-z"$res" ];then
104+
echo"The language '$langname' isn't installed in database$dbname"
105+
exit 1
106+
fi
107+
108+
109+
# ----------
110+
# Check that there are no functions left defined in that language
111+
# ----------
112+
res=`$MONITOR"select count(proname) from pg_proc P, pg_language L where P.prolang = L.oid and L.lanname = '$langname'"$dbname`
113+
if [$?-ne 0 ];then
114+
echo"Cannot remove language"
115+
exit 1
116+
fi
117+
if [$res-ne 0 ];then
118+
echo"There are$res functions/trigger procedures actually declared"
119+
echo"in language$lancomp."
120+
echo"Language not removed."
121+
exit 1
122+
fi
123+
124+
# ----------
125+
# Drop the language and the call handler function
126+
# ----------
127+
$MONITOR"drop procedural language '$langname'"$dbname
128+
if [$?-ne 0 ];then
129+
echo"Language removal failed"
130+
exit 1
131+
fi
132+
$MONITOR"drop function$handler()"$dbname
133+
if [$?-ne 0 ];then
134+
echo"Language removal failed"
135+
exit 1
136+
fi
137+
138+
exit 0
139+

0 commit comments

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