153 lines
3.0 KiB
C
153 lines
3.0 KiB
C
/*-------------------------------------------------------------------------
|
|
*
|
|
* 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.2 1996/07/23 02:23:35 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:
|
|
#ifdef ESCAPE_PATCH
|
|
newStr[j] = s[i];
|
|
#else
|
|
elog (WARN, "Bad escape sequence, s[i] = %d", s[i]);
|
|
#endif
|
|
} /* switch */
|
|
} /* s[i] == '\\' */
|
|
else
|
|
newStr[j] = s[i];
|
|
}
|
|
j++;
|
|
}
|
|
newStr[j] = '\0';
|
|
return newStr;
|
|
}
|
|
|