1+
2+ /* -----------------------------------------------------------------------
3+ * ascii.c
4+ *
5+ * $Header: /cvsroot/pgsql/src/backend/utils/adt/ascii.c,v 1.1 2000/08/04 20:22:51 momjian Exp $
6+ *
7+ * Portions Copyright (c) 1999-2000, PostgreSQL, Inc
8+ *
9+ *
10+ * TO_ASCII()
11+ *
12+ * The PostgreSQL routine for string to ascii conversion.
13+ *
14+ * -----------------------------------------------------------------------
15+ */
16+
17+ #include "postgres.h"
18+ #include "utils/builtins.h"
19+ #include "mb/pg_wchar.h"
20+ #include "utils/ascii.h"
21+
22+ static text * encode_to_ascii (text * data , int enc );
23+
24+ /* ----------
25+ * to_ascii
26+ * ----------
27+ */
28+ char *
29+ pg_to_ascii (unsigned char * src , unsigned char * src_end , unsigned char * desc , int enc )
30+ {
31+ unsigned char * x = NULL ;
32+ unsigned char * ascii = NULL ;
33+ int range = 0 ;
34+
35+ /*
36+ * relevant start for an encoding
37+ */
38+ #define RANGE_128 128
39+ #define RANGE_160 160
40+
41+
42+ if (enc == LATIN1 )
43+ {
44+ /* ----------
45+ * ISO-8859-1 <range: 160 -- 255>
46+ * ----------
47+ */
48+ ascii = " cL Y \"Ca -R 'u ., ?AAAAAAACEEEEIIII NOOOOOxOUUUUYTBaaaaaaaceeeeiiii nooooo/ouuuuyty" ;
49+ range = RANGE_160 ;
50+ }
51+ else if (enc == LATIN2 )
52+ {
53+ /* ----------
54+ * ISO-8859-2 <range: 160 -- 255>
55+ * ----------
56+ */
57+ ascii = " A L LS \"SSTZ-ZZ a,l'ls ,sstz\"zzRAAAALCCCEEEEIIDDNNOOOOxRUUUUYTBraaaalccceeeeiiddnnoooo/ruuuuyt." ;
58+ range = RANGE_160 ;
59+ }
60+ else if (enc == WIN1250 )
61+ {
62+ /* ----------
63+ * Window CP1250 <range: 128 -- 255>
64+ * ----------
65+ */
66+ ascii = " ' \" %S<STZZ `'\"\".-- s>stzz L A \"CS -RZ ,l'u .,as L\"lzRAAAALCCCEEEEIIDDNNOOOOxRUUUUYTBraaaalccceeeeiiddnnoooo/ruuuuyt " ;
67+ range = RANGE_128 ;
68+ }
69+ else
70+ {
71+ elog (ERROR , "pg_to_ascii(): unsupported encoding from %s" ,
72+ pg_encoding_to_char (enc ));
73+ }
74+
75+ /* ----------
76+ * Encode
77+ * ----------
78+ */
79+ for (x = src ; x <= src_end ; x ++ )
80+ {
81+ if (* x < 128 )
82+ * desc ++ = * x ;
83+ else if (* x < range )
84+ * desc ++ = ' ' ; /* bogus 128 to 'range' */
85+ else
86+ * desc ++ = ascii [* x - range ];
87+ }
88+
89+ return desc ;
90+ }
91+
92+ /* ----------
93+ * encode text
94+ * ----------
95+ */
96+ static text *
97+ encode_to_ascii (text * data , int enc )
98+ {
99+ pg_to_ascii (
100+ (unsigned char * ) VARDATA (data ), /* src */
101+ VARDATA (data ) + VARSIZE (data ), /* src end */
102+ (unsigned char * ) VARDATA (data ), /* desc */
103+ enc ); /* encoding */
104+
105+ return data ;
106+ }
107+
108+ /* ----------
109+ * convert to ASCII - enc is set as 'name' arg.
110+ * ----------
111+ */
112+ Datum
113+ to_ascii_encname (PG_FUNCTION_ARGS )
114+ {
115+ PG_RETURN_TEXT_P
116+ (
117+ encode_to_ascii
118+ (
119+ PG_GETARG_TEXT_P_COPY (0 ),
120+ pg_char_to_encoding ( NameStr (* PG_GETARG_NAME (1 )) )
121+ )
122+ );
123+ }
124+
125+ /* ----------
126+ * convert to ASCII - enc is set as int4
127+ * ----------
128+ */
129+ Datum
130+ to_ascii_enc (PG_FUNCTION_ARGS )
131+ {
132+ PG_RETURN_TEXT_P
133+ (
134+ encode_to_ascii
135+ (
136+ PG_GETARG_TEXT_P_COPY (0 ),
137+ PG_GETARG_INT32 (1 )
138+ )
139+ );
140+ }
141+
142+ /* ----------
143+ * convert to ASCII - current enc is DatabaseEncoding
144+ * ----------
145+ */
146+ Datum
147+ to_ascii_default (PG_FUNCTION_ARGS )
148+ {
149+ PG_RETURN_TEXT_P
150+ (
151+ encode_to_ascii
152+ (
153+ PG_GETARG_TEXT_P_COPY (0 ),
154+ GetDatabaseEncoding ()
155+ )
156+ );
157+ }
158+
159+
0 commit comments