Add missing files from Karel, tip from Jan.

diff --git a/src/backend/utils/adt/ascii.c b/src/backend/utils/adt/ascii.c
new file mode 100644 (file)
index 0000000..785099f
--- /dev/null
+++ b/src/backend/utils/adt/ascii.c
@@ -0,0 +1,159 @@
+
+/* -----------------------------------------------------------------------
+ * ascii.c
+ *
+ * $Header: /cvsroot/pgsql/src/backend/utils/adt/ascii.c,v 1.1 2000/08/04 20:22:51 momjian Exp $
+ *
+ *      Portions Copyright (c) 1999-2000, PostgreSQL, Inc
+ *
+ *
+ *      TO_ASCII()
+ *
+ *      The PostgreSQL routine for string to ascii conversion.
+ *
+ * -----------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "utils/builtins.h"
+#include "mb/pg_wchar.h"
+#include "utils/ascii.h"
+
+static text *encode_to_ascii(text *data, int enc);
+
+/* ----------
+ * to_ascii 
+ * ----------
+ */
+char *
+pg_to_ascii(unsigned char *src, unsigned char *src_end, unsigned char *desc, int enc)
+{
+       unsigned char   *x      = NULL;
+       unsigned char   *ascii  = NULL ;
+       int             range   = 0;
+       
+       /* 
+        * relevant start for an encoding 
+        */ 
+       #define RANGE_128       128     
+       #define RANGE_160       160
+       
+       
+       if (enc == LATIN1)
+       {
+               /* ----------
+                * ISO-8859-1 <range: 160 -- 255>
+                * ----------
+                */
+               ascii = "  cL Y  \"Ca  -R     'u .,      ?AAAAAAACEEEEIIII NOOOOOxOUUUUYTBaaaaaaaceeeeiiii nooooo/ouuuuyty";
+               range = RANGE_160;
+       }
+       else if (enc == LATIN2)
+       {
+               /* ----------
+                * ISO-8859-2 <range: 160 -- 255>
+                * ----------
+                */
+               ascii = " A L LS \"SSTZ-ZZ a,l'ls ,sstz\"zzRAAAALCCCEEEEIIDDNNOOOOxRUUUUYTBraaaalccceeeeiiddnnoooo/ruuuuyt.";
+               range = RANGE_160;
+       }
+       else if (enc == WIN1250)
+       {
+               /* ----------
+                * Window CP1250 <range: 128 -- 255>
+                * ----------
+                */
+               ascii = "  ' \"    %S<STZZ `'\"\".--  s>stzz   L A  \"CS  -RZ  ,l'u .,as L\"lzRAAAALCCCEEEEIIDDNNOOOOxRUUUUYTBraaaalccceeeeiiddnnoooo/ruuuuyt ";
+               range = RANGE_128;
+       }
+       else
+       {
+               elog(ERROR, "pg_to_ascii(): unsupported encoding from %s", 
+                                               pg_encoding_to_char(enc));
+       }
+       
+       /* ----------
+        * Encode
+        * ----------
+        */
+       for (x = src; x <= src_end; x++)
+       {
+               if (*x < 128)                   
+                       *desc++ = *x;
+               else if (*x < range)
+                       *desc++ = ' ';          /* bogus 128 to 'range' */
+               else
+                       *desc++ = ascii[*x - range];    
+       }               
+       
+       return desc;
+}
+
+/* ----------
+ * encode text
+ * ----------
+ */
+static text *
+encode_to_ascii(text *data, int enc)
+{
+       pg_to_ascii(
+               (unsigned char *) VARDATA(data),                /* src */
+               VARDATA(data) + VARSIZE(data),                  /* src end */
+               (unsigned char *) VARDATA(data),                /* desc */      
+               enc);                                           /* encoding */
+       
+       return data;
+}
+
+/* ----------
+ * convert to ASCII - enc is set as 'name' arg.
+ * ----------
+ */
+Datum
+to_ascii_encname(PG_FUNCTION_ARGS)
+{
+       PG_RETURN_TEXT_P
+       ( 
+               encode_to_ascii
+               ( 
+                       PG_GETARG_TEXT_P_COPY(0), 
+                       pg_char_to_encoding( NameStr(*PG_GETARG_NAME(1)) ) 
+               )
+       );      
+}
+
+/* ----------
+ * convert to ASCII - enc is set as int4
+ * ----------
+ */
+Datum 
+to_ascii_enc(PG_FUNCTION_ARGS)
+{
+       PG_RETURN_TEXT_P
+       ( 
+               encode_to_ascii
+               ( 
+                       PG_GETARG_TEXT_P_COPY(0), 
+                       PG_GETARG_INT32(1) 
+               )
+       );      
+}
+
+/* ----------
+ * convert to ASCII - current enc is DatabaseEncoding
+ * ----------
+ */
+Datum
+to_ascii_default(PG_FUNCTION_ARGS)
+{
+       PG_RETURN_TEXT_P 
+       ( 
+               encode_to_ascii
+               ( 
+                       PG_GETARG_TEXT_P_COPY(0), 
+                       GetDatabaseEncoding()
+               )
+       );
+}
+
+               
\ No newline at end of file

diff --git a/src/include/utils/ascii.h b/src/include/utils/ascii.h
new file mode 100644 (file)
index 0000000..16b59a8
--- /dev/null
+++ b/src/include/utils/ascii.h
@@ -0,0 +1,24 @@
+
+/* -----------------------------------------------------------------------
+ * ascii.h
+ *
+ * $Id: ascii.h,v 1.1 2000/08/04 20:22:52 momjian Exp $
+ *
+ *      Portions Copyright (c) 1999-2000, PostgreSQL, Inc
+ *
+ * -----------------------------------------------------------------------
+ */
+
+#ifndef _ASCII_H_
+#define _ASCII_H_
+
+#include "fmgr.h"
+
+extern Datum to_ascii_encname(PG_FUNCTION_ARGS);
+extern Datum to_ascii_enc(PG_FUNCTION_ARGS);
+extern Datum to_ascii_default(PG_FUNCTION_ARGS);
+
+extern char *pg_to_ascii(unsigned char *src, unsigned char *src_end, 
+                                       unsigned char *desc, int enc);
+
+#endif