Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
ext	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
PerlApp.cpp	15.25 KB	-r--r--r--	2014-12-27 11:49
PerlApp.h	2.3 KB	-r--r--r--	2014-12-27 11:49
PerlApp.hrh	608 B	-r--r--r--	2014-12-27 11:49
PerlAppAif.rss	521 B	-r--r--r--	2014-12-27 11:49
PerlBase.cpp	11.19 KB	-r--r--r--	2014-12-27 11:49
PerlBase.h	4.23 KB	-r--r--r--	2014-12-27 11:49
PerlBase.pod	4.5 KB	-r--r--r--	2014-12-27 11:49
PerlRecog.cpp	1.49 KB	-r--r--r--	2014-12-27 11:49
PerlRecog.mmp	197 B	-r--r--r--	2014-12-27 11:49
PerlUi.cpp	7.63 KB	-r--r--r--	2014-12-27 11:49
PerlUi.h	3.52 KB	-r--r--r--	2014-12-27 11:49
PerlUi.hrh	331 B	-r--r--r--	2014-12-27 11:49
PerlUiS60.rss	2.78 KB	-r--r--r--	2014-12-27 11:49
PerlUiS80.rss	1.89 KB	-r--r--r--	2014-12-27 11:49
PerlUiS90.rss	1.9 KB	-r--r--r--	2014-12-27 11:49
PerlUiUIQ.rss	2.26 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.cpp	2.88 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.h	1.19 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.pod	1.24 KB	-r--r--r--	2014-12-27 11:49
README	558 B	-r--r--r--	2014-12-27 11:49
TODO	6.99 KB	-r--r--r--	2014-12-27 11:49
bld.inf	40 B	-r--r--r--	2014-12-27 11:49
config.pl	27.36 KB	-r--r--r--	2014-12-27 11:49
config.sh	16.55 KB	-r--r--r--	2014-12-27 11:49
cwd.pl	87 B	-r--r--r--	2014-12-27 11:49
demo_pl	3.25 KB	-r--r--r--	2014-12-27 11:49
find_writeable_data.pl	1.41 KB	-r--r--r--	2014-12-27 11:49
hexdump.pl	959 B	-r--r--r--	2014-12-27 11:49
install.cfg	2.32 KB	-r--r--r--	2014-12-27 11:49
makesis.pl	5.41 KB	-r--r--r--	2014-12-27 11:49
port.pl	154 B	-r--r--r--	2014-12-27 11:49
sanity.pl	925 B	-r--r--r--	2014-12-27 11:49
sdk.pl	7.93 KB	-r--r--r--	2014-12-27 11:49
sisify.pl	81.87 KB	-r--r--r--	2014-12-27 11:49
symbian_dll.cpp	639 B	-r--r--r--	2014-12-27 11:49
symbian_proto.h	2.78 KB	-r--r--r--	2014-12-27 11:49
symbian_stubs.c	3.48 KB	-r--r--r--	2014-12-27 11:49
symbian_stubs.h	482 B	-r--r--r--	2014-12-27 11:49
symbian_utils.cpp	13.92 KB	-r--r--r--	2014-12-27 11:49
symbianish.h	7.23 KB	-r--r--r--	2014-12-27 11:49
uid.pl	11 B	-r--r--r--	2014-12-27 11:49
version.pl	494 B	-r--r--r--	2014-12-27 11:49
xsbuild.pl	27.3 KB	-r--r--r--	2014-12-27 11:49

Rename

/* Copyright (c) 2004-2005 Nokia. All rights reserved. */
 
/* The PerlUtil class is licensed under the same terms as Perl itself. */

/* See PerlUtil.pod for documentation. */

#define PERLUTIL_CPP

#include "PerlUtil.h"

#include <utf.h>

#undef Copy
#undef New

EXPORT_C SV* PerlUtil::newSvPVfromTDesC8(const TDesC8& aDesC8) {
  dTHX;
  return newSVpvn((const char *)aDesC8.Ptr(), aDesC8.Size());
}

EXPORT_C void PerlUtil::setSvPVfromTDesC8(SV* sv, const TDesC8& aDesC8) {
  dTHX;
  sv_setpvn(sv, (const char *)aDesC8.Ptr(), aDesC8.Size());
}

EXPORT_C HBufC8* PerlUtil::newHBufC8fromSvPV(SV* sv) {
  dTHX;
  return PerlUtil::newHBufC8fromPVn((const U8 *)SvPV_nolen(sv), SvLEN(sv));
}

EXPORT_C void PerlUtil::setTDes8fromSvPV(TDes8& aDes8, SV* sv) {
  dTHX;
  PerlUtil::setTDes8fromPVn(aDes8, (const U8 *)SvPV_nolen(sv), SvLEN(sv));
}

EXPORT_C SV* PerlUtil::newSvPVfromTDesC16(const TDesC16& aDesC16) {
  dTHX;
  SV* sv = NULL;
  HBufC8* hBuf8 = HBufC8::New(aDesC16.Length() * 3);

if (hBuf8) {
    TPtr8 aPtr8(hBuf8->Des());
    CnvUtfConverter::ConvertFromUnicodeToUtf8(aPtr8, aDesC16);
    sv = newSVpvn((const char *)(hBuf8->Ptr()), hBuf8->Size());
    delete hBuf8;
    hBuf8 = NULL;
    SvUTF8_on(sv);
  }

return sv;
}

EXPORT_C void PerlUtil::setSvPVfromTDesC16(SV* sv, const TDesC16& aDesC16) {
  dTHX;
  HBufC8* hBuf8 = HBufC8::New(aDesC16.Length() * 3);

if (hBuf8) {
    TPtr8 aPtr8(hBuf8->Des());
    CnvUtfConverter::ConvertFromUnicodeToUtf8(aPtr8, aDesC16);
    sv_setpvn(sv, (const char *)(hBuf8->Ptr()), hBuf8->Size());
    delete hBuf8;
    hBuf8 = NULL;
    SvUTF8_on(sv);
  }
}

EXPORT_C HBufC16* PerlUtil::newHBufC16fromSvPV(SV* sv) {
  dTHX;
  return PerlUtil::newHBufC16fromPVn((const U8 *)SvPV_nolen(sv), SvLEN(sv), SvUTF8(sv));
}

void PerlUtil::setTDes16fromSvPV(TDes16& aDes16, SV* sv) {
  dTHX;
  PerlUtil::setTDes16fromPVn(aDes16, (const U8 *)SvPV_nolen(sv), SvLEN(sv), SvUTF8(sv));
}

EXPORT_C HBufC8* PerlUtil::newHBufC8fromPVn(const U8* s, STRLEN n) {
  HBufC8* aBuf8 = HBufC8::New(n);
  if (aBuf8) {
    TPtr8 ptr8 = aBuf8->Des();
    ptr8.Copy(s, n);
  }
  return aBuf8;
}

EXPORT_C void PerlUtil::setTDes8fromPVn(TDes8& aDes8, const U8* s, STRLEN n) {
  // TODO: grow aDes8 if needed
  aDes8.Copy(s, n);
}

EXPORT_C HBufC16* PerlUtil::newHBufC16fromPVn(const U8 *s, STRLEN n, bool utf8) {
  HBufC16 *hBuf16 = HBufC16::New(n); // overallocate

if (hBuf16) {
    if (utf8) {
      TPtr16 aPtr16(hBuf16->Des());
      TPtrC8 aPtrC8(s, n);
      CnvUtfConverter::ConvertToUnicodeFromUtf8(aPtr16, aPtrC8);
    } else {
      TPtrC8 aPtrC8(s, n);
      hBuf16->Des().Copy(aPtrC8);
    }
  }

return hBuf16;
}

EXPORT_C void PerlUtil::setTDes16fromPVn(TDes16& aDes16, const U8 *s, STRLEN n, bool utf8) {
  // TODO: grow aDes16 if needed
  if (utf8) {
    TPtrC8 aPtrC8(s, n);
    CnvUtfConverter::ConvertToUnicodeFromUtf8(aDes16, aPtrC8);
  } else {
    TPtrC8 aPtrC8(s, n);
    aDes16.Copy(aPtrC8);
  }
}