Skip to content
Projeler
Gruplar
Parçacıklar
Yardım
Yükleniyor...
Oturum aç / Kaydol
Gezinmeyi değiştir
C
core
Proje
Proje
Ayrıntılar
Etkinlik
Cycle Analytics
Depo (repository)
Depo (repository)
Dosyalar
Kayıtlar (commit)
Dallar (branch)
Etiketler
Katkıda bulunanlar
Grafik
Karşılaştır
Grafikler
Konular (issue)
0
Konular (issue)
0
Liste
Pano
Etiketler
Kilometre Taşları
Birleştirme (merge) Talepleri
0
Birleştirme (merge) Talepleri
0
CI / CD
CI / CD
İş akışları (pipeline)
İşler
Zamanlamalar
Grafikler
Paketler
Paketler
Wiki
Wiki
Parçacıklar
Parçacıklar
Üyeler
Üyeler
Collapse sidebar
Close sidebar
Etkinlik
Grafik
Grafikler
Yeni bir konu (issue) oluştur
İşler
Kayıtlar (commit)
Konu (issue) Panoları
Kenar çubuğunu aç
LibreOffice
core
Commits
c5b7d8f9
Kaydet (Commit)
c5b7d8f9
authored
Eki 26, 2012
tarafından
Norbert Thiebaud
Dosyalara gözat
Seçenekler
Dosyalara Gözat
İndir
Eposta Yamaları
Sade Fark
basic migration to OUString
Change-Id: I1f9403174b3779801d91ba20d846191ed9a09eed
üst
6702bc37
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
16 additions
and
15 deletions
+16
-15
sb.cxx
basic/source/classes/sb.cxx
+1
-1
runtime.hxx
basic/source/inc/runtime.hxx
+2
-2
step1.cxx
basic/source/runtime/step1.cxx
+13
-12
step2.cxx
basic/source/runtime/step2.cxx
+0
-0
No files found.
basic/source/classes/sb.cxx
Dosyayı görüntüle @
c5b7d8f9
...
...
@@ -602,7 +602,7 @@ SbxObject* SbTypeFactory::CreateObject( const rtl::OUString& rClassName )
return
pRet
;
}
SbxObject
*
createUserTypeImpl
(
const
String
&
rClassName
)
SbxObject
*
createUserTypeImpl
(
const
OU
String
&
rClassName
)
{
SbxObject
*
pRetObj
=
GetSbData
()
->
pTypeFac
->
CreateObject
(
rClassName
);
return
pRetObj
;
...
...
basic/source/inc/runtime.hxx
Dosyayı görüntüle @
c5b7d8f9
...
...
@@ -377,7 +377,7 @@ class SbiRuntime
void
StepPARAM
(
sal_uInt32
,
sal_uInt32
),
StepCREATE
(
sal_uInt32
,
sal_uInt32
);
void
StepCALL
(
sal_uInt32
,
sal_uInt32
),
StepCALLC
(
sal_uInt32
,
sal_uInt32
);
void
StepCASEIS
(
sal_uInt32
,
sal_uInt32
),
StepSTMNT
(
sal_uInt32
,
sal_uInt32
);
SbxVariable
*
StepSTATIC_Impl
(
String
&
aName
,
SbxDataType
&
t
);
SbxVariable
*
StepSTATIC_Impl
(
OU
String
&
aName
,
SbxDataType
&
t
);
void
StepOPEN
(
sal_uInt32
,
sal_uInt32
),
StepSTATIC
(
sal_uInt32
,
sal_uInt32
);
void
StepTCREATE
(
sal_uInt32
,
sal_uInt32
),
StepDCREATE
(
sal_uInt32
,
sal_uInt32
);
void
StepGLOBAL_P
(
sal_uInt32
,
sal_uInt32
),
StepFIND_G
(
sal_uInt32
,
sal_uInt32
);
...
...
@@ -413,7 +413,7 @@ public:
SbiForStack
*
FindForStackItemForCollection
(
class
BasicCollection
*
pCollection
);
SbxBase
*
FindElementExtern
(
const
String
&
rName
);
SbxBase
*
FindElementExtern
(
const
OU
String
&
rName
);
static
bool
isVBAEnabled
();
};
...
...
basic/source/runtime/step1.cxx
Dosyayı görüntüle @
c5b7d8f9
...
...
@@ -30,7 +30,7 @@
#include "sbunoobj.hxx"
#include "errobject.hxx"
bool
checkUnoObjectType
(
SbUnoObject
*
refVal
,
const
::
rtl
::
OUString
&
aClass
);
bool
checkUnoObjectType
(
SbUnoObject
*
refVal
,
const
OUString
&
aClass
);
// loading a numeric constant (+ID)
...
...
@@ -78,7 +78,7 @@ void SbiRuntime::StepARGN( sal_uInt32 nOp1 )
StarBASIC
::
FatalError
(
SbERR_INTERNAL_ERROR
);
else
{
String
aAlias
(
pImg
->
GetString
(
static_cast
<
short
>
(
nOp1
)
)
);
OU
String
aAlias
(
pImg
->
GetString
(
static_cast
<
short
>
(
nOp1
)
)
);
SbxVariableRef
pVal
=
PopVar
();
if
(
bVBAEnabled
&&
(
pVal
->
ISA
(
SbxMethod
)
||
pVal
->
ISA
(
SbUnoProperty
)
||
pVal
->
ISA
(
SbProcedureProperty
)
)
)
{
...
...
@@ -361,7 +361,7 @@ void SbiRuntime::StepERRHDL( sal_uInt32 nOp1 )
StepJUMP
(
nOp1
);
pError
=
pCode
;
pCode
=
p
;
pInst
->
aErrorMsg
=
String
();
pInst
->
aErrorMsg
=
OU
String
();
pInst
->
nErr
=
0
;
pInst
->
nErl
=
0
;
nError
=
0
;
...
...
@@ -391,7 +391,7 @@ void SbiRuntime::StepRESUME( sal_uInt32 nOp1 )
if
(
nOp1
>
1
)
StepJUMP
(
nOp1
);
pInst
->
aErrorMsg
=
String
();
pInst
->
aErrorMsg
=
OU
String
();
pInst
->
nErr
=
0
;
pInst
->
nErl
=
0
;
nError
=
0
;
...
...
@@ -420,14 +420,14 @@ void SbiRuntime::StepCLOSE( sal_uInt32 nOp1 )
void
SbiRuntime
::
StepPRCHAR
(
sal_uInt32
nOp1
)
{
rtl
::
OString
s
(
static_cast
<
sal_Char
>
(
nOp1
));
OString
s
(
static_cast
<
sal_Char
>
(
nOp1
));
pIosys
->
Write
(
s
);
Error
(
pIosys
->
GetError
()
);
}
// check whether TOS is a certain object class (+StringID)
bool
SbiRuntime
::
implIsClass
(
SbxObject
*
pObj
,
const
::
rtl
::
OUString
&
aClass
)
bool
SbiRuntime
::
implIsClass
(
SbxObject
*
pObj
,
const
OUString
&
aClass
)
{
bool
bRet
=
true
;
...
...
@@ -438,13 +438,12 @@ bool SbiRuntime::implIsClass( SbxObject* pObj, const ::rtl::OUString& aClass )
bRet
=
aClass
.
equalsIgnoreAsciiCaseAsciiL
(
RTL_CONSTASCII_STRINGPARAM
(
"object"
)
);
if
(
!
bRet
)
{
String
aObjClass
=
pObj
->
GetClassName
();
OU
String
aObjClass
=
pObj
->
GetClassName
();
SbModule
*
pClassMod
=
GetSbData
()
->
pClassFac
->
FindClass
(
aObjClass
);
SbClassData
*
pClassData
;
if
(
pClassMod
&&
(
pClassData
=
pClassMod
->
pClassData
)
!=
NULL
)
{
SbxVariable
*
pClassVar
=
pClassData
->
mxIfaces
->
Find
(
aClass
,
SbxCLASS_DONTCARE
);
SbxVariable
*
pClassVar
=
pClassData
->
mxIfaces
->
Find
(
aClass
,
SbxCLASS_DONTCARE
);
bRet
=
(
pClassVar
!=
NULL
);
}
}
...
...
@@ -453,7 +452,7 @@ bool SbiRuntime::implIsClass( SbxObject* pObj, const ::rtl::OUString& aClass )
}
bool
SbiRuntime
::
checkClass_Impl
(
const
SbxVariableRef
&
refVal
,
const
::
rtl
::
OUString
&
aClass
,
bool
bRaiseErrors
,
bool
bDefault
)
const
OUString
&
aClass
,
bool
bRaiseErrors
,
bool
bDefault
)
{
bool
bOk
=
bDefault
;
...
...
@@ -519,11 +518,13 @@ void SbiRuntime::StepSETCLASS_impl( sal_uInt32 nOp1, bool bHandleDflt )
{
SbxVariableRef
refVal
=
PopVar
();
SbxVariableRef
refVar
=
PopVar
();
String
aClass
(
pImg
->
GetString
(
static_cast
<
short
>
(
nOp1
)
)
);
OU
String
aClass
(
pImg
->
GetString
(
static_cast
<
short
>
(
nOp1
)
)
);
bool
bOk
=
checkClass_Impl
(
refVal
,
aClass
,
true
);
if
(
bOk
)
{
StepSET_Impl
(
refVal
,
refVar
,
bHandleDflt
);
// don't do handle dflt prop for a "proper" set
}
}
void
SbiRuntime
::
StepVBASETCLASS
(
sal_uInt32
nOp1
)
...
...
@@ -539,7 +540,7 @@ void SbiRuntime::StepSETCLASS( sal_uInt32 nOp1 )
void
SbiRuntime
::
StepTESTCLASS
(
sal_uInt32
nOp1
)
{
SbxVariableRef
xObjVal
=
PopVar
();
String
aClass
(
pImg
->
GetString
(
static_cast
<
short
>
(
nOp1
)
)
);
OU
String
aClass
(
pImg
->
GetString
(
static_cast
<
short
>
(
nOp1
)
)
);
bool
bDefault
=
!
bVBAEnabled
;
bool
bOk
=
checkClass_Impl
(
xObjVal
,
aClass
,
false
,
bDefault
);
...
...
basic/source/runtime/step2.cxx
Dosyayı görüntüle @
c5b7d8f9
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment