Index: configure.in
===================================================================
RCS file: /home/src/pgsql/repo/pgsql/configure.in,v
retrieving revision 1.143
diff -u -r1.143 configure.in
--- configure.in 2001/10/01 15:33:21 1.143
+++ configure.in 2001/10/06 08:07:21
@@ -380,22 +380,6 @@
PGAC_ARG_REQ(with, tkconfig, [ --with-tkconfig=DIR tkConfig.sh is in DIR])
-
-#
-# If Tcl is enabled (above) then check for pltcl_unknown_support
-#
-AC_MSG_CHECKING([whether to build with PL/Tcl unknown support])
-if test "$with_tcl" = yes; then
- PGAC_ARG_BOOL(enable, pltcl-unknown, no,
- [ --enable-pltcl-unknown build PL/Tcl unknown support (if Tcl is enabled)],
- [AC_DEFINE([ENABLE_PLTCL_UNKNOWN])])
-else
- enable_pltcl_unknown=no
-fi
-AC_MSG_RESULT([$enable_pltcl_unknown])
-AC_SUBST([enable_pltcl_unknown])
-
-
#
# Optionally build Perl modules (Pg.pm and PL/Perl)
#
Index: doc/src/sgml/installation.sgml
===================================================================
RCS file: /home/src/pgsql/repo/pgsql/doc/src/sgml/installation.sgml,v
retrieving revision 1.59
diff -u -r1.59 installation.sgml
--- doc/src/sgml/installation.sgml 2001/10/01 15:33:21 1.59
+++ doc/src/sgml/installation.sgml 2001/10/06 08:25:55
@@ -683,15 +683,6 @@
-
-
-
- Enables enables PL/Tcl unknown support.
-
-
-
-
-
Index: doc/src/sgml/pltcl.sgml
===================================================================
RCS file: /home/src/pgsql/repo/pgsql/doc/src/sgml/pltcl.sgml,v
retrieving revision 2.14
diff -u -r2.14 pltcl.sgml
--- doc/src/sgml/pltcl.sgml 2001/09/13 15:55:23 2.14
+++ doc/src/sgml/pltcl.sgml 2001/10/06 10:05:30
@@ -513,11 +513,13 @@
-
-
- Modules and the unknown> command
-
-
+
+
+
+
+
+
+ Modules and the unknown> command
PL/Tcl has a special support for things often used. It
recognizes two magic tables, pltcl_modules> and
@@ -526,20 +528,15 @@
creation. Whenever an unknown Tcl procedure is called, the
unknown proc is asked to check if the procedure is defined in
one of the modules. If this is true, the module is loaded on
- demand. To enable this behavior, the
- PostgreSQL> must be configured with the option
- .
+ demand.
- There are support scripts to maintain these tables in the modules
- subdirectory of the PL/Tcl source including the source for the
- unknown module that must get installed initially.
+ There are support scripts to maintain these tables:
+ pltcl_loadmod>,pltcl_listmod>,
+ pltcl_delmod> and source for the
+ unknown module share/unknown.pltcl> that must be loaded
+ into database initially for getting unknown support.
-
-
-
-
-
Index: src/include/pg_config.h.in
===================================================================
RCS file: /home/src/pgsql/repo/pgsql/src/include/pg_config.h.in,v
retrieving revision 1.8
diff -u -r1.8 pg_config.h.in
--- src/include/pg_config.h.in 2001/10/01 15:33:31 1.8
+++ src/include/pg_config.h.in 2001/10/06 08:06:29
@@ -86,9 +86,6 @@
*/
#undef DEF_MAXBACKENDS
-/* --enable-pltcl-unknown */
-#undef ENABLE_PLTCL_UNKNOWN
-
/* --enable-nls */
#undef ENABLE_NLS
Index: src/pl/tcl/Makefile
===================================================================
RCS file: /home/src/pgsql/repo/pgsql/src/pl/tcl/Makefile,v
retrieving revision 1.34
diff -u -r1.34 Makefile
--- src/pl/tcl/Makefile 2001/09/16 16:11:11 1.34
+++ src/pl/tcl/Makefile 2001/10/06 08:05:48
@@ -86,29 +86,21 @@
ifeq ($(TCL_SHARED_BUILD), 1)
all: $(INFILES)
-ifeq ($(enable_pltcl_unknown), yes)
$(MAKE) -C modules $@
-endif
pltcl$(DLSUFFIX): pltcl.o
install: all installdirs
$(INSTALL_SHLIB) $(DLOBJS) $(DESTDIR)$(pkglibdir)/$(DLOBJS)
-ifeq ($(enable_pltcl_unknown), yes)
$(MAKE) -C modules $@
-endif
installdirs:
$(mkinstalldirs) $(DESTDIR)$(pkglibdir)
-ifeq ($(enable_pltcl_unknown), yes)
$(MAKE) -C modules $@
-endif
uninstall:
rm -f $(DESTDIR)$(pkglibdir)/$(DLOBJS)
-ifeq ($(enable_pltcl_unknown), yes)
$(MAKE) -C modules $@
-endif
else # TCL_SHARED_BUILD = 0
@@ -124,6 +116,4 @@
clean distclean maintainer-clean:
rm -f $(INFILES) pltcl.o Makefile.tcldefs
-ifeq ($(enable_pltcl_unknown), yes)
$(MAKE) -C modules $@
-endif
Index: src/pl/tcl/pltcl.c
===================================================================
RCS file: /home/src/pgsql/repo/pgsql/src/pl/tcl/pltcl.c,v
retrieving revision 1.42
diff -u -r1.42 pltcl.c
--- src/pl/tcl/pltcl.c 2001/10/04 15:48:37 1.42
+++ src/pl/tcl/pltcl.c 2001/10/06 08:04:03
@@ -146,9 +146,7 @@
static void pltcl_init_all(void);
static void pltcl_init_interp(Tcl_Interp *interp);
-#ifdef ENABLE_PLTCL_UNKNOWN
static void pltcl_init_load_unknown(Tcl_Interp *interp);
-#endif
Datum pltcl_call_handler(PG_FUNCTION_ARGS);
Datum pltclu_call_handler(PG_FUNCTION_ARGS);
@@ -297,7 +295,6 @@
Tcl_CreateCommand(interp, "spi_lastoid",
pltcl_SPI_lastoid, NULL, NULL);
-#ifdef ENABLE_PLTCL_UNKNOWN
/************************************************************
* Try to load the unknown procedure from pltcl_modules
************************************************************/
@@ -306,12 +303,9 @@
pltcl_init_load_unknown(interp);
if (SPI_finish() != SPI_OK_FINISH)
elog(ERROR, "pltcl_init_interp(): SPI_finish failed");
-#endif /* ENABLE_PLTCL_UNKNOWN */
}
-#ifdef ENABLE_PLTCL_UNKNOWN
-
/**********************************************************************
* pltcl_init_load_unknown() - Load the unknown procedure from
* table pltcl_modules (if it exists)
@@ -383,8 +377,6 @@
tcl_rc = Tcl_GlobalEval(interp, Tcl_DStringValue(&unknown_src));
Tcl_DStringFree(&unknown_src);
}
-
-#endif /* ENABLE_PLTCL_UNKNOWN */
/**********************************************************************