1 /* Shared functions related to mangling names for the GNU compiler
2 for the Java(TM) language.
3 Copyright (C) 2001 Free Software Foundation, Inc.
5 This file is part of GNU CC.
7 GNU CC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU CC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU CC; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA.
22 Java and all Java-based marks are trademarks or registered trademarks
23 of Sun Microsystems, Inc. in the United States and other countries.
24 The Free Software Foundation is independent of Sun Microsystems, Inc. */
26 /* Written by Alexandre Petit-Bianco <apbianco@cygnus.com> */
32 #include "java-tree.h"
36 static void append_unicode_mangled_name PARAMS ((const char *, int));
38 static int unicode_mangling_length PARAMS ((const char *, int));
41 extern struct obstack *mangle_obstack;
43 /* If the assembler doesn't support UTF8 in symbol names, some
44 characters might need to be escaped. */
48 /* Assuming (NAME, LEN) is a Utf8-encoding string, emit the string
49 appropriately mangled (with Unicode escapes if needed) to
50 MANGLE_OBSTACK. Note that `java', `lang' and `Object' are used so
51 frequently that they could be cached. */
54 append_gpp_mangled_name (name, len)
58 int encoded_len = unicode_mangling_length (name, len);
59 int needs_escapes = encoded_len > 0;
62 sprintf (buf, "%d", (needs_escapes ? encoded_len : len));
63 obstack_grow (mangle_obstack, buf, strlen (buf));
66 append_unicode_mangled_name (name, len);
68 obstack_grow (mangle_obstack, name, len);
71 /* Assuming (NAME, LEN) is a Utf8-encoded string, emit the string
72 appropriately mangled (with Unicode escapes) to MANGLE_OBSTACK.
73 Characters needing an escape are encoded `__UNN_' to `__UNNNN_', in
74 which case `__U' will be mangled `__U_'. */
77 append_unicode_mangled_name (name, len)
81 const unsigned char *ptr;
82 const unsigned char *limit = (const unsigned char *)name + len;
84 for (ptr = (const unsigned char *) name; ptr < limit; )
86 int ch = UTF8_GET(ptr, limit);
88 if ((ISALNUM (ch) && ch != 'U') || ch == '$')
89 obstack_1grow (mangle_obstack, ch);
90 /* Everything else needs encoding */
94 if (ch == '_' || ch == 'U')
96 /* Prepare to recognize __U */
97 if (ch == '_' && (uuU < 3))
100 obstack_1grow (mangle_obstack, ch);
102 /* We recognize __U that we wish to encode
103 __U_. Finish the encoding. */
104 else if (ch == 'U' && (uuU == 2))
107 obstack_grow (mangle_obstack, "U_", 2);
109 /* Otherwise, just reset uuU and emit the character we
114 obstack_1grow (mangle_obstack, ch);
118 sprintf (buf, "__U%x_", ch);
119 obstack_grow (mangle_obstack, buf, strlen (buf));
125 /* Assuming (NAME, LEN) is a Utf8-encoding string, calculate the
126 length of the string as mangled (a la g++) including Unicode
127 escapes. If no escapes are needed, return 0. */
130 unicode_mangling_length (name, len)
134 const unsigned char *ptr;
135 const unsigned char *limit = (const unsigned char *)name + len;
136 int need_escapes = 0; /* Whether we need an escape or not */
137 int num_chars = 0; /* Number of characters in the mangled name */
138 int uuU = 0; /* Help us to find __U. 0: '_', 1: '__' */
139 for (ptr = (const unsigned char *) name; ptr < limit; )
141 int ch = UTF8_GET(ptr, limit);
144 error ("internal error - invalid Utf8 name");
145 if ((ISALNUM (ch) && ch != 'U') || ch == '$')
147 /* Everything else needs encoding */
150 int encoding_length = 2;
152 if (ch == '_' || ch == 'U')
154 /* It's always at least one character. */
157 /* Prepare to recognize __U */
158 if (ch == '_' && (uuU < 3))
161 /* We recognize __U that we wish to encode __U_, we
162 count one more character. */
163 else if (ch == 'U' && (uuU == 2))
169 /* Otherwise, just reset uuU */
181 num_chars += (4 + encoding_length);
194 /* The assembler supports UTF8, we don't use escapes. Mangling is
195 simply <N>NAME. <N> is the number of UTF8 encoded characters that
196 are found in NAME. Note that `java', `lang' and `Object' are used
197 so frequently that they could be cached. */
200 append_gpp_mangled_name (name, len)
204 const unsigned char *ptr;
205 const unsigned char *limit = (const unsigned char *)name + len;
209 /* Compute the length of the string we wish to mangle. */
210 for (encoded_len = 0, ptr = (const unsigned char *) name;
211 ptr < limit; encoded_len++)
213 int ch = UTF8_GET(ptr, limit);
216 error ("internal error - invalid Utf8 name");
219 sprintf (buf, "%d", encoded_len);
220 obstack_grow (mangle_obstack, buf, strlen (buf));
221 obstack_grow (mangle_obstack, name, len);
224 #endif /* HAVE_AS_UTF8 */