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
a884fe58
Kaydet (Commit)
a884fe58
authored
Eki 26, 2012
tarafından
Norbert Thiebaud
Dosyalara gözat
Seçenekler
Dosyalara Gözat
İndir
Eposta Yamaları
Sade Fark
basic: OUStringification of ddectrl
Change-Id: I2af40d7c8117aff8ce62a8ea0eec579664f8bdeb
üst
c5b7d8f9
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
81 additions
and
44 deletions
+81
-44
basrdll.cxx
basic/source/runtime/basrdll.cxx
+4
-0
comenumwrapper.cxx
basic/source/runtime/comenumwrapper.cxx
+2
-4
ddectrl.cxx
basic/source/runtime/ddectrl.cxx
+38
-17
ddectrl.hxx
basic/source/runtime/ddectrl.hxx
+8
-9
methods.cxx
basic/source/runtime/methods.cxx
+29
-14
No files found.
basic/source/runtime/basrdll.cxx
Dosyayı görüntüle @
a884fe58
...
@@ -52,7 +52,9 @@ void BasicDLL::EnableBreak( bool bEnable )
...
@@ -52,7 +52,9 @@ void BasicDLL::EnableBreak( bool bEnable )
BasicDLL
*
pThis
=
BASIC_DLL
();
BasicDLL
*
pThis
=
BASIC_DLL
();
DBG_ASSERT
(
pThis
,
"BasicDLL::EnableBreak: Noch keine Instanz!"
);
DBG_ASSERT
(
pThis
,
"BasicDLL::EnableBreak: Noch keine Instanz!"
);
if
(
pThis
)
if
(
pThis
)
{
pThis
->
bBreakEnabled
=
bEnable
;
pThis
->
bBreakEnabled
=
bEnable
;
}
}
}
void
BasicDLL
::
SetDebugMode
(
bool
bDebugMode
)
void
BasicDLL
::
SetDebugMode
(
bool
bDebugMode
)
...
@@ -60,7 +62,9 @@ void BasicDLL::SetDebugMode( bool bDebugMode )
...
@@ -60,7 +62,9 @@ void BasicDLL::SetDebugMode( bool bDebugMode )
BasicDLL
*
pThis
=
BASIC_DLL
();
BasicDLL
*
pThis
=
BASIC_DLL
();
DBG_ASSERT
(
pThis
,
"BasicDLL::EnableBreak: Noch keine Instanz!"
);
DBG_ASSERT
(
pThis
,
"BasicDLL::EnableBreak: Noch keine Instanz!"
);
if
(
pThis
)
if
(
pThis
)
{
pThis
->
bDebugMode
=
bDebugMode
;
pThis
->
bDebugMode
=
bDebugMode
;
}
}
}
...
...
basic/source/runtime/comenumwrapper.cxx
Dosyayı görüntüle @
a884fe58
...
@@ -31,9 +31,7 @@ using namespace ::com::sun::star;
...
@@ -31,9 +31,7 @@ using namespace ::com::sun::star;
if
(
m_xInvocation
.
is
()
)
if
(
m_xInvocation
.
is
()
)
{
{
sal_Int32
nLength
=
0
;
sal_Int32
nLength
=
0
;
bResult
=
bResult
=
(
(
m_xInvocation
->
getValue
(
OUString
(
"length"
)
)
>>=
nLength
)
&&
nLength
>
m_nCurInd
);
(
(
m_xInvocation
->
getValue
(
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"length"
)
)
)
>>=
nLength
)
&&
nLength
>
m_nCurInd
);
}
}
}
}
catch
(
const
uno
::
Exception
&
)
catch
(
const
uno
::
Exception
&
)
...
@@ -57,7 +55,7 @@ uno::Any SAL_CALL ComEnumerationWrapper::nextElement()
...
@@ -57,7 +55,7 @@ uno::Any SAL_CALL ComEnumerationWrapper::nextElement()
aArgs
[
0
]
<<=
m_nCurInd
++
;
aArgs
[
0
]
<<=
m_nCurInd
++
;
return
m_xInvocation
->
invoke
(
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"item"
)
),
return
m_xInvocation
->
invoke
(
OUString
(
"item"
),
aArgs
,
aArgs
,
aNamedParamIndex
,
aNamedParamIndex
,
aNamedParam
);
aNamedParam
);
...
...
basic/source/runtime/ddectrl.cxx
Dosyayı görüntüle @
a884fe58
...
@@ -52,13 +52,19 @@ static const SbError nDdeErrMap[] =
...
@@ -52,13 +52,19 @@ static const SbError nDdeErrMap[] =
SbError
SbiDdeControl
::
GetLastErr
(
DdeConnection
*
pConv
)
SbError
SbiDdeControl
::
GetLastErr
(
DdeConnection
*
pConv
)
{
{
if
(
!
pConv
)
if
(
!
pConv
)
{
return
0
;
return
0
;
}
long
nErr
=
pConv
->
GetError
();
long
nErr
=
pConv
->
GetError
();
if
(
!
nErr
)
if
(
!
nErr
)
{
return
0
;
return
0
;
}
if
(
nErr
<
DDE_FIRSTERR
||
nErr
>
DDE_LASTERR
)
if
(
nErr
<
DDE_FIRSTERR
||
nErr
>
DDE_LASTERR
)
{
return
SbERR_DDE_ERROR
;
return
SbERR_DDE_ERROR
;
return
nDdeErrMap
[
2
*
(
nErr
-
DDE_FIRSTERR
)
+
1
];
}
return
nDdeErrMap
[
2
*
(
nErr
-
DDE_FIRSTERR
)
+
1
];
}
}
IMPL_LINK_INLINE
(
SbiDdeControl
,
Data
,
DdeData
*
,
pData
,
IMPL_LINK_INLINE
(
SbiDdeControl
,
Data
,
DdeData
*
,
pData
,
...
@@ -77,23 +83,25 @@ SbiDdeControl::~SbiDdeControl()
...
@@ -77,23 +83,25 @@ SbiDdeControl::~SbiDdeControl()
TerminateAll
();
TerminateAll
();
}
}
s
al_Int16
SbiDdeControl
::
GetFreeChannel
()
s
ize_t
SbiDdeControl
::
GetFreeChannel
()
{
{
s
al_Int16
nChannel
=
0
;
s
ize_t
nChannel
=
0
;
s
al_Int16
nListSize
=
static_cast
<
sal_Int16
>
(
aConvList
.
size
()
);
s
ize_t
nListSize
=
aConvList
.
size
(
);
for
(;
nChannel
<
nListSize
;
++
nChannel
)
for
(;
nChannel
<
nListSize
;
++
nChannel
)
{
{
if
(
aConvList
[
nChannel
]
==
DDE_FREECHANNEL
)
if
(
aConvList
[
nChannel
]
==
DDE_FREECHANNEL
)
{
return
nChannel
+
1
;
return
nChannel
+
1
;
}
}
}
aConvList
.
push_back
(
DDE_FREECHANNEL
);
aConvList
.
push_back
(
DDE_FREECHANNEL
);
return
nChannel
+
1
;
return
nChannel
+
1
;
}
}
SbError
SbiDdeControl
::
Initiate
(
const
String
&
rService
,
const
String
&
rTopic
,
SbError
SbiDdeControl
::
Initiate
(
const
OUString
&
rService
,
const
OU
String
&
rTopic
,
sal_Int16
&
rnHandle
)
size_t
&
rnHandle
)
{
{
SbError
nErr
;
SbError
nErr
;
DdeConnection
*
pConv
=
new
DdeConnection
(
rService
,
rTopic
);
DdeConnection
*
pConv
=
new
DdeConnection
(
rService
,
rTopic
);
...
@@ -105,23 +113,25 @@ SbError SbiDdeControl::Initiate( const String& rService, const String& rTopic,
...
@@ -105,23 +113,25 @@ SbError SbiDdeControl::Initiate( const String& rService, const String& rTopic,
}
}
else
else
{
{
s
al_Int16
nChannel
=
GetFreeChannel
();
s
ize_t
nChannel
=
GetFreeChannel
();
aConvList
[
nChannel
-
1
]
=
pConv
;
aConvList
[
nChannel
-
1
]
=
pConv
;
rnHandle
=
nChannel
;
rnHandle
=
nChannel
;
}
}
return
0
;
return
0
;
}
}
SbError
SbiDdeControl
::
Terminate
(
s
al_uInt16
nChannel
)
SbError
SbiDdeControl
::
Terminate
(
s
ize_t
nChannel
)
{
{
if
(
!
nChannel
||
nChannel
>
aConvList
.
size
())
if
(
!
nChannel
||
nChannel
>
aConvList
.
size
())
{
return
SbERR_DDE_NO_CHANNEL
;
return
SbERR_DDE_NO_CHANNEL
;
}
DdeConnection
*
pConv
=
aConvList
[
nChannel
-
1
];
DdeConnection
*
pConv
=
aConvList
[
nChannel
-
1
];
if
(
pConv
==
DDE_FREECHANNEL
)
if
(
pConv
==
DDE_FREECHANNEL
)
{
return
SbERR_DDE_NO_CHANNEL
;
return
SbERR_DDE_NO_CHANNEL
;
}
delete
pConv
;
delete
pConv
;
pConv
=
DDE_FREECHANNEL
;
pConv
=
DDE_FREECHANNEL
;
...
@@ -131,12 +141,14 @@ SbError SbiDdeControl::Terminate( sal_uInt16 nChannel )
...
@@ -131,12 +141,14 @@ SbError SbiDdeControl::Terminate( sal_uInt16 nChannel )
SbError
SbiDdeControl
::
TerminateAll
()
SbError
SbiDdeControl
::
TerminateAll
()
{
{
DdeConnection
*
conv
;
DdeConnection
*
conv
;
for
(
s
al_uInt16
nChannel
=
0
;
nChannel
<
aConvList
.
size
();
++
nChannel
)
for
(
s
ize_t
nChannel
=
0
;
nChannel
<
aConvList
.
size
();
++
nChannel
)
{
{
conv
=
aConvList
[
nChannel
];
conv
=
aConvList
[
nChannel
];
if
(
conv
!=
DDE_FREECHANNEL
)
if
(
conv
!=
DDE_FREECHANNEL
)
{
delete
conv
;
delete
conv
;
}
}
}
aConvList
.
clear
();
aConvList
.
clear
();
...
@@ -144,15 +156,19 @@ SbError SbiDdeControl::TerminateAll()
...
@@ -144,15 +156,19 @@ SbError SbiDdeControl::TerminateAll()
return
0
;
return
0
;
}
}
SbError
SbiDdeControl
::
Request
(
s
al_uInt16
nChannel
,
const
String
&
rItem
,
String
&
rResult
)
SbError
SbiDdeControl
::
Request
(
s
ize_t
nChannel
,
const
OUString
&
rItem
,
OU
String
&
rResult
)
{
{
if
(
!
nChannel
||
nChannel
>
aConvList
.
size
())
if
(
!
nChannel
||
nChannel
>
aConvList
.
size
())
{
return
SbERR_DDE_NO_CHANNEL
;
return
SbERR_DDE_NO_CHANNEL
;
}
DdeConnection
*
pConv
=
aConvList
[
nChannel
-
1
];
DdeConnection
*
pConv
=
aConvList
[
nChannel
-
1
];
if
(
pConv
==
DDE_FREECHANNEL
)
if
(
pConv
==
DDE_FREECHANNEL
)
{
return
SbERR_DDE_NO_CHANNEL
;
return
SbERR_DDE_NO_CHANNEL
;
}
DdeRequest
aRequest
(
*
pConv
,
rItem
,
30000
);
DdeRequest
aRequest
(
*
pConv
,
rItem
,
30000
);
aRequest
.
SetDataHdl
(
LINK
(
this
,
SbiDdeControl
,
Data
)
);
aRequest
.
SetDataHdl
(
LINK
(
this
,
SbiDdeControl
,
Data
)
);
...
@@ -161,31 +177,36 @@ SbError SbiDdeControl::Request( sal_uInt16 nChannel, const String& rItem, String
...
@@ -161,31 +177,36 @@ SbError SbiDdeControl::Request( sal_uInt16 nChannel, const String& rItem, String
return
GetLastErr
(
pConv
);
return
GetLastErr
(
pConv
);
}
}
SbError
SbiDdeControl
::
Execute
(
s
al_uInt16
nChannel
,
const
String
&
rCommand
)
SbError
SbiDdeControl
::
Execute
(
s
ize_t
nChannel
,
const
OU
String
&
rCommand
)
{
{
if
(
!
nChannel
||
nChannel
>
aConvList
.
size
())
if
(
!
nChannel
||
nChannel
>
aConvList
.
size
())
{
return
SbERR_DDE_NO_CHANNEL
;
return
SbERR_DDE_NO_CHANNEL
;
}
DdeConnection
*
pConv
=
aConvList
[
nChannel
-
1
];
DdeConnection
*
pConv
=
aConvList
[
nChannel
-
1
];
if
(
pConv
==
DDE_FREECHANNEL
)
if
(
pConv
==
DDE_FREECHANNEL
)
{
return
SbERR_DDE_NO_CHANNEL
;
return
SbERR_DDE_NO_CHANNEL
;
}
DdeExecute
aRequest
(
*
pConv
,
rCommand
,
30000
);
DdeExecute
aRequest
(
*
pConv
,
rCommand
,
30000
);
aRequest
.
Execute
();
aRequest
.
Execute
();
return
GetLastErr
(
pConv
);
return
GetLastErr
(
pConv
);
}
}
SbError
SbiDdeControl
::
Poke
(
s
al_uInt16
nChannel
,
const
String
&
rItem
,
const
String
&
rData
)
SbError
SbiDdeControl
::
Poke
(
s
ize_t
nChannel
,
const
OUString
&
rItem
,
const
OU
String
&
rData
)
{
{
if
(
!
nChannel
||
nChannel
>
aConvList
.
size
())
if
(
!
nChannel
||
nChannel
>
aConvList
.
size
())
{
return
SbERR_DDE_NO_CHANNEL
;
return
SbERR_DDE_NO_CHANNEL
;
}
DdeConnection
*
pConv
=
aConvList
[
nChannel
-
1
];
DdeConnection
*
pConv
=
aConvList
[
nChannel
-
1
];
if
(
pConv
==
DDE_FREECHANNEL
)
if
(
pConv
==
DDE_FREECHANNEL
)
{
return
SbERR_DDE_NO_CHANNEL
;
return
SbERR_DDE_NO_CHANNEL
;
}
DdePoke
aRequest
(
*
pConv
,
rItem
,
DdeData
(
rData
),
30000
);
DdePoke
aRequest
(
*
pConv
,
rItem
,
DdeData
(
rData
),
30000
);
aRequest
.
Execute
();
aRequest
.
Execute
();
return
GetLastErr
(
pConv
);
return
GetLastErr
(
pConv
);
...
...
basic/source/runtime/ddectrl.hxx
Dosyayı görüntüle @
a884fe58
...
@@ -22,7 +22,6 @@
...
@@ -22,7 +22,6 @@
#include <tools/link.hxx>
#include <tools/link.hxx>
#include <basic/sberrors.hxx>
#include <basic/sberrors.hxx>
#include <tools/string.hxx>
class
DdeConnection
;
class
DdeConnection
;
class
DdeData
;
class
DdeData
;
...
@@ -32,22 +31,22 @@ class SbiDdeControl
...
@@ -32,22 +31,22 @@ class SbiDdeControl
private
:
private
:
DECL_LINK
(
Data
,
DdeData
*
);
DECL_LINK
(
Data
,
DdeData
*
);
SbError
GetLastErr
(
DdeConnection
*
);
SbError
GetLastErr
(
DdeConnection
*
);
s
al_Int16
GetFreeChannel
();
s
ize_t
GetFreeChannel
();
std
::
vector
<
DdeConnection
*>
aConvList
;
std
::
vector
<
DdeConnection
*>
aConvList
;
String
aData
;
OU
String
aData
;
public
:
public
:
SbiDdeControl
();
SbiDdeControl
();
~
SbiDdeControl
();
~
SbiDdeControl
();
SbError
Initiate
(
const
String
&
rService
,
const
String
&
rTopic
,
SbError
Initiate
(
const
OUString
&
rService
,
const
OU
String
&
rTopic
,
s
al_Int16
&
rnHandle
);
s
ize_t
&
rnHandle
);
SbError
Terminate
(
s
al_uInt16
nChannel
);
SbError
Terminate
(
s
ize_t
nChannel
);
SbError
TerminateAll
();
SbError
TerminateAll
();
SbError
Request
(
s
al_uInt16
nChannel
,
const
String
&
rItem
,
String
&
rResult
);
SbError
Request
(
s
ize_t
nChannel
,
const
OUString
&
rItem
,
OU
String
&
rResult
);
SbError
Execute
(
s
al_uInt16
nChannel
,
const
String
&
rCommand
);
SbError
Execute
(
s
ize_t
nChannel
,
const
OU
String
&
rCommand
);
SbError
Poke
(
s
al_uInt16
nChannel
,
const
String
&
rItem
,
const
String
&
rData
);
SbError
Poke
(
s
ize_t
nChannel
,
const
OUString
&
rItem
,
const
OU
String
&
rData
);
};
};
#endif
#endif
...
...
basic/source/runtime/methods.cxx
Dosyayı görüntüle @
a884fe58
...
@@ -3427,16 +3427,20 @@ RTLFUNC(DDEInitiate)
...
@@ -3427,16 +3427,20 @@ RTLFUNC(DDEInitiate)
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
return
;
return
;
}
}
const
String
&
rApp
=
rPar
.
Get
(
1
)
->
GetString
();
const
OU
String
&
rApp
=
rPar
.
Get
(
1
)
->
GetString
();
const
String
&
rTopic
=
rPar
.
Get
(
2
)
->
GetString
();
const
OU
String
&
rTopic
=
rPar
.
Get
(
2
)
->
GetString
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
s
al_Int16
nChannel
;
s
ize_t
nChannel
;
SbError
nDdeErr
=
pDDE
->
Initiate
(
rApp
,
rTopic
,
nChannel
);
SbError
nDdeErr
=
pDDE
->
Initiate
(
rApp
,
rTopic
,
nChannel
);
if
(
nDdeErr
)
if
(
nDdeErr
)
{
StarBASIC
::
Error
(
nDdeErr
);
StarBASIC
::
Error
(
nDdeErr
);
}
else
else
rPar
.
Get
(
0
)
->
PutInteger
(
nChannel
);
{
rPar
.
Get
(
0
)
->
PutInteger
(
(
int
)
nChannel
);
}
}
}
RTLFUNC
(
DDETerminate
)
RTLFUNC
(
DDETerminate
)
...
@@ -3458,11 +3462,13 @@ RTLFUNC(DDETerminate)
...
@@ -3458,11 +3462,13 @@ RTLFUNC(DDETerminate)
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
return
;
return
;
}
}
s
al_Int16
nChannel
=
rPar
.
Get
(
1
)
->
GetInteger
();
s
ize_t
nChannel
=
rPar
.
Get
(
1
)
->
GetInteger
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbError
nDdeErr
=
pDDE
->
Terminate
(
nChannel
);
SbError
nDdeErr
=
pDDE
->
Terminate
(
nChannel
);
if
(
nDdeErr
)
if
(
nDdeErr
)
{
StarBASIC
::
Error
(
nDdeErr
);
StarBASIC
::
Error
(
nDdeErr
);
}
}
}
RTLFUNC
(
DDETerminateAll
)
RTLFUNC
(
DDETerminateAll
)
...
@@ -3488,8 +3494,9 @@ RTLFUNC(DDETerminateAll)
...
@@ -3488,8 +3494,9 @@ RTLFUNC(DDETerminateAll)
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbError
nDdeErr
=
pDDE
->
TerminateAll
();
SbError
nDdeErr
=
pDDE
->
TerminateAll
();
if
(
nDdeErr
)
if
(
nDdeErr
)
{
StarBASIC
::
Error
(
nDdeErr
);
StarBASIC
::
Error
(
nDdeErr
);
}
}
}
RTLFUNC
(
DDERequest
)
RTLFUNC
(
DDERequest
)
...
@@ -3510,15 +3517,19 @@ RTLFUNC(DDERequest)
...
@@ -3510,15 +3517,19 @@ RTLFUNC(DDERequest)
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
return
;
return
;
}
}
s
al_Int16
nChannel
=
rPar
.
Get
(
1
)
->
GetInteger
();
s
ize_t
nChannel
=
rPar
.
Get
(
1
)
->
GetInteger
();
const
String
&
rItem
=
rPar
.
Get
(
2
)
->
GetString
();
const
OU
String
&
rItem
=
rPar
.
Get
(
2
)
->
GetString
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
String
aResult
;
OU
String
aResult
;
SbError
nDdeErr
=
pDDE
->
Request
(
nChannel
,
rItem
,
aResult
);
SbError
nDdeErr
=
pDDE
->
Request
(
nChannel
,
rItem
,
aResult
);
if
(
nDdeErr
)
if
(
nDdeErr
)
{
StarBASIC
::
Error
(
nDdeErr
);
StarBASIC
::
Error
(
nDdeErr
);
}
else
else
{
rPar
.
Get
(
0
)
->
PutString
(
aResult
);
rPar
.
Get
(
0
)
->
PutString
(
aResult
);
}
}
}
RTLFUNC
(
DDEExecute
)
RTLFUNC
(
DDEExecute
)
...
@@ -3540,12 +3551,14 @@ RTLFUNC(DDEExecute)
...
@@ -3540,12 +3551,14 @@ RTLFUNC(DDEExecute)
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
return
;
return
;
}
}
s
al_Int16
nChannel
=
rPar
.
Get
(
1
)
->
GetInteger
();
s
ize_t
nChannel
=
rPar
.
Get
(
1
)
->
GetInteger
();
const
String
&
rCommand
=
rPar
.
Get
(
2
)
->
GetString
();
const
OU
String
&
rCommand
=
rPar
.
Get
(
2
)
->
GetString
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbError
nDdeErr
=
pDDE
->
Execute
(
nChannel
,
rCommand
);
SbError
nDdeErr
=
pDDE
->
Execute
(
nChannel
,
rCommand
);
if
(
nDdeErr
)
if
(
nDdeErr
)
{
StarBASIC
::
Error
(
nDdeErr
);
StarBASIC
::
Error
(
nDdeErr
);
}
}
}
RTLFUNC
(
DDEPoke
)
RTLFUNC
(
DDEPoke
)
...
@@ -3567,13 +3580,15 @@ RTLFUNC(DDEPoke)
...
@@ -3567,13 +3580,15 @@ RTLFUNC(DDEPoke)
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
StarBASIC
::
Error
(
SbERR_BAD_ARGUMENT
);
return
;
return
;
}
}
s
al_Int16
nChannel
=
rPar
.
Get
(
1
)
->
GetInteger
();
s
ize_t
nChannel
=
rPar
.
Get
(
1
)
->
GetInteger
();
const
String
&
rItem
=
rPar
.
Get
(
2
)
->
GetString
();
const
OU
String
&
rItem
=
rPar
.
Get
(
2
)
->
GetString
();
const
String
&
rData
=
rPar
.
Get
(
3
)
->
GetString
();
const
OU
String
&
rData
=
rPar
.
Get
(
3
)
->
GetString
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbiDdeControl
*
pDDE
=
GetSbData
()
->
pInst
->
GetDdeControl
();
SbError
nDdeErr
=
pDDE
->
Poke
(
nChannel
,
rItem
,
rData
);
SbError
nDdeErr
=
pDDE
->
Poke
(
nChannel
,
rItem
,
rData
);
if
(
nDdeErr
)
if
(
nDdeErr
)
{
StarBASIC
::
Error
(
nDdeErr
);
StarBASIC
::
Error
(
nDdeErr
);
}
}
}
...
...
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