On Tue, 26 Jul 2005 07:55:21 -0700 (PDT), rajarshi das <[EMAIL PROTECTED]>
wrote:
>
>
> --- Nicholas Clark <[EMAIL PROTECTED]> wrote:
>
> > On Tue, Jul 26, 2005 at 07:22:55AM -0700, rajarshi
> > das wrote:
> > > Hi,
> > > I made the following modifications to utf8.c :
> > > #ifdef EBCDIC
> > > uv = NATIVE_TO_UTF(uv);
> > > #endif
> >
> > Where in utf8.c? Your description of what you
> > changed is inadequate for
> > anyone else to understand the context of your
> > change.
> >
> The change is in the fn Perl_utf8n_to_uvuni :
> -------------------
> .....
> ....
Are you able to generate unwrapped unified diffs?
You are posting in a VERY narrow wrapping making code snippets malformed and
unreadable
# diff -pu file.org file.new
is the preferred format
> #define UTF8_WARN_LONG 8
> #define UTF8_WARN_FFFF 9 /*
> Also FFFE. */
>
> if (curlen == 0 &&
> !(flags & UTF8_ALLOW_EMPTY)) {
> warning = UTF8_WARN_EMPTY;
> goto malformed;
> }
> #ifdef EBCDIC /* the change */
> uv = NATIVE_TO_UTF(uv);
> #endif /* the change ends here */
>
> if (UTF8_IS_INVARIANT(uv)) {
> if (retlen)
> *retlen = 1;
> return (UV) (NATIVE_TO_UTF(*s));
> }
> ....
> ...
> ----------------------------------------
--
H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using Perl 5.6.2, 5.8.0, 5.8.5, & 5.9.2 on HP-UX 10.20, 11.00 & 11.11,
AIX 4.3 & 5.2, SuSE 9.2 & 9.3, and Cygwin. http://www.cmve.net/~merijn
Smoking perl: http://www.test-smoke.org, perl QA: http://qa.perl.org
reports to: [EMAIL PROTECTED], perl-qa@perl.org
