Postgres95 1.01 Distribution - Virgin Sources

2025-11-12 05:01:15 +03:00 · 1996-07-09 06:22:35 +00:00
commit d31084e9d1
868 changed files with 242656 additions and 0 deletions
--- a/src/backend/utils/error/exc.c
+++ b/src/backend/utils/error/exc.c
@@ -0,0 +1,183 @@
+/*-------------------------------------------------------------------------
+ *
+ * exc.c--
+ *    POSTGRES exception handling code.
+ *
+ * Copyright (c) 1994, Regents of the University of California
+ *
+ *
+ * IDENTIFICATION
+ *    $Header: /cvsroot/pgsql/src/backend/utils/error/Attic/exc.c,v 1.1.1.1 1996/07/09 06:22:07 scrappy Exp $
+ *
+ * NOTE
+ *    XXX this code needs improvement--check for state violations and
+ *    XXX reset after handling an exception.
+ *
+ *-------------------------------------------------------------------------
+ */
+#include <stdio.h>	/* XXX use own I/O routines */
+#include <errno.h>
+#include "utils/exc.h"
+#include "storage/ipc.h"
+
+/*
+ * Global Variables
+ */
+static bool ExceptionHandlingEnabled = false;
+
+char*			ExcFileName = NULL;
+Index			ExcLineNumber = 0;
+
+ExcFrame		*ExcCurFrameP = NULL;
+
+static	ExcProc		*ExcUnCaughtP = NULL;
+
+extern	char*	ProgramName;
+
+/*
+ * Exported Functions
+ */
+
+/*
+ * EnableExceptionHandling --
+ *	Enables/disables the exception handling system.
+ *
+ * Note:
+ *	This must be called before any exceptions occur.  I.e., call this first!
+ *	This routine will not return if an error is detected.
+ *	This does not follow the usual Enable... protocol.
+ *	This should be merged more closely with the error logging and tracing
+ *	packages.
+ *
+ * Exceptions:
+ *	none
+ */
+/*
+ * Excection handling should be supported by the language, thus there should
+ * be no need to explicitly enable exception processing.
+ *
+ * This function should probably not be called, ever.  Currently it does
+ * almost nothing.  If there is a need for this intialization and checking.
+ * then this function should be converted to the new-style Enable code and
+ * called by all the other module Enable functions.
+ */
+void
+EnableExceptionHandling(bool on)
+{
+    if (on == ExceptionHandlingEnabled) {
+	/* XXX add logging of failed state */
+	exitpg(255);
+	/* ExitPostgres(FatalExitStatus); */
+    }
+    
+    if (on) {	/* initialize */
+	;
+    } else {	/* cleanup */
+	ExcFileName = NULL;
+	ExcLineNumber = 0;
+	ExcCurFrameP = NULL;
+	ExcUnCaughtP = NULL;
+    }
+    
+    ExceptionHandlingEnabled = on;
+}
+
+void
+ExcPrint(Exception *excP,
+	 ExcDetail detail,
+	 ExcData data,
+	 ExcMessage message)
+{
+    extern	int	errno;
+    extern	int	sys_nerr;
+#if !defined(PORTNAME_BSD44_derived) && !defined(PORTNAME_bsdi)
+    extern	char	*sys_errlist[];
+#endif /* !PORTNAME_BSD44_derived */
+    
+#ifdef	lint
+    data = data;
+#endif
+    
+    (void) fflush(stdout);	/* In case stderr is buffered */
+    
+#if	0
+    if (ProgramName != NULL && *ProgramName != '\0')
+	(void) fprintf(stderr, "%s: ", ProgramName);
+#endif
+    
+    if (message != NULL)
+	(void) fprintf(stderr, "%s", message);
+    else if (excP->message != NULL)
+	(void) fprintf(stderr, "%s", excP->message);
+    else
+#ifdef	lint
+	(void) fprintf(stderr, "UNNAMED EXCEPTION 0x%lx", excP);
+#else
+    (void) fprintf(stderr, "UNNAMED EXCEPTION 0x%lx", (long)excP);
+#endif
+    
+    (void) fprintf(stderr, " (%ld)", detail);
+    
+    if (errno > 0 && errno < sys_nerr &&
+	sys_errlist[errno] != NULL && sys_errlist[errno][0] != '\0')
+	(void) fprintf(stderr, " [%s]", sys_errlist[errno]);
+    else if (errno != 0)
+	(void) fprintf(stderr, " [Error %d]", errno);
+    
+    (void) fprintf(stderr, "\n");
+    
+    (void) fflush(stderr);
+}
+
+ExcProc *
+ExcGetUnCaught()
+{
+    return (ExcUnCaughtP);
+}
+
+ExcProc *
+ExcSetUnCaught(ExcProc *newP)
+{
+    ExcProc	*oldP = ExcUnCaughtP;
+    
+    ExcUnCaughtP = newP;
+    
+    return (oldP);
+}
+
+void
+ExcUnCaught(Exception *excP,
+	    ExcDetail detail,
+	    ExcData data,
+	    ExcMessage message)
+{
+    ExcPrint(excP, detail, data, message);
+    
+    ExcAbort(excP, detail, data, message);
+}
+
+void
+ExcRaise(Exception *excP,
+	 ExcDetail detail,
+	 ExcData	data,
+	 ExcMessage message)
+{
+    register ExcFrame	*efp;
+    
+    efp = ExcCurFrameP;
+    if (efp == NULL) {
+	if (ExcUnCaughtP != NULL)
+	    (*ExcUnCaughtP)(excP, detail, data, message);
+	
+	ExcUnCaught(excP, detail, data, message);
+    } else {
+	efp->id		= excP;
+	efp->detail	= detail;
+	efp->data	= data;
+	efp->message	= message;
+	
+	ExcCurFrameP = efp->link;
+	
+	longjmp(efp->context, 1);
+    }
+}