RE: How to load a "loadable object" that has a non-default file extension ?
[perl.git] / symbian / PerlUtil.cpp
1 /* Copyright (c) 2004-2005 Nokia. All rights reserved. */
2  
3 /* The PerlUtil class is licensed under the same terms as Perl itself. */
4
5 /* See PerlUtil.pod for documentation. */
6
7 #define PERLUTIL_CPP
8
9 #include "PerlUtil.h"
10
11 #include <utf.h>
12
13 #undef Copy
14 #undef New
15
16 EXPORT_C SV* PerlUtil::newSvPVfromTDesC8(const TDesC8& aDesC8) {
17   dTHX;
18   return newSVpvn((const char *)aDesC8.Ptr(), aDesC8.Size());
19 }
20
21 EXPORT_C void PerlUtil::setSvPVfromTDesC8(SV* sv, const TDesC8& aDesC8) {
22   dTHX;
23   sv_setpvn(sv, (const char *)aDesC8.Ptr(), aDesC8.Size());
24 }
25
26 EXPORT_C HBufC8* PerlUtil::newHBufC8fromSvPV(SV* sv) {
27   dTHX;
28   return PerlUtil::newHBufC8fromPVn((const U8 *)SvPV_nolen(sv), SvLEN(sv));
29 }
30
31 EXPORT_C void PerlUtil::setTDes8fromSvPV(TDes8& aDes8, SV* sv) {
32   dTHX;
33   PerlUtil::setTDes8fromPVn(aDes8, (const U8 *)SvPV_nolen(sv), SvLEN(sv));
34 }
35
36 EXPORT_C SV* PerlUtil::newSvPVfromTDesC16(const TDesC16& aDesC16) {
37   dTHX;
38   SV* sv = NULL;
39   HBufC8* hBuf8 = HBufC8::New(aDesC16.Length() * 3);
40
41   if (hBuf8) {
42     TPtr8 aPtr8(hBuf8->Des());
43     CnvUtfConverter::ConvertFromUnicodeToUtf8(aPtr8, aDesC16);
44     sv = newSVpvn((const char *)(hBuf8->Ptr()), hBuf8->Size());
45     delete hBuf8;
46     hBuf8 = NULL;
47     SvUTF8_on(sv);
48   }
49
50   return sv;
51 }
52
53 EXPORT_C void PerlUtil::setSvPVfromTDesC16(SV* sv, const TDesC16& aDesC16) {
54   dTHX;
55   HBufC8* hBuf8 = HBufC8::New(aDesC16.Length() * 3);
56
57   if (hBuf8) {
58     TPtr8 aPtr8(hBuf8->Des());
59     CnvUtfConverter::ConvertFromUnicodeToUtf8(aPtr8, aDesC16);
60     sv_setpvn(sv, (const char *)(hBuf8->Ptr()), hBuf8->Size());
61     delete hBuf8;
62     hBuf8 = NULL;
63     SvUTF8_on(sv);
64   }
65 }
66
67 EXPORT_C HBufC16* PerlUtil::newHBufC16fromSvPV(SV* sv) {
68   dTHX;
69   return PerlUtil::newHBufC16fromPVn((const U8 *)SvPV_nolen(sv), SvLEN(sv), SvUTF8(sv));
70 }
71
72 void PerlUtil::setTDes16fromSvPV(TDes16& aDes16, SV* sv) {
73   dTHX;
74   PerlUtil::setTDes16fromPVn(aDes16, (const U8 *)SvPV_nolen(sv), SvLEN(sv), SvUTF8(sv));
75 }
76
77 EXPORT_C HBufC8* PerlUtil::newHBufC8fromPVn(const U8* s, STRLEN n) {
78   HBufC8* aBuf8 = HBufC8::New(n);
79   if (aBuf8) {
80     TPtr8 ptr8 = aBuf8->Des();
81     ptr8.Copy(s, n);
82   }
83   return aBuf8;
84 }
85
86 EXPORT_C void PerlUtil::setTDes8fromPVn(TDes8& aDes8, const U8* s, STRLEN n) {
87   // TODO: grow aDes8 if needed
88   aDes8.Copy(s, n);
89 }
90
91 EXPORT_C HBufC16* PerlUtil::newHBufC16fromPVn(const U8 *s, STRLEN n, bool utf8) {
92   HBufC16 *hBuf16 = HBufC16::New(n); // overallocate
93
94   if (hBuf16) {
95     if (utf8) {
96       TPtr16 aPtr16(hBuf16->Des());
97       TPtrC8 aPtrC8(s, n);
98       CnvUtfConverter::ConvertToUnicodeFromUtf8(aPtr16, aPtrC8);
99     } else {
100       TPtrC8 aPtrC8(s, n);
101       hBuf16->Des().Copy(aPtrC8);
102     }
103   }
104
105   return hBuf16;
106 }
107
108 EXPORT_C void PerlUtil::setTDes16fromPVn(TDes16& aDes16, const U8 *s, STRLEN n, bool utf8) {
109   // TODO: grow aDes16 if needed
110   if (utf8) {
111     TPtrC8 aPtrC8(s, n);
112     CnvUtfConverter::ConvertToUnicodeFromUtf8(aDes16, aPtrC8);
113   } else {
114     TPtrC8 aPtrC8(s, n);
115     aDes16.Copy(aPtrC8);
116   }
117 }