From e8466b034a412597ff8f43379afedc6f07b396e8 Mon Sep 17 00:00:00 2001
From: "Marc G. Fournier" <scrappy@hub.org>
Date: Sat, 15 Mar 1997 06:00:19 +0000
Subject: [PATCH] Update oracle_compat.c
---
src/backend/utils/adt/oracle_compat.c | 449 +++++++++++++++++++++-----
1 file changed, 365 insertions(+), 84 deletions(-)
diff --git a/src/backend/utils/adt/oracle_compat.c b/src/backend/utils/adt/oracle_compat.c
index fd2448f070a..6c1d44d7139 100644
--- a/src/backend/utils/adt/oracle_compat.c
+++ b/src/backend/utils/adt/oracle_compat.c
@@ -1,7 +1,7 @@
/*
* Edmund Mergl <E.Mergl@bawue.de>
*
- * $Id: oracle_compat.c,v 1.2 1997/03/09 20:40:58 momjian Exp $
+ * $Id: oracle_compat.c,v 1.3 1997/03/15 06:00:19 scrappy Exp $
*
*/
@@ -9,15 +9,14 @@
#include <ctype.h>
#include "postgres.h"
-#include "utils/builtins.h" /* where function declarations go */
/********************************************************************
*
- * lower
+ * LOWER
*
* Syntax:
*
- * text *lower(text *string)
+ * text *LOWER(text *string)
*
* Purpose:
*
@@ -26,9 +25,10 @@
********************************************************************/
text *
-lower(text *string)
+LOWER(text *string)
{
- char *ptr;
+ text *ret;
+ char *ptr, *ptr_ret;
int m;
m = VARSIZE(string) - VARHDRSZ;
@@ -37,24 +37,27 @@ lower(text *string)
return string;
}
- ptr = VARDATA(string);
+ ret = (text *)malloc(VARSIZE(string));
+ VARSIZE(ret) = VARSIZE(string);
+
+ ptr = VARDATA(string);
+ ptr_ret = VARDATA(ret);
while (m--) {
- *ptr = tolower(*ptr);
- ++ptr;
+ *ptr_ret++ = tolower(*ptr++);
}
- return string;
+ return ret;
}
/********************************************************************
*
- * upper
+ * UPPER
*
* Syntax:
*
- * text *upper(text *string)
+ * text *UPPER(text *string)
*
* Purpose:
*
@@ -63,9 +66,10 @@ lower(text *string)
********************************************************************/
text *
-upper(text *string)
+UPPER(text *string)
{
- char *ptr;
+ text *ret;
+ char *ptr, *ptr_ret;
int m;
m = VARSIZE(string) - VARHDRSZ;
@@ -74,24 +78,27 @@ upper(text *string)
return string;
}
- ptr = VARDATA(string);
+ ret = (text *)malloc(VARSIZE(string));
+ VARSIZE(ret) = VARSIZE(string);
+
+ ptr = VARDATA(string);
+ ptr_ret = VARDATA(ret);
while (m--) {
- *ptr = toupper(*ptr);
- ++ptr;
+ *ptr_ret++ = toupper(*ptr++);
}
- return string;
+ return ret;
}
/********************************************************************
*
- * initcap
+ * INITCAP
*
* Syntax:
*
- * text *initcap(text *string)
+ * text *INITCAP(text *string)
*
* Purpose:
*
@@ -102,9 +109,10 @@ upper(text *string)
********************************************************************/
text *
-initcap(text *string)
+INITCAP(text *string)
{
- char *ptr;
+ text *ret;
+ char *ptr, *ptr_ret;
int m;
m = VARSIZE(string) - VARHDRSZ;
@@ -113,32 +121,34 @@ initcap(text *string)
return string;
}
- ptr = VARDATA(string);
+ ret = (text *)malloc(VARSIZE(string));
+ VARSIZE(ret) = VARSIZE(string);
- *ptr = toupper(*ptr);
- ++ptr;
+ ptr = VARDATA(string);
+ ptr_ret = VARDATA(ret);
+
+ *ptr_ret++ = toupper(*ptr++);
--m;
while (m--) {
- if (*(ptr - 1) == ' ' || *(ptr - 1) == ' ') {
- *ptr = toupper(*ptr);
+ if (*(ptr_ret - 1) == ' ' || *(ptr_ret - 1) == ' ') {
+ *ptr_ret++ = toupper(*ptr++);
} else {
- *ptr = tolower(*ptr);
+ *ptr_ret++ = tolower(*ptr++);
}
- ++ptr;
}
- return string;
+ return ret;
}
/********************************************************************
*
- * lpad
+ * LPAD
*
* Syntax:
*
- * text *lpad(text *string1, int4 len, text *string2)
+ * text *LPAD(text *string1, int4 len, text *string2)
*
* Purpose:
*
@@ -148,10 +158,10 @@ initcap(text *string)
********************************************************************/
text *
-lpad(text *string1, int4 len, text *string2)
+LPAD(text *string1, int4 len, text *string2)
{
text *ret;
- char *ptr, *ptr1, *ptr2;
+ char *ptr1, *ptr2, *ptr_ret;
int m, n;
m = len - VARSIZE(string1) + VARHDRSZ;
@@ -163,11 +173,11 @@ lpad(text *string1, int4 len, text *string2)
ret = (text *)malloc(VARHDRSZ + len);
VARSIZE(ret) = VARHDRSZ + len;
- ptr = VARDATA(ret);
- ptr2 = VARDATA(string2);
+ ptr2 = VARDATA(string2);
+ ptr_ret = VARDATA(ret);
while (m--) {
- *ptr++ = *ptr2;
+ *ptr_ret++ = *ptr2;
ptr2 = ptr2 == VARDATA(string2) + VARSIZE(string2) - VARHDRSZ - 1 ? VARDATA(string2) : ++ptr2;
}
@@ -175,7 +185,7 @@ lpad(text *string1, int4 len, text *string2)
ptr1 = VARDATA(string1);
while (n--) {
- *ptr++ = *ptr1++;
+ *ptr_ret++ = *ptr1++;
}
return ret;
@@ -184,11 +194,11 @@ lpad(text *string1, int4 len, text *string2)
/********************************************************************
*
- * rpad
+ * RPAD
*
* Syntax:
*
- * text *rpad(text *string1, int4 len, text *string2)
+ * text *RPAD(text *string1, int4 len, text *string2)
*
* Purpose:
*
@@ -198,10 +208,10 @@ lpad(text *string1, int4 len, text *string2)
********************************************************************/
text *
-rpad(text *string1, int4 len, text *string2)
+RPAD(text *string1, int4 len, text *string2)
{
text *ret;
- char *ptr, *ptr1, *ptr2;
+ char *ptr1, *ptr2, *ptr_ret;
int m, n;
m = len - VARSIZE(string1) + VARHDRSZ;
@@ -213,18 +223,18 @@ rpad(text *string1, int4 len, text *string2)
ret = (text *)malloc(VARHDRSZ + len);
VARSIZE(ret) = VARHDRSZ + len;
- n = VARSIZE(string1) - VARHDRSZ;
- ptr = VARDATA(ret);
- ptr1 = VARDATA(string1);
+ n = VARSIZE(string1) - VARHDRSZ;
+ ptr1 = VARDATA(string1);
+ ptr_ret = VARDATA(ret);
while (n--) {
- *ptr++ = *ptr1++;
+ *ptr_ret++ = *ptr1++;
}
ptr2 = VARDATA(string2);
while (m--) {
- *ptr++ = *ptr2;
+ *ptr_ret++ = *ptr2;
ptr2 = ptr2 == VARDATA(string2) + VARSIZE(string2) - VARHDRSZ - 1 ? VARDATA(string2) : ++ptr2;
}
@@ -234,11 +244,11 @@ rpad(text *string1, int4 len, text *string2)
/********************************************************************
*
- * ltrim
+ * LTRIM
*
* Syntax:
*
- * text *ltrim(text *string, text *set)
+ * text *LTRIM(text *string, text *set)
*
* Purpose:
*
@@ -248,9 +258,10 @@ rpad(text *string1, int4 len, text *string2)
********************************************************************/
text *
-ltrim(text *string, text *set)
+LTRIM(text *string, text *set)
{
- char *ptr, *ptr2, *end2;
+ text *ret;
+ char *ptr, *ptr2, *end2, *ptr_ret;
int m;
m = VARSIZE(string) - VARHDRSZ;
@@ -273,30 +284,32 @@ ltrim(text *string, text *set)
if (*ptr != *ptr2) {
break;
}
- ++ptr;
+ ptr++;
ptr2 = VARDATA(set);
}
- m = VARDATA(string) + VARSIZE(string) - VARHDRSZ - ptr + 1;
- ptr2 = VARDATA(string);
+ ++m;
+
+ ret = (text *)malloc(VARHDRSZ + m);
+ VARSIZE(ret) = VARHDRSZ + m;
+
+ ptr_ret = VARDATA(ret);
while (m--) {
- *ptr2++ = *ptr++;
+ *ptr_ret++ = *ptr++;
}
- VARSIZE(string) -= ptr - ptr2;
-
- return string;
+ return ret;
}
/********************************************************************
*
- * rtrim
+ * RTRIM
*
* Syntax:
*
- * text *rtrim(text *string, text *set)
+ * text *RTRIM(text *string, text *set)
*
* Purpose:
*
@@ -306,9 +319,10 @@ ltrim(text *string, text *set)
********************************************************************/
text *
-rtrim(text *string, text *set)
+RTRIM(text *string, text *set)
{
- char *ptr, *ptr2, *end2;
+ text *ret;
+ char *ptr, *ptr2, *end2, *ptr_ret;
int m;
m = VARSIZE(string) - VARHDRSZ;
@@ -335,19 +349,28 @@ rtrim(text *string, text *set)
ptr2 = VARDATA(set);
}
- VARSIZE(string) -= VARDATA(string) + VARSIZE(string) - VARHDRSZ - 1 - ptr;
+ ++m;
+
+ ret = (text *)malloc(VARHDRSZ + m);
+ VARSIZE(ret) = VARHDRSZ + m;
+
+ ptr_ret = VARDATA(ret) + m - 1;
- return string;
+ while (m--) {
+ *ptr_ret-- = *ptr--;
+ }
+
+ return ret;
}
/********************************************************************
*
- * substr
+ * SUBSTR
*
* Syntax:
*
- * text *substr(text *string, int4 m, int4 n)
+ * text *SUBSTR(text *string, int4 m, int4 n)
*
* Purpose:
*
@@ -357,9 +380,10 @@ rtrim(text *string, text *set)
********************************************************************/
text *
-substr(text *string, int4 m, int4 n)
+SUBSTR(text *string, int4 m, int4 n)
{
- char *ptr, *ptr1;
+ text *ret;
+ char *ptr, *ptr_ret;
int len;
len = VARSIZE(string) - VARHDRSZ - m;
@@ -368,27 +392,29 @@ substr(text *string, int4 m, int4 n)
return string;
}
- ptr = VARDATA(string);
- ptr1 = ptr + m - 1;
- len = len + 1 < n ? len + 1 : n;
+ len = len + 1 < n ? len + 1 : n;
+
+ ret = (text *)malloc(VARHDRSZ + len);
+ VARSIZE(ret) = VARHDRSZ + len;
+
+ ptr = VARDATA(string) + m - 1;
+ ptr_ret = VARDATA(ret);
while (len--) {
- *ptr++ = *ptr1++;
+ *ptr_ret++ = *ptr++;
}
- VARSIZE(string) -= ptr1 - ptr;
-
- return string;
+ return ret;
}
/********************************************************************
*
- * translate
+ * TRANSLATE
*
* Syntax:
*
- * text *translate(text *string, char from, char to)
+ * text *TRANSLATE(text *string, char from, char to)
*
* Purpose:
*
@@ -399,22 +425,277 @@ substr(text *string, int4 m, int4 n)
********************************************************************/
text *
-translate(text *string, char from, char to)
+TRANSLATE(text *string, char from, char to)
{
- char *ptr;
+ text *ret;
+ char *ptr, *ptr_ret;
int m;
- m = VARSIZE(string) - VARHDRSZ;
- ptr = VARDATA(string);
+ m = VARSIZE(string) - VARHDRSZ;
+
+ if (m <= 0) {
+ return string;
+ }
+
+ ret = (text *)malloc(VARSIZE(string));
+ VARSIZE(ret) = VARSIZE(string);
+
+ ptr = VARDATA(string);
+ ptr_ret = VARDATA(ret);
+
+ while (m--) {
+ *ptr_ret++ = *ptr == from ? to : *ptr;
+ ptr++;
+ }
+
+ return ret;
+}
+
+
+/********************************************************************
+ *
+ * Functions in lower case are the equivalents with the last
+ * parameter beeing set to a reasonable default.
+ *
+ ********************************************************************/
+
+
+/********************************************************************
+ *
+ * lpad
+ *
+ * Syntax:
+ *
+ * text *lpad(text *string1, int4 len)
+ *
+ * Purpose:
+ *
+ * Returns string1, left-padded to length len with blanks.
+ *
+ ********************************************************************/
+
+text *
+lpad(text *string1, int4 len)
+{
+ text *ret;
+ char *ptr1, *ptr_ret;
+ int m, n;
+
+ m = len - VARSIZE(string1) + VARHDRSZ;
+
+ if (m <= 0) {
+ return string1;
+ }
+
+ ret = (text *)malloc(VARHDRSZ + len);
+ VARSIZE(ret) = VARHDRSZ + len;
+
+ ptr_ret = VARDATA(ret);
while (m--) {
- if (*ptr == from) {
- *ptr = to;
+ *ptr_ret++ = ' ';
+ }
+
+ n = VARSIZE(string1) - VARHDRSZ;
+ ptr1 = VARDATA(string1);
+
+ while (n--) {
+ *ptr_ret++ = *ptr1++;
+ }
+
+ return ret;
+}
+
+
+/********************************************************************
+ *
+ * rpad
+ *
+ * Syntax:
+ *
+ * text *rpad(text *string1, int4 len)
+ *
+ * Purpose:
+ *
+ * Returns string1, right-padded to length len with blanks.
+ *
+ ********************************************************************/
+
+text *
+rpad(text *string1, int4 len)
+{
+ text *ret;
+ char *ptr1, *ptr_ret;
+ int m, n;
+
+ m = len - VARSIZE(string1) + VARHDRSZ;
+
+ if (m <= 0) {
+ return string1;
+ }
+
+ ret = (text *)malloc(VARHDRSZ + len);
+ VARSIZE(ret) = VARHDRSZ + len;
+
+ n = VARSIZE(string1) - VARHDRSZ;
+ ptr1 = VARDATA(string1);
+ ptr_ret = VARDATA(ret);
+
+ while (n--) {
+ *ptr_ret++ = *ptr1++;
+ }
+
+ while (m--) {
+ *ptr_ret++ = ' ';
+ }
+
+ return ret;
+}
+
+
+/********************************************************************
+ *
+ * ltrim
+ *
+ * Syntax:
+ *
+ * text *ltrim(text *string)
+ *
+ * Purpose:
+ *
+ * Returns string with initial blanks removed.
+ *
+ ********************************************************************/
+
+text *
+ltrim(text *string)
+{
+ text *ret;
+ char *ptr, *ptr_ret;
+ int m;
+
+ m = VARSIZE(string) - VARHDRSZ;
+
+ if (m <= 0) {
+ return string;
+ }
+
+ ptr = VARDATA(string);
+
+ while (m--) {
+ if (*ptr != ' ') {
+ break;
}
++ptr;
}
- return string;
+ ++m;
+
+ ret = (text *)malloc(VARHDRSZ + m);
+ VARSIZE(ret) = VARHDRSZ + m;
+
+ ptr_ret = VARDATA(ret);
+
+ while (m--) {
+ *ptr_ret++ = *ptr++;
+ }
+
+ return ret;
+}
+
+
+/********************************************************************
+ *
+ * rtrim
+ *
+ * Syntax:
+ *
+ * text *rtrim(text *string)
+ *
+ * Purpose:
+ *
+ * Returns string with final blanks removed.
+ *
+ ********************************************************************/
+
+text *
+rtrim(text *string)
+{
+ text *ret;
+ char *ptr, *ptr_ret;
+ int m;
+
+ m = VARSIZE(string) - VARHDRSZ;
+
+ if (m <= 0) {
+ return string;
+ }
+
+ ptr = VARDATA(string) + VARSIZE(string) - VARHDRSZ - 1;
+
+ while (m--) {
+ if (*ptr != ' ') {
+ break;
+ }
+ --ptr;
+ }
+
+ ++m;
+
+ ret = (text *)malloc(VARHDRSZ + m);
+ VARSIZE(ret) = VARHDRSZ + m;
+
+ ptr_ret = VARDATA(ret) + m - 1;
+
+ while (m--) {
+ *ptr_ret-- = *ptr--;
+ }
+
+ return ret;
+}
+
+
+/********************************************************************
+ *
+ * substr
+ *
+ * Syntax:
+ *
+ * text *substr(text *string, int4 m)
+ *
+ * Purpose:
+ *
+ * Returns a portion of string, beginning at character m, up to
+ * the end of string. The first position of string is 1.
+ *
+ ********************************************************************/
+
+text *
+substr(text *string, int4 m)
+{
+ text *ret;
+ char *ptr, *ptr_ret;
+ int len;
+
+ len = VARSIZE(string) - VARHDRSZ - m;
+
+ if (m <= 0 || len <= 0) {
+ return string;
+ }
+
+ len = len + 1;
+
+ ret = (text *)malloc(VARHDRSZ + len);
+ VARSIZE(ret) = VARHDRSZ + len;
+
+ ptr = VARDATA(string) + m - 1;
+ ptr_ret = VARDATA(ret);
+
+ while (len--) {
+ *ptr_ret++ = *ptr++;
+ }
+
+ return ret;
}
--
GitLab