cvsuser 04/04/13 08:45:47
Modified: src string.c
Log:
remove unneeded code
Revision Changes Path
1.188 +1 -65 parrot/src/string.c
Index: string.c
===================================================================
RCS file: /cvs/public/parrot/src/string.c,v
retrieving revision 1.187
retrieving revision 1.188
diff -u -w -r1.187 -r1.188
--- string.c 13 Apr 2004 15:17:29 -0000 1.187
+++ string.c 13 Apr 2004 15:45:47 -0000 1.188
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: string.c,v 1.187 2004/04/13 15:17:29 leo Exp $
+$Id: string.c,v 1.188 2004/04/13 15:45:47 leo Exp $
=head1 NAME
@@ -2911,70 +2911,6 @@
string_primary_encoding_for_representation(interpreter,
s->representation),
(PObj_get_FLAGS(s) | PObj_constant_FLAG) );
-}
-
-/*
-
-Called from string_unescape_cstring() to unescape a non representation
-one C string.
-
-*/
-
-static void
-_string_unescape_cstring_large(struct Parrot_Interp * interpreter,
- char *cstring, STRING *outstring, UINTVAL firstchar, char delimiter)
-{
- char hexdigits[] = "0123456789abcdef";
- STRING *result = outstring;
- char *string;
-
- if (outstring) string_append_chr(interpreter, result, firstchar);
-
- if (!cstring) return;
-
- for (string = cstring ; *string; ++string)
- {
- if (*string == '\\' && string[1]) {
- switch (*++string) {
- case 'n':
- string_append_chr(interpreter, result, '\n');
- break;
- case 'r':
- string_append_chr(interpreter, result, '\r');
- break;
- case 't':
- string_append_chr(interpreter, result, '\t');
- break;
- case 'a':
- string_append_chr(interpreter, result, '\a');
- break;
- case 'f':
- string_append_chr(interpreter, result, '\f');
- break;
- case 'e':
- string_append_chr(interpreter, result, '\033');
- break;
- case '\\':
- string_append_chr(interpreter, result, '\\');
- break;
- case 'x': /* XXX encoding??? */
- string_append_chr(interpreter,
- result, _parse_hex_digits(&string, 2));
- break;
- case 'u': /* XXX encoding??? */
- string_append_chr(interpreter,
- result, _parse_hex_digits(&string, 4));
- break;
- default:
- string_append_chr(interpreter, result, *string);
- break;
- }
- }
- else if (*string == delimiter)
- break;
- else
- string_append_chr(interpreter, result, *string);
- }
}
/*
