postgrespro
diff --git a/‎src/bin/Makefile
Lines changed: 3 additions & 2 deletions b/‎src/bin/Makefile
Lines changed: 3 additions & 2 deletions
diff --git a/‎src/bin/createlang/Makefile
Lines changed: 29 additions & 0 deletions b/‎src/bin/createlang/Makefile
Lines changed: 29 additions & 0 deletions
diff --git a/‎src/bin/createlang/createlang.sh
Lines changed: 173 additions & 0 deletions b/‎src/bin/createlang/createlang.sh
Lines changed: 173 additions & 0 deletions
diff --git a/‎src/bin/destroylang/Makefile
Lines changed: 28 additions & 0 deletions b/‎src/bin/destroylang/Makefile
Lines changed: 28 additions & 0 deletions
diff --git a/‎src/bin/destroylang/destroylang.sh
Lines changed: 139 additions & 0 deletions b/‎src/bin/destroylang/destroylang.sh
Lines changed: 139 additions & 0 deletions
@@ -7,15 +7,16 @@
 #
 #
 # IDENTIFICATION
-#    $Header: /cvsroot/pgsql/src/bin/Makefile,v 1.17 1998/12/18 17:53:21 momjian Exp $
+#    $Header: /cvsroot/pgsql/src/bin/Makefile,v 1.18 1999/05/20 16:49:59 wieck Exp $
 #
 #-------------------------------------------------------------------------
 
 SRCDIR= ..
 include ../Makefile.global
 
 DIRS = pg_id pg_version psql pg_dump pg_passwd cleardbdir createdb \
-	createuser destroydb destroyuser initdb vacuumdb initlocation ipcclean
+	createlang createuser destroydb destroylang destroyuser initdb \
+	vacuumdb initlocation ipcclean
 
 ifdef MULTIBYTE
 DIRS += pg_encoding
 
@@ -0,0 +1,29 @@
+#-------------------------------------------------------------------------
+#
+# Makefile.inc--
+#    Makefile for bin/createlang
+#
+# Copyright (c) 1994, Regents of the University of California
+#
+#
+# IDENTIFICATION
+#    $Header: /cvsroot/pgsql/src/bin/createlang/Attic/Makefile,v 1.1 1999/05/20 16:50:00 wieck Exp $
+#
+#-------------------------------------------------------------------------
+
+SRCDIR= ../..
+include ../../Makefile.global
+
+all: createlang
+
+createlang: createlang.sh
+	sed -e 's/__DLSUFFIX__/$(DLSUFFIX)/'			\
+			createlang.sh > createlang
+
+install: createlang
+	$(INSTALL) $(INSTL_EXE_OPTS) $< $(BINDIR)/$<
+
+clean:
+	rm -f createlang
+
+dep depend:
@@ -0,0 +1,173 @@
+#!/bin/sh
+#-------------------------------------------------------------------------
+#
+# createlang.sh--
+#    Install a procedural language in a database
+#
+# Copyright (c) 1994, Regents of the University of California
+#
+#
+# IDENTIFICATION
+#    $Header: /cvsroot/pgsql/src/bin/createlang/Attic/createlang.sh,v 1.1 1999/05/20 16:50:00 wieck Exp $
+#
+#-------------------------------------------------------------------------
+
+CMDNAME=`basename $0`
+
+# ----------
+# Find the default PGLIB directory
+# ----------
+postconfig_result="`sh -c postconfig 2>/dev/null`"
+if [ ! -z "$postconfig_result" ]; then
+    set -a
+	eval "$postconfig_result"
+	set +a
+fi
+
+# ----------
+# Determine username
+# ----------
+if [ -z "$USER" ]; then
+    if [ -z "$LOGNAME" ]; then
+	if [ -z "`whoami`" ]; then
+	    echo "$CMDNAME: cannot determine user name"
+	    exit 1
+	fi
+    else
+	USER=$LOGNAME
+	export USER
+    fi
+fi
+
+# ----------
+# Get options, language name and dbname
+# ----------
+dbname=$USER
+while [ -n "$1" ]
+do
+	case $1 in 
+		--pglib)	PGLIB=$2; shift;;
+		-a) 		AUTHSYS=$2; shift;;
+		-h) 		PGHOST=$2; shift;;
+		-p) 		PGPORT=$2; shift;;
+		 *) 		langname=$1
+		 			if [ -n "$2" ]; then
+						shift
+						dbname=$1
+					fi;;
+	esac
+	shift;
+done
+
+# ----------
+# Check that we have PGLIB
+# ----------
+if [ -z "$PGLIB" ]; then
+	echo "Cannot determine PostgreSQL lib directory (PGLIB)."
+	echo "You must identify the PGLIB either with a --pglib option"
+	echo "or by setting the PGLIB environment variable."
+	exit 1
+fi
+
+# ----------
+# If not given on the commandline, ask for the language
+# ----------
+if [ -z "$langname" ]; then
+	echo -n "Language to install in database $dbname: "
+	read langname
+fi
+
+# ----------
+# Check if supported and set related values
+# ----------
+case "$langname" in
+	plpgsql)	lancomp="PL/pgSQL"
+				trusted="TRUSTED"
+				handler="plpgsql_call_handler";;
+	pltcl)		lancomp="PL/Tcl"
+				trusted="TRUSTED"
+				handler="pltcl_call_handler";;
+	*)			echo "$CMDNAME: unsupported language '$langname'"
+				echo "          supported languages are plpgsql and pltcl"
+				exit 1;;
+esac
+
+# ----------
+# Check that the shared object for the call handler is installed
+# in PGLIB
+# ----------
+if [ ! -f $PGLIB/${langname}__DLSUFFIX__ ]; then
+	echo "Cannot find the file $PGLIB/${langname}__DLSUFFIX__"
+	echo "This shared object contains the call handler for $lancomp."
+	echo "By default, only PL/pgSQL is built and installed. Other"
+	echo "languages must be explicitly enabled at configure."
+	echo ""
+	echo "To install PL/Tcl make sure the option --with-tcl is"
+	echo "given to configure, then recompile and install."
+	exit 1
+fi
+
+# ----------
+# Combine psql with options given
+# ----------
+if [ -z "$AUTHSYS" ]; then
+  AUTHOPT=""
+else
+  AUTHOPT="-a $AUTHSYS"
+fi
+
+if [ -z "$PGHOST" ]; then
+  PGHOSTOPT=""
+else
+  PGHOSTOPT="-h $PGHOST"
+fi
+
+if [ -z "$PGPORT" ]; then
+  PGPORTOPT=""
+else
+  PGPORTOPT="-p $PGPORT"
+fi
+
+MONITOR="psql -tq $AUTHOPT $PGHOSTOPT $PGPORTOPT -c"
+
+# ----------
+# Make sure the language isn't already installed
+# ----------
+res=`$MONITOR "select oid from pg_language where lanname = '$langname'" $dbname`
+if [ $? -ne 0 ]; then
+	echo "Cannot install language"
+	exit 1
+fi
+if [ ! -z "$res" ]; then
+	echo "The language '$langname' is already installed in database $dbname"
+	exit 1
+fi
+
+# ----------
+# Check that there is no function named as the call handler
+# ----------
+res=`$MONITOR "select oid from pg_proc where proname = '$handler'" $dbname`
+if [ ! -z "$res" ]; then
+	echo "The language $lancomp isn't created up to now but there"
+	echo "is already a function named '$handler' declared."
+	echo "Language installation aborted."
+	exit 1
+fi
+
+# ----------
+# Create the call handler and the language
+# ----------
+$MONITOR "create function $handler () returns opaque as '$PGLIB/${langname}__DLSUFFIX__' language 'C'" $dbname
+if [ $? -ne 0 ]; then
+	echo "Language installation failed"
+	exit 1
+fi
+$MONITOR "create $trusted procedural language '$langname' handler $handler lancompiler '$lancomp'" $dbname
+if [ $? -ne 0 ]; then
+	echo "Language installation failed"
+	exit 1
+fi
+
+
+exit 0
+
@@ -0,0 +1,28 @@
+#-------------------------------------------------------------------------
+#
+# Makefile.inc--
+#    Makefile for bin/destroylang
+#
+# Copyright (c) 1994, Regents of the University of California
+#
+#
+# IDENTIFICATION
+#    $Header: /cvsroot/pgsql/src/bin/destroylang/Attic/Makefile,v 1.1 1999/05/20 16:50:02 wieck Exp $
+#
+#-------------------------------------------------------------------------
+
+SRCDIR= ../..
+include ../../Makefile.global
+
+all: destroylang
+
+destroylang: destroylang.sh
+	cp destroylang.sh destroylang
+
+install: destroylang
+	$(INSTALL) $(INSTL_EXE_OPTS) $< $(BINDIR)/$<
+
+clean:
+	rm -f destroylang
+
+dep depend:
@@ -0,0 +1,139 @@
+#!/bin/sh
+#-------------------------------------------------------------------------
+#
+# createlang.sh--
+#    Remove a procedural language from a database
+#
+# Copyright (c) 1994, Regents of the University of California
+#
+#
+# IDENTIFICATION
+#    $Header: /cvsroot/pgsql/src/bin/destroylang/Attic/destroylang.sh,v 1.1 1999/05/20 16:50:03 wieck Exp $
+#
+#-------------------------------------------------------------------------
+
+CMDNAME=`basename $0`
+
+# ----------
+# Determine username
+# ----------
+if [ -z "$USER" ]; then
+    if [ -z "$LOGNAME" ]; then
+	if [ -z "`whoami`" ]; then
+	    echo "$CMDNAME: cannot determine user name"
+	    exit 1
+	fi
+    else
+	USER=$LOGNAME
+	export USER
+    fi
+fi
+
+# ----------
+# Get options, language name and dbname
+# ----------
+dbname=$USER
+while [ -n "$1" ]
+do
+	case $1 in 
+		-a) 		AUTHSYS=$2; shift;;
+		-h) 		PGHOST=$2; shift;;
+		-p) 		PGPORT=$2; shift;;
+		 *) 		langname=$1
+		 			if [ -n "$2" ]; then
+						shift
+						dbname=$1
+					fi;;
+	esac
+	shift;
+done
+
+# ----------
+# If not given on the commandline, ask for the language
+# ----------
+if [ -z "$langname" ]; then
+	echo -n "Language to remove from database $dbname: "
+	read langname
+fi
+
+# ----------
+# Check if supported and set related values
+# ----------
+case "$langname" in
+	plpgsql)	lancomp="PL/pgSQL"
+				handler="plpgsql_call_handler";;
+	pltcl)		lancomp="PL/Tcl"
+				handler="pltcl_call_handler";;
+	*)			echo "$CMDNAME: unsupported language '$langname'"
+				echo "          supported languages are plpgsql and pltcl"
+				exit 1;;
+esac
+
+# ----------
+# Combine psql with options given
+# ----------
+if [ -z "$AUTHSYS" ]; then
+  AUTHOPT=""
+else
+  AUTHOPT="-a $AUTHSYS"
+fi
+
+if [ -z "$PGHOST" ]; then
+  PGHOSTOPT=""
+else
+  PGHOSTOPT="-h $PGHOST"
+fi
+
+if [ -z "$PGPORT" ]; then
+  PGPORTOPT=""
+else
+  PGPORTOPT="-p $PGPORT"
+fi
+
+MONITOR="psql -tq $AUTHOPT $PGHOSTOPT $PGPORTOPT -c"
+
+# ----------
+# Make sure the language is installed
+# ----------
+res=`$MONITOR "select oid from pg_language where lanname = '$langname'" $dbname`
+if [ $? -ne 0 ]; then
+	echo "Cannot remove language"
+	exit 1
+fi
+if [ -z "$res" ]; then
+	echo "The language '$langname' isn't installed in database $dbname"
+	exit 1
+fi
+
+
+# ----------
+# Check that there are no functions left defined in that language
+# ----------
+res=`$MONITOR "select count(proname) from pg_proc P, pg_language L where P.prolang = L.oid and L.lanname = '$langname'" $dbname`
+if [ $? -ne 0 ]; then
+	echo "Cannot remove language"
+	exit 1
+fi
+if [ $res -ne 0 ]; then
+	echo "There are $res functions/trigger procedures actually declared"
+	echo "in language $lancomp."
+	echo "Language not removed."
+	exit 1
+fi
+
+# ----------
+# Drop the language and the call handler function
+# ----------
+$MONITOR "drop procedural language '$langname'" $dbname
+if [ $? -ne 0 ]; then
+	echo "Language removal failed"
+	exit 1
+fi
+$MONITOR "drop function $handler()" $dbname
+if [ $? -ne 0 ]; then
+	echo "Language removal failed"
+	exit 1
+fi
+
+exit 0
+