This makes the initcap function compatible with Oracle 9i, it has been

bmomjian · bmomjian · commit e7fe89d57ddd · 2003-07-27T03:16:20.000Z
tested on both redhat 8 and FreebSD.
--
Mike Nolan
diff --git a/src/backend/utils/adt/oracle_compat.c b/src/backend/utils/adt/oracle_compat.c
@@ -9,7 +9,7 @@
  *
  *
  * IDENTIFICATION
- *	$Header: /cvsroot/pgsql/src/backend/utils/adt/oracle_compat.c,v 1.44 2003/05/23 22:33:20 tgl Exp $
+ *	$Header: /cvsroot/pgsql/src/backend/utils/adt/oracle_compat.c,v 1.45 2003/07/27 03:16:20 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -132,7 +132,8 @@ initcap(PG_FUNCTION_ARGS)
 
 	while (m-- > 0)
 	{
-		if (isspace((unsigned char) ptr[-1]))
+		/* Oracle capitalizes after all non-alphanumeric */
+		if (!isalnum((unsigned char) ptr[-1]))
 			*ptr = toupper((unsigned char) *ptr);
 		else
 			*ptr = tolower((unsigned char) *ptr);

Original file line number	Diff line number	Diff line change
`@@ -9,7 +9,7 @@`
`9`	`9`	`*`
`10`	`10`	`*`
`11`	`11`	`* IDENTIFICATION`
`12`		`- * $Header: /cvsroot/pgsql/src/backend/utils/adt/oracle_compat.c,v 1.44 2003/05/23 22:33:20 tgl Exp $`
	`12`	`+ * $Header: /cvsroot/pgsql/src/backend/utils/adt/oracle_compat.c,v 1.45 2003/07/27 03:16:20 momjian Exp $`
`13`	`13`	`*`
`14`	`14`	`*-------------------------------------------------------------------------`
`15`	`15`	`*/`
`@@ -132,7 +132,8 @@ initcap(PG_FUNCTION_ARGS)`
`132`	`132`
`133`	`133`	`while (m-- > 0)`
`134`	`134`	`{`
`135`		`- if (isspace((unsigned char) ptr[-1]))`
	`135`	`+ /* Oracle capitalizes after all non-alphanumeric */`
	`136`	`+ if (!isalnum((unsigned char) ptr[-1]))`
`136`	`137`	`ptr = toupper((unsigned char) ptr);`
`137`	`138`	`else`
`138`	`139`	`ptr = tolower((unsigned char) ptr);`