Postgres95 1.01 Distribution - Virgin SourcesPG95-1_01

1 files changed, 148 insertions, 0 deletions

diff --git a/src/backend/parser/scansup.c b/src/backend/parser/scansup.c
new file mode 100644
index 00000000000..bd7ef26004e
--- /dev/null
+++ b/src/backend/parser/scansup.c
@@ -0,0 +1,148 @@
+/*-------------------------------------------------------------------------
+ *
+ * scansup.c--
+ *    support routines for the lex/flex scanner, used by both the normal
+ * backend as well as the bootstrap backend
+ *
+ * Copyright (c) 1994, Regents of the University of California
+ *
+ *
+ * IDENTIFICATION
+ *    $Header: /cvsroot/pgsql/src/backend/parser/scansup.c,v 1.1.1.1 1996/07/09 06:21:41 scrappy Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+#include <ctype.h>
+#include <string.h>
+#include "c.h"
+#include "postgres.h"
+#include "miscadmin.h"
+#include "utils/elog.h"
+#include "parser/scansup.h"
+
+/*
+ *	Scanner error handler.
+ */
+static void
+serror(char *str)
+{
+    elog(WARN, "*** scanner error: %s\n", str);
+}
+
+/* ----------------
+ *	scanstr
+ * 
+ * if the string passed in has escaped codes, map the escape codes to actual
+ * chars
+ *
+ * also, remove leading and ending quotes '"' if any 
+ *
+ * the string passed in must be non-null
+ *
+ * the string returned is a pointer to static storage and should NOT
+ * be freed by the CALLER.
+ * ----------------
+ */
+
+char* 
+scanstr(char *s)
+{
+    static char newStr[MAX_PARSE_BUFFER]; 
+    int len, i, start, j;
+    char delimiter;
+    
+    if (s == NULL || s[0] == '\0')
+	return s;
+
+    len = strlen(s);
+    start = 0;
+
+    /* remove leading and trailing quotes, if any */
+    /* the normal backend lexer only accepts single quotes, but the
+       bootstrap lexer accepts double quotes */
+    delimiter = 0;
+    if (s[0] == '"' || s[0] == '\''){
+	delimiter = s[0];
+	start = 1;
+    }
+    if (delimiter != 0)  {
+	if (s[len-1] == delimiter) 
+	    len = len - 1;
+	else
+	    serror("mismatched quote delimiters");
+    }
+
+    for (i = start, j = 0; i < len ; i++) {
+	if (s[i] == '\'') {
+	    i = i + 1;
+	    if (s[i] == '\'')
+		newStr[j] = '\'';
+	}
+	else {
+	    if (s[i] == '\\') {
+		i = i + 1;
+		switch (s[i]) {
+		case '\\':
+		    newStr[j] = '\\';
+		    break;
+		case 'b':
+		    newStr[j] = '\b';
+		    break;
+		case 'f':
+		    newStr[j] = '\f';
+		    break;
+		case 'n':
+		    newStr[j] = '\n';
+		    break;
+		case 'r':
+		    newStr[j] = '\r';
+		    break;
+		case 't':
+		    newStr[j] = '\t';
+		    break;
+		case '"':
+		    newStr[j] = '"';
+		    break;
+		case '\'':
+		    newStr[j] = '\'';
+		    break;
+		case '0': 
+		case '1': 
+		case '2': 
+		case '3': 
+		case '4': 
+		case '5':
+		case '6': 
+		case '7':
+		    {
+			char octal[4];
+			int k;
+			long octVal;
+
+			for (k=0; 
+			     s[i+k] >= '0' && s[i+k] <= '7' && k < 3;
+			     k++)
+			    octal[k] = s[i+k];
+			i += k-1;
+			octal[3] = '\0';
+		    
+			octVal = strtol(octal,0,8);
+/*			elog (NOTICE, "octal = %s octVal = %d, %od", octal, octVal, octVal);*/
+			if (octVal <= 0377) {
+			    newStr[j] = ((char)octVal);
+			    break;
+			}
+		    }
+		default:
+		    elog (WARN, "Bad escape sequence, s[i] = %d", s[i]);
+		} /* switch */
+	    } /* s[i] == '\\' */
+	    else
+		newStr[j] = s[i];
+	}
+	j++;
+    }
+    newStr[j] = '\0';
+    return newStr;
+}
+