diff options
| author | Stephan Bergmann <sbergman@redhat.com> | 2017-07-03 21:10:28 +0200 |
|---|---|---|
| committer | Stephan Bergmann <sbergman@redhat.com> | 2017-07-04 08:15:07 +0200 |
| commit | 56dcc7b65f0d9d0dd02486d0e9e6be366248c3f5 (patch) | |
| tree | 0dd07b7863eba69315e0ff7c3b2084408e1df053 | |
| parent | EditEngine: Added test to check multi para start copy/paste (diff) | |
| download | core-56dcc7b65f0d9d0dd02486d0e9e6be366248c3f5.tar.gz core-56dcc7b65f0d9d0dd02486d0e9e6be366248c3f5.zip | |
loplugin:casttovoid in RTLFUNC
Change-Id: I810278640936e9b3c73f56a37e8c4786fd2790e3
| -rw-r--r-- | basic/source/classes/sbunoobj.cxx | 4 | ||||
| -rw-r--r-- | basic/source/inc/rtlproto.hxx | 647 | ||||
| -rw-r--r-- | basic/source/runtime/inputbox.cxx | 5 | ||||
| -rw-r--r-- | basic/source/runtime/methods.cxx | 549 | ||||
| -rw-r--r-- | basic/source/runtime/methods1.cxx | 420 | ||||
| -rw-r--r-- | basic/source/runtime/props.cxx | 481 |
6 files changed, 621 insertions, 1485 deletions
diff --git a/basic/source/classes/sbunoobj.cxx b/basic/source/classes/sbunoobj.cxx index 0a74cf022eea..ee745c711848 100644 --- a/basic/source/classes/sbunoobj.cxx +++ b/basic/source/classes/sbunoobj.cxx @@ -4017,10 +4017,8 @@ sal_Bool SAL_CALL InvocationToAllListenerMapper::hasProperty(const OUString& Nam // create Uno-Service // 1. Parameter == Prefix-Name of the macro // 2. Parameter == fully qualified name of the listener -RTLFUNC(CreateUnoListener) +void SbRtl_CreateUnoListener(StarBASIC * pBasic, SbxArray & rPar, bool) { - (void)bWrite; - // We need 2 parameters if ( rPar.Count() != 3 ) { diff --git a/basic/source/inc/rtlproto.hxx b/basic/source/inc/rtlproto.hxx index aceff7393dfe..69119342a716 100644 --- a/basic/source/inc/rtlproto.hxx +++ b/basic/source/inc/rtlproto.hxx @@ -22,340 +22,339 @@ #include <basic/sbstar.hxx> -#define RTLFUNC( name ) void SbRtl_##name( StarBASIC* pBasic, SbxArray& rPar, bool bWrite ) #define RTLNAME( name ) &SbRtl_##name typedef void( *RtlCall ) ( StarBASIC* p, SbxArray& rArgs, bool bWrite ); // Properties -extern RTLFUNC(Date); -extern RTLFUNC(Err); -extern RTLFUNC(Erl); -extern RTLFUNC(False); -extern RTLFUNC(Empty); -extern RTLFUNC(Nothing); -extern RTLFUNC(Null); -extern RTLFUNC(True); - -extern RTLFUNC(ATTR_NORMAL); -extern RTLFUNC(ATTR_READONLY); -extern RTLFUNC(ATTR_HIDDEN); -extern RTLFUNC(ATTR_SYSTEM); -extern RTLFUNC(ATTR_VOLUME); -extern RTLFUNC(ATTR_DIRECTORY); -extern RTLFUNC(ATTR_ARCHIVE); - -extern RTLFUNC(V_EMPTY); -extern RTLFUNC(V_NULL); -extern RTLFUNC(V_INTEGER); -extern RTLFUNC(V_LONG); -extern RTLFUNC(V_SINGLE); -extern RTLFUNC(V_DOUBLE); -extern RTLFUNC(V_CURRENCY); -extern RTLFUNC(V_DATE); -extern RTLFUNC(V_STRING); - -extern RTLFUNC(MB_OK); -extern RTLFUNC(MB_OKCANCEL); -extern RTLFUNC(MB_ABORTRETRYIGNORE); -extern RTLFUNC(MB_YESNOCANCEL); -extern RTLFUNC(MB_YESNO); -extern RTLFUNC(MB_RETRYCANCEL); -extern RTLFUNC(MB_ICONSTOP); -extern RTLFUNC(MB_ICONQUESTION); -extern RTLFUNC(MB_ICONEXCLAMATION); -extern RTLFUNC(MB_ICONINFORMATION); -extern RTLFUNC(MB_DEFBUTTON1); -extern RTLFUNC(MB_DEFBUTTON2); -extern RTLFUNC(MB_DEFBUTTON3); -extern RTLFUNC(MB_APPLMODAL); -extern RTLFUNC(MB_SYSTEMMODAL); - -extern RTLFUNC(IDOK); -extern RTLFUNC(IDCANCEL); -extern RTLFUNC(IDABORT); -extern RTLFUNC(IDRETRY); -extern RTLFUNC(IDYES); -extern RTLFUNC(IDNO); - -extern RTLFUNC(CF_TEXT); -extern RTLFUNC(CF_BITMAP); -extern RTLFUNC(CF_METAFILEPICT); - -extern RTLFUNC(PI); - -extern RTLFUNC(SET_OFF); -extern RTLFUNC(SET_ON); -extern RTLFUNC(TOGGLE); - -extern RTLFUNC(TYP_AUTHORFLD); -extern RTLFUNC(TYP_CHAPTERFLD); -extern RTLFUNC(TYP_CONDTXTFLD); -extern RTLFUNC(TYP_DATEFLD); -extern RTLFUNC(TYP_DBFLD); -extern RTLFUNC(TYP_DBNAMEFLD); -extern RTLFUNC(TYP_DBNEXTSETFLD); -extern RTLFUNC(TYP_DBNUMSETFLD); -extern RTLFUNC(TYP_DBSETNUMBERFLD); -extern RTLFUNC(TYP_DDEFLD); -extern RTLFUNC(TYP_DOCINFOFLD); -extern RTLFUNC(TYP_DOCSTATFLD); -extern RTLFUNC(TYP_EXTUSERFLD); -extern RTLFUNC(TYP_FILENAMEFLD); -extern RTLFUNC(TYP_FIXDATEFLD); -extern RTLFUNC(TYP_FIXTIMEFLD); -extern RTLFUNC(TYP_FORMELFLD); -extern RTLFUNC(TYP_GETFLD); -extern RTLFUNC(TYP_GETREFFLD); -extern RTLFUNC(TYP_HIDDENPARAFLD); -extern RTLFUNC(TYP_HIDDENTXTFLD); -extern RTLFUNC(TYP_INPUTFLD); -extern RTLFUNC(TYP_MACROFLD); -extern RTLFUNC(TYP_NEXTPAGEFLD); -extern RTLFUNC(TYP_PAGENUMBERFLD); -extern RTLFUNC(TYP_POSTITFLD); -extern RTLFUNC(TYP_PREVPAGEFLD); -extern RTLFUNC(TYP_SEQFLD); -extern RTLFUNC(TYP_SETFLD); -extern RTLFUNC(TYP_SETINPFLD); -extern RTLFUNC(TYP_SETREFFLD); -extern RTLFUNC(TYP_TEMPLNAMEFLD); -extern RTLFUNC(TYP_TIMEFLD); -extern RTLFUNC(TYP_USERFLD); -extern RTLFUNC(TYP_USRINPFLD); -extern RTLFUNC(TYP_SETREFPAGEFLD); -extern RTLFUNC(TYP_GETREFPAGEFLD); -extern RTLFUNC(TYP_INTERNETFLD); -extern RTLFUNC(TYP_JUMPEDITFLD); - -extern RTLFUNC(FRAMEANCHORPAGE); -extern RTLFUNC(FRAMEANCHORPARA); -extern RTLFUNC(FRAMEANCHORCHAR); - -extern RTLFUNC(CLEAR_ALLTABS); -extern RTLFUNC(CLEAR_TAB); -extern RTLFUNC(SET_TAB); +extern void SbRtl_Date(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Err(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Erl(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_False(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Empty(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Nothing(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Null(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_True(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_ATTR_NORMAL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ATTR_READONLY(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ATTR_HIDDEN(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ATTR_SYSTEM(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ATTR_VOLUME(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ATTR_DIRECTORY(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ATTR_ARCHIVE(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_V_EMPTY(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_V_NULL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_V_INTEGER(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_V_LONG(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_V_SINGLE(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_V_DOUBLE(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_V_CURRENCY(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_V_DATE(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_V_STRING(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_MB_OK(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_OKCANCEL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_ABORTRETRYIGNORE(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_YESNOCANCEL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_YESNO(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_RETRYCANCEL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_ICONSTOP(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_ICONQUESTION(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_ICONEXCLAMATION(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_ICONINFORMATION(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_DEFBUTTON1(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_DEFBUTTON2(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_DEFBUTTON3(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_APPLMODAL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MB_SYSTEMMODAL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_IDOK(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IDCANCEL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IDABORT(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IDRETRY(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IDYES(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IDNO(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_CF_TEXT(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CF_BITMAP(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CF_METAFILEPICT(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_PI(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_SET_OFF(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_SET_ON(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TOGGLE(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_TYP_AUTHORFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_CHAPTERFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_CONDTXTFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DATEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DBFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DBNAMEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DBNEXTSETFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DBNUMSETFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DBSETNUMBERFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DDEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DOCINFOFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_DOCSTATFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_EXTUSERFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_FILENAMEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_FIXDATEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_FIXTIMEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_FORMELFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_GETFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_GETREFFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_HIDDENPARAFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_HIDDENTXTFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_INPUTFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_MACROFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_NEXTPAGEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_PAGENUMBERFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_POSTITFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_PREVPAGEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_SEQFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_SETFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_SETINPFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_SETREFFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_TEMPLNAMEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_TIMEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_USERFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_USRINPFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_SETREFPAGEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_GETREFPAGEFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_INTERNETFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TYP_JUMPEDITFLD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_FRAMEANCHORPAGE(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FRAMEANCHORPARA(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FRAMEANCHORCHAR(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_CLEAR_ALLTABS(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CLEAR_TAB(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_SET_TAB(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // Methoden -extern RTLFUNC(CreateObject); -extern RTLFUNC(Error); -extern RTLFUNC(Sin); -extern RTLFUNC(Abs); -extern RTLFUNC(Asc); -extern RTLFUNC(Atn); -extern RTLFUNC(Chr); -extern RTLFUNC(ChrW); -extern RTLFUNC(Cos); -extern RTLFUNC(CurDir); -extern RTLFUNC(ChDir); // JSM -extern RTLFUNC(ChDrive); // JSM -extern RTLFUNC(FileCopy); // JSM -extern RTLFUNC(Kill); // JSM -extern RTLFUNC(MkDir); // JSM -extern RTLFUNC(RmDir); // JSM -extern RTLFUNC(SendKeys); // JSM -extern RTLFUNC(DDB); -extern RTLFUNC(DimArray); -extern RTLFUNC(Dir); -extern RTLFUNC(DoEvents); -extern RTLFUNC(Exp); -extern RTLFUNC(FileLen); -extern RTLFUNC(Fix); -extern RTLFUNC(FV); -extern RTLFUNC(Hex); -extern RTLFUNC(Input); -extern RTLFUNC(InStr); -extern RTLFUNC(InStrRev); -extern RTLFUNC(Int); -extern RTLFUNC(IPmt); -extern RTLFUNC(IRR); -extern RTLFUNC(Join); -extern RTLFUNC(LCase); -extern RTLFUNC(Left); -extern RTLFUNC(Log); -extern RTLFUNC(LTrim); -extern RTLFUNC(Mid); -extern RTLFUNC(MIRR); -extern RTLFUNC(NPer); -extern RTLFUNC(NPV); -extern RTLFUNC(Oct); -extern RTLFUNC(Pmt); -extern RTLFUNC(PPmt); -extern RTLFUNC(PV); -extern RTLFUNC(Rate); -extern RTLFUNC(Replace); -extern RTLFUNC(Right); -extern RTLFUNC(RTrim); -extern RTLFUNC(RTL); -extern RTLFUNC(Sgn); -extern RTLFUNC(SLN); -extern RTLFUNC(Space); -extern RTLFUNC(Split); -extern RTLFUNC(Sqr); -extern RTLFUNC(Str); -extern RTLFUNC(StrComp); -extern RTLFUNC(String); -extern RTLFUNC(StrReverse); -extern RTLFUNC(SYD); -extern RTLFUNC(Tab); -extern RTLFUNC(Tan); -extern RTLFUNC(UCase); -extern RTLFUNC(Val); -extern RTLFUNC(Len); -extern RTLFUNC(Spc); -extern RTLFUNC(DateSerial); -extern RTLFUNC(TimeSerial); -extern RTLFUNC(DateValue); -extern RTLFUNC(TimeValue); -extern RTLFUNC(Day); -extern RTLFUNC(Hour); -extern RTLFUNC(Minute); -extern RTLFUNC(Month); -extern RTLFUNC(MonthName); -extern RTLFUNC(Now); -extern RTLFUNC(Second); -extern RTLFUNC(Time); -extern RTLFUNC(Timer); -extern RTLFUNC(Weekday); -extern RTLFUNC(WeekdayName); -extern RTLFUNC(Year); -extern RTLFUNC(InputBox); -extern RTLFUNC(Me); -extern RTLFUNC(MsgBox); -extern RTLFUNC(IsArray); -extern RTLFUNC(IsDate); -extern RTLFUNC(IsEmpty); -extern RTLFUNC(IsError); -extern RTLFUNC(IsNull); -extern RTLFUNC(IsNumeric); -extern RTLFUNC(IsObject); -extern RTLFUNC(IsUnoStruct); - -extern RTLFUNC(FileDateTime); -extern RTLFUNC(Format); -extern RTLFUNC(GetAttr); -extern RTLFUNC(Randomize); // JSM -extern RTLFUNC(Round); -extern RTLFUNC(Frac); -extern RTLFUNC(Rnd); -extern RTLFUNC(Shell); -extern RTLFUNC(VarType); -extern RTLFUNC(TypeName); -extern RTLFUNC(TypeLen); - -extern RTLFUNC(EOF); -extern RTLFUNC(FileAttr); -extern RTLFUNC(Loc); -extern RTLFUNC(Lof); -extern RTLFUNC(Seek); -extern RTLFUNC(SetAttr); // JSM -extern RTLFUNC(Reset); // JSM - -extern RTLFUNC(DDEInitiate); -extern RTLFUNC(DDETerminate); -extern RTLFUNC(DDETerminateAll); -extern RTLFUNC(DDERequest); -extern RTLFUNC(DDEExecute); -extern RTLFUNC(DDEPoke); - -extern RTLFUNC(FreeFile); -extern RTLFUNC(IsMissing); -extern RTLFUNC(LBound); -extern RTLFUNC(UBound); -extern RTLFUNC(RGB); -extern RTLFUNC(QBColor); -extern RTLFUNC(StrConv); - -extern RTLFUNC(Beep); - -extern RTLFUNC(Load); -extern RTLFUNC(Unload); -extern RTLFUNC(LoadPicture); -extern RTLFUNC(SavePicture); - -extern RTLFUNC(CallByName); -extern RTLFUNC(CBool); // JSM -extern RTLFUNC(CByte); // JSM -extern RTLFUNC(CCur); // JSM -extern RTLFUNC(CDate); // JSM -extern RTLFUNC(CDbl); // JSM -extern RTLFUNC(CInt); // JSM -extern RTLFUNC(CLng); // JSM -extern RTLFUNC(CSng); // JSM -extern RTLFUNC(CStr); // JSM -extern RTLFUNC(CVar); // JSM -extern RTLFUNC(CVErr); // JSM - -extern RTLFUNC(Iif); // JSM - -extern RTLFUNC(DumpAllObjects); - -extern RTLFUNC(GetSystemType); -extern RTLFUNC(GetGUIType); -extern RTLFUNC(Red); -extern RTLFUNC(Green); -extern RTLFUNC(Blue); - -extern RTLFUNC(Switch); -extern RTLFUNC(Wait); +extern void SbRtl_CreateObject(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Error(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Sin(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Abs(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Asc(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Atn(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Chr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ChrW(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Cos(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CurDir(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ChDir(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_ChDrive(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_FileCopy(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_Kill(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_MkDir(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_RmDir(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_SendKeys(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_DDB(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DimArray(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Dir(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DoEvents(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Exp(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FileLen(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Fix(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FV(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Hex(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Input(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_InStr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_InStrRev(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Int(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IPmt(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IRR(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Join(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_LCase(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Left(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Log(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_LTrim(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Mid(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MIRR(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_NPer(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_NPV(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Oct(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Pmt(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_PPmt(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_PV(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Rate(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Replace(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Right(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_RTrim(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_RTL(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Sgn(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_SLN(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Space(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Split(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Sqr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Str(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_StrComp(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_String(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_StrReverse(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_SYD(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Tab(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Tan(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_UCase(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Val(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Len(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Spc(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DateSerial(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TimeSerial(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DateValue(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TimeValue(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Day(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Hour(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Minute(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Month(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MonthName(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Now(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Second(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Time(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Timer(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Weekday(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_WeekdayName(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Year(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_InputBox(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Me(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_MsgBox(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsArray(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsDate(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsEmpty(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsError(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsNull(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsNumeric(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsObject(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsUnoStruct(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_FileDateTime(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Format(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetAttr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Randomize(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_Round(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Frac(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Rnd(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Shell(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_VarType(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TypeName(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TypeLen(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_EOF(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FileAttr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Loc(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Lof(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Seek(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_SetAttr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_Reset(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM + +extern void SbRtl_DDEInitiate(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DDETerminate(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DDETerminateAll(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DDERequest(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DDEExecute(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DDEPoke(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_FreeFile(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_IsMissing(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_LBound(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_UBound(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_RGB(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_QBColor(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_StrConv(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_Beep(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_Load(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Unload(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_LoadPicture(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_SavePicture(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_CallByName(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CBool(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CByte(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CCur(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CDate(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CDbl(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CInt(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CLng(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CSng(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CStr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CVar(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM +extern void SbRtl_CVErr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM + +extern void SbRtl_Iif(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // JSM + +extern void SbRtl_DumpAllObjects(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_GetSystemType(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetGUIType(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Red(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Green(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Blue(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_Switch(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Wait(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); //i#64882# add new WaitUntil -extern RTLFUNC(WaitUntil); -extern RTLFUNC(FuncCaller); - -extern RTLFUNC(GetGUIVersion); -extern RTLFUNC(Choose); -extern RTLFUNC(Trim); - -extern RTLFUNC(DateAdd); -extern RTLFUNC(DateDiff); -extern RTLFUNC(DatePart); -extern RTLFUNC(FormatDateTime); -extern RTLFUNC(GetSolarVersion); -extern RTLFUNC(TwipsPerPixelX); -extern RTLFUNC(TwipsPerPixelY); -extern RTLFUNC(FreeLibrary); -extern RTLFUNC(Array); -extern RTLFUNC(FindObject); -extern RTLFUNC(FindPropertyObject); -extern RTLFUNC(EnableReschedule); - -extern RTLFUNC(Put); -extern RTLFUNC(Get); -extern RTLFUNC(Environ); -extern RTLFUNC(GetDialogZoomFactorX); -extern RTLFUNC(GetDialogZoomFactorY); -extern RTLFUNC(GetSystemTicks); -extern RTLFUNC(GetPathSeparator); -extern RTLFUNC(ResolvePath); -extern RTLFUNC(CreateUnoStruct); -extern RTLFUNC(CreateUnoService); -extern RTLFUNC(CreateUnoServiceWithArguments); -extern RTLFUNC(CreateUnoValue); -extern RTLFUNC(GetProcessServiceManager); -extern RTLFUNC(GetDefaultContext); -extern RTLFUNC(CreatePropertySet); -extern RTLFUNC(CreateUnoListener); -extern RTLFUNC(HasUnoInterfaces); -extern RTLFUNC(EqualUnoObjects); -extern RTLFUNC(CreateUnoDialog); -extern RTLFUNC(GlobalScope); -extern RTLFUNC(FileExists); -extern RTLFUNC(ConvertToUrl); -extern RTLFUNC(ConvertFromUrl); -extern RTLFUNC(CDateToUnoDate); -extern RTLFUNC(CDateFromUnoDate); -extern RTLFUNC(CDateToUnoTime); -extern RTLFUNC(CDateFromUnoTime); -extern RTLFUNC(CDateToUnoDateTime); -extern RTLFUNC(CDateFromUnoDateTime); -extern RTLFUNC(CDateToIso); -extern RTLFUNC(CDateFromIso); -extern RTLFUNC(CompatibilityMode); -extern RTLFUNC(CDec); - -extern RTLFUNC(Partition); // Fong +extern void SbRtl_WaitUntil(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FuncCaller(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_GetGUIVersion(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Choose(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Trim(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_DateAdd(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DateDiff(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_DatePart(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FormatDateTime(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetSolarVersion(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TwipsPerPixelX(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_TwipsPerPixelY(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FreeLibrary(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Array(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FindObject(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FindPropertyObject(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_EnableReschedule(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_Put(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Get(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_Environ(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetDialogZoomFactorX(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetDialogZoomFactorY(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetSystemTicks(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetPathSeparator(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ResolvePath(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CreateUnoStruct(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CreateUnoService(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CreateUnoServiceWithArguments(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CreateUnoValue(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetProcessServiceManager(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GetDefaultContext(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CreatePropertySet(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CreateUnoListener(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_HasUnoInterfaces(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_EqualUnoObjects(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CreateUnoDialog(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_GlobalScope(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_FileExists(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ConvertToUrl(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_ConvertFromUrl(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDateToUnoDate(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDateFromUnoDate(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDateToUnoTime(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDateFromUnoTime(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDateToUnoDateTime(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDateFromUnoDateTime(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDateToIso(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDateFromIso(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CompatibilityMode(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); +extern void SbRtl_CDec(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); + +extern void SbRtl_Partition(StarBASIC * pBasic, SbxArray & rPar, bool bWrite); // Fong extern double Now_Impl(); extern void Wait_Impl( bool bDurationBased, SbxArray& rPar ); diff --git a/basic/source/runtime/inputbox.cxx b/basic/source/runtime/inputbox.cxx index 69d42a664aef..8f7fbb128eb5 100644 --- a/basic/source/runtime/inputbox.cxx +++ b/basic/source/runtime/inputbox.cxx @@ -147,11 +147,8 @@ IMPL_LINK_NOARG( SvRTLInputBox, CancelHdl, Button *, void ) // Syntax: String InputBox( Prompt, [Title], [Default] [, nXpos, nYpos ] ) -RTLFUNC(InputBox) +void SbRtl_InputBox(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt32 nArgCount = rPar.Count(); if ( nArgCount < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); diff --git a/basic/source/runtime/methods.cxx b/basic/source/runtime/methods.cxx index aca8c7be6ae7..fcc14f684e73 100644 --- a/basic/source/runtime/methods.cxx +++ b/basic/source/runtime/methods.cxx @@ -179,10 +179,8 @@ static uno::Reference< ucb::XSimpleFileAccess3 > const & getFileAccess() // CreateObject( class ) -RTLFUNC(CreateObject) +void SbRtl_CreateObject(StarBASIC * pBasic, SbxArray & rPar, bool) { - (void)bWrite; - OUString aClass( rPar.Get( 1 )->GetOUString() ); SbxObjectRef p = SbxBase::CreateObject( aClass ); if( !p.is() ) @@ -197,10 +195,8 @@ RTLFUNC(CreateObject) // Error( n ) -RTLFUNC(Error) +void SbRtl_Error(StarBASIC * pBasic, SbxArray & rPar, bool) { - (void)bWrite; - if( !pBasic ) StarBASIC::Error( ERRCODE_BASIC_INTERNAL_ERROR ); else @@ -254,11 +250,8 @@ RTLFUNC(Error) // Sinus -RTLFUNC(Sin) +void SbRtl_Sin(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); else @@ -269,11 +262,8 @@ RTLFUNC(Sin) } -RTLFUNC(Cos) +void SbRtl_Cos(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); else @@ -284,11 +274,8 @@ RTLFUNC(Cos) } -RTLFUNC(Atn) +void SbRtl_Atn(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); else @@ -299,11 +286,8 @@ RTLFUNC(Atn) } -RTLFUNC(Abs) +void SbRtl_Abs(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -316,11 +300,8 @@ RTLFUNC(Abs) } -RTLFUNC(Asc) +void SbRtl_Asc(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -367,23 +348,17 @@ void implChr( SbxArray& rPar, bool bChrW ) } } -RTLFUNC(Chr) +void SbRtl_Chr(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - implChr( rPar, false/*bChrW*/ ); } -RTLFUNC(ChrW) +void SbRtl_ChrW(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - implChr( rPar, true/*bChrW*/ ); } -RTLFUNC(CurDir) +void SbRtl_CurDir(StarBASIC * pBasic, SbxArray & rPar, bool bWrite) { (void)pBasic; (void)bWrite; @@ -452,10 +427,8 @@ RTLFUNC(CurDir) #endif } -RTLFUNC(ChDir) +void SbRtl_ChDir(StarBASIC * pBasic, SbxArray & rPar, bool) { - (void)bWrite; - rPar.Get(0)->PutEmpty(); if (rPar.Count() == 2) { @@ -471,11 +444,8 @@ RTLFUNC(ChDir) } } -RTLFUNC(ChDrive) +void SbRtl_ChDrive(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); if (rPar.Count() != 2) { @@ -526,11 +496,8 @@ void implStepRenameOSL( const OUString& aSource, const OUString& aDest ) } } -RTLFUNC(FileCopy) +void SbRtl_FileCopy(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); if (rPar.Count() == 3) { @@ -564,11 +531,8 @@ RTLFUNC(FileCopy) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); } -RTLFUNC(Kill) +void SbRtl_Kill(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); if (rPar.Count() == 2) { @@ -606,7 +570,7 @@ RTLFUNC(Kill) } } -RTLFUNC(MkDir) +void SbRtl_MkDir(StarBASIC * pBasic, SbxArray & rPar, bool bWrite) { rPar.Get(0)->PutEmpty(); if (rPar.Count() == 2) @@ -725,11 +689,8 @@ void implRemoveDirRecursive( const OUString& aDirPath ) } -RTLFUNC(RmDir) +void SbRtl_RmDir(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); if (rPar.Count() == 2) { @@ -778,20 +739,14 @@ RTLFUNC(RmDir) } } -RTLFUNC(SendKeys) +void SbRtl_SendKeys(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); StarBASIC::Error(ERRCODE_BASIC_NOT_IMPLEMENTED); } -RTLFUNC(Exp) +void SbRtl_Exp(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if( rPar.Count() < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); else @@ -803,11 +758,8 @@ RTLFUNC(Exp) } } -RTLFUNC(FileLen) +void SbRtl_FileLen(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -845,11 +797,8 @@ RTLFUNC(FileLen) } -RTLFUNC(Hex) +void SbRtl_Hex(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -867,10 +816,8 @@ RTLFUNC(Hex) } } -RTLFUNC(FuncCaller) +void SbRtl_FuncCaller(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; if ( SbiRuntime::isVBAEnabled() && GetSbData()->pInst && GetSbData()->pInst->pRun ) { if ( GetSbData()->pInst->pRun->GetExternalCaller() ) @@ -889,11 +836,8 @@ RTLFUNC(FuncCaller) } // InStr( [start],string,string,[compare] ) -RTLFUNC(InStr) +void SbRtl_InStr(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - std::size_t nArgCount = rPar.Count()-1; if ( nArgCount < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -962,11 +906,8 @@ RTLFUNC(InStr) // InstrRev(string1, string2[, start[, compare]]) -RTLFUNC(InStrRev) +void SbRtl_InStrRev(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - std::size_t nArgCount = rPar.Count()-1; if ( nArgCount < 2 ) { @@ -1046,11 +987,8 @@ RTLFUNC(InStrRev) Fix( -2.8 ) = -2.0 <- !! */ -RTLFUNC(Int) +void SbRtl_Int(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); else @@ -1067,11 +1005,8 @@ RTLFUNC(Int) } -RTLFUNC(Fix) +void SbRtl_Fix(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); else @@ -1087,11 +1022,8 @@ RTLFUNC(Fix) } -RTLFUNC(LCase) +void SbRtl_LCase(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1105,11 +1037,8 @@ RTLFUNC(LCase) } } -RTLFUNC(Left) +void SbRtl_Left(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 3 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1132,11 +1061,8 @@ RTLFUNC(Left) } } -RTLFUNC(Log) +void SbRtl_Log(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1157,11 +1083,8 @@ RTLFUNC(Log) } } -RTLFUNC(LTrim) +void SbRtl_LTrim(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1176,10 +1099,8 @@ RTLFUNC(LTrim) // Mid( String, nStart, nLength ) -RTLFUNC(Mid) +void SbRtl_Mid(StarBASIC *, SbxArray & rPar, bool bWrite) { - (void)pBasic; - int nArgCount = rPar.Count()-1; if ( nArgCount < 2 ) { @@ -1296,11 +1217,8 @@ RTLFUNC(Mid) } } -RTLFUNC(Oct) +void SbRtl_Oct(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1323,11 +1241,8 @@ RTLFUNC(Oct) // Replace(expression, find, replace[, start[, count[, compare]]]) -RTLFUNC(Replace) +void SbRtl_Replace(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - std::size_t nArgCount = rPar.Count()-1; if ( nArgCount < 3 || nArgCount > 6 ) { @@ -1416,11 +1331,8 @@ RTLFUNC(Replace) } } -RTLFUNC(Right) +void SbRtl_Right(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 3 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1444,18 +1356,13 @@ RTLFUNC(Right) } } -RTLFUNC(RTL) +void SbRtl_RTL(StarBASIC * pBasic, SbxArray & rPar, bool) { - (void)bWrite; - rPar.Get( 0 )->PutObject( pBasic->getRTL().get() ); } -RTLFUNC(RTrim) +void SbRtl_RTrim(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1467,11 +1374,8 @@ RTLFUNC(RTrim) } } -RTLFUNC(Sgn) +void SbRtl_Sgn(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1492,11 +1396,8 @@ RTLFUNC(Sgn) } } -RTLFUNC(Space) +void SbRtl_Space(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1509,11 +1410,8 @@ RTLFUNC(Space) } } -RTLFUNC(Spc) +void SbRtl_Spc(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1526,11 +1424,8 @@ RTLFUNC(Spc) } } -RTLFUNC(Sqr) +void SbRtl_Sqr(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1549,11 +1444,8 @@ RTLFUNC(Sqr) } } -RTLFUNC(Str) +void SbRtl_Str(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1613,11 +1505,8 @@ RTLFUNC(Str) } } -RTLFUNC(StrComp) +void SbRtl_StrComp(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 3 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1680,11 +1569,8 @@ RTLFUNC(StrComp) rPar.Get(0)->PutInteger( sal::static_int_cast< sal_Int16 >( nRetValue ) ); } -RTLFUNC(String) +void SbRtl_String(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1712,11 +1598,8 @@ RTLFUNC(String) } } -RTLFUNC(Tab) +void SbRtl_Tab(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); else @@ -1727,11 +1610,8 @@ RTLFUNC(Tab) } } -RTLFUNC(Tan) +void SbRtl_Tan(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1743,11 +1623,8 @@ RTLFUNC(Tan) } } -RTLFUNC(UCase) +void SbRtl_UCase(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1762,7 +1639,7 @@ RTLFUNC(UCase) } -RTLFUNC(Val) +void SbRtl_Val(StarBASIC * pBasic, SbxArray & rPar, bool bWrite) { (void)pBasic; (void)bWrite; @@ -1865,11 +1742,8 @@ void SbxDateFromUNODate( SbxValue *pVal, const css::util::Date& aUnoDate) } // Function to convert date to UNO date (com.sun.star.util.Date) -RTLFUNC(CDateToUnoDate) +void SbRtl_CDateToUnoDate(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1880,11 +1754,8 @@ RTLFUNC(CDateToUnoDate) } // Function to convert date from UNO date (com.sun.star.util.Date) -RTLFUNC(CDateFromUnoDate) +void SbRtl_CDateFromUnoDate(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 || rPar.Get(1)->GetType() != SbxOBJECT ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1918,11 +1789,8 @@ void SbxDateFromUNOTime( SbxValue *pVal, const css::util::Time& aUnoTime) } // Function to convert date to UNO time (com.sun.star.util.Time) -RTLFUNC(CDateToUnoTime) +void SbRtl_CDateToUnoTime(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1933,11 +1801,8 @@ RTLFUNC(CDateToUnoTime) } // Function to convert date from UNO time (com.sun.star.util.Time) -RTLFUNC(CDateFromUnoTime) +void SbRtl_CDateFromUnoTime(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 || rPar.Get(1)->GetType() != SbxOBJECT ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1980,11 +1845,8 @@ void SbxDateFromUNODateTime( SbxValue *pVal, const css::util::DateTime& aUnoDT) } // Function to convert date to UNO date (com.sun.star.util.Date) -RTLFUNC(CDateToUnoDateTime) +void SbRtl_CDateToUnoDateTime(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1995,11 +1857,8 @@ RTLFUNC(CDateToUnoDateTime) } // Function to convert date from UNO date (com.sun.star.util.Date) -RTLFUNC(CDateFromUnoDateTime) +void SbRtl_CDateFromUnoDateTime(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 || rPar.Get(1)->GetType() != SbxOBJECT ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2015,11 +1874,8 @@ RTLFUNC(CDateFromUnoDateTime) } // Function to convert date to ISO 8601 date format YYYYMMDD -RTLFUNC(CDateToIso) +void SbRtl_CDateToIso(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() == 2 ) { double aDate = rPar.Get(1)->GetDate(); @@ -2042,11 +1898,8 @@ RTLFUNC(CDateToIso) // Function to convert date from ISO 8601 date format YYYYMMDD or YYYY-MM-DD // And even YYMMDD for compatibility, sigh.. -RTLFUNC(CDateFromIso) +void SbRtl_CDateFromIso(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() == 2 ) { do @@ -2129,11 +1982,8 @@ RTLFUNC(CDateFromIso) } } -RTLFUNC(DateSerial) +void SbRtl_DateSerial(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 4 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2150,11 +2000,8 @@ RTLFUNC(DateSerial) } } -RTLFUNC(TimeSerial) +void SbRtl_TimeSerial(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 4 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2178,11 +2025,8 @@ RTLFUNC(TimeSerial) rPar.Get(0)->PutDate( implTimeSerial(nHour, nMinute, nSecond) ); // JSM } -RTLFUNC(DateValue) +void SbRtl_DateValue(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2249,11 +2093,8 @@ RTLFUNC(DateValue) } } -RTLFUNC(TimeValue) +void SbRtl_TimeValue(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2294,11 +2135,8 @@ RTLFUNC(TimeValue) } } -RTLFUNC(Day) +void SbRtl_Day(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2313,11 +2151,8 @@ RTLFUNC(Day) } } -RTLFUNC(Year) +void SbRtl_Year(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2338,11 +2173,8 @@ sal_Int16 implGetHour( double dDate ) return nHour; } -RTLFUNC(Hour) +void SbRtl_Hour(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2355,11 +2187,8 @@ RTLFUNC(Hour) } } -RTLFUNC(Minute) +void SbRtl_Minute(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2372,11 +2201,8 @@ RTLFUNC(Minute) } } -RTLFUNC(Month) +void SbRtl_Month(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2402,11 +2228,8 @@ sal_Int16 implGetSecond( double dDate ) return nRet; } -RTLFUNC(Second) +void SbRtl_Second(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2435,19 +2258,15 @@ double Now_Impl() // Date Now() -RTLFUNC(Now) +void SbRtl_Now(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; rPar.Get(0)->PutDate( Now_Impl() ); } // Date Time() -RTLFUNC(Time) +void SbRtl_Time(StarBASIC *, SbxArray & rPar, bool bWrite) { - (void)pBasic; - if ( !bWrite ) { tools::Time aTime( tools::Time::SYSTEM ); @@ -2499,11 +2318,8 @@ RTLFUNC(Time) } } -RTLFUNC(Timer) +void SbRtl_Timer(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - tools::Time aTime( tools::Time::SYSTEM ); long nSeconds = aTime.GetHour(); nSeconds *= 3600; @@ -2513,10 +2329,8 @@ RTLFUNC(Timer) } -RTLFUNC(Date) +void SbRtl_Date(StarBASIC *, SbxArray & rPar, bool bWrite) { - (void)pBasic; - if ( !bWrite ) { Date aToday( Date::SYSTEM ); @@ -2559,11 +2373,8 @@ RTLFUNC(Date) } } -RTLFUNC(IsArray) +void SbRtl_IsArray(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2574,11 +2385,8 @@ RTLFUNC(IsArray) } } -RTLFUNC(IsObject) +void SbRtl_IsObject(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2605,11 +2413,8 @@ RTLFUNC(IsObject) } } -RTLFUNC(IsDate) +void SbRtl_IsDate(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2642,11 +2447,8 @@ RTLFUNC(IsDate) } } -RTLFUNC(IsEmpty) +void SbRtl_IsEmpty(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2670,11 +2472,8 @@ RTLFUNC(IsEmpty) } } -RTLFUNC(IsError) +void SbRtl_IsError(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2706,11 +2505,8 @@ RTLFUNC(IsError) } } -RTLFUNC(IsNull) +void SbRtl_IsNull(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2733,11 +2529,8 @@ RTLFUNC(IsNull) } } -RTLFUNC(IsNumeric) +void SbRtl_IsNumeric(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2749,11 +2542,8 @@ RTLFUNC(IsNumeric) } -RTLFUNC(IsMissing) +void SbRtl_IsMissing(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -2875,11 +2665,8 @@ bool isRootDir( const OUString& aDirURLStr ) return bRoot; } -RTLFUNC(Dir) +void SbRtl_Dir(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - OUString aPath; sal_uInt16 nParCount = rPar.Count(); @@ -3156,7 +2943,7 @@ RTLFUNC(Dir) } -RTLFUNC(GetAttr) +void SbRtl_GetAttr(StarBASIC * pBasic, SbxArray & rPar, bool bWrite) { (void)pBasic; (void)bWrite; @@ -3261,11 +3048,8 @@ RTLFUNC(GetAttr) } -RTLFUNC(FileDateTime) +void SbRtl_FileDateTime(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -3341,11 +3125,8 @@ RTLFUNC(FileDateTime) } -RTLFUNC(EOF) +void SbRtl_EOF(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // No changes for UCB if ( rPar.Count() != 2 ) { @@ -3381,11 +3162,8 @@ RTLFUNC(EOF) } } -RTLFUNC(FileAttr) +void SbRtl_FileAttr(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // No changes for UCB // #57064 Although this function doesn't operate with DirEntry, it is // not touched by the adjustment to virtual URLs, as it only works on @@ -3417,11 +3195,8 @@ RTLFUNC(FileAttr) rPar.Get(0)->PutInteger( nRet ); } } -RTLFUNC(Loc) +void SbRtl_Loc(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // No changes for UCB if ( rPar.Count() != 2 ) { @@ -3465,11 +3240,8 @@ RTLFUNC(Loc) } } -RTLFUNC(Lof) +void SbRtl_Lof(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // No changes for UCB if ( rPar.Count() != 2 ) { @@ -3494,11 +3266,8 @@ RTLFUNC(Lof) } -RTLFUNC(Seek) +void SbRtl_Seek(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // No changes for UCB int nArgs = (int)rPar.Count(); if ( nArgs < 2 || nArgs > 3 ) @@ -3545,11 +3314,8 @@ RTLFUNC(Seek) } } -RTLFUNC(Format) +void SbRtl_Format(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nArgCount = rPar.Count(); if ( nArgCount < 2 || nArgCount > 3 ) { @@ -3603,11 +3369,8 @@ class theRandomNumberGenerator : public rtl::Static<RandomNumberGenerator, theRa } -RTLFUNC(Randomize) +void SbRtl_Randomize(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() > 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -3620,11 +3383,8 @@ RTLFUNC(Randomize) // without parameter, no need to do anything - RNG is seeded at first use } -RTLFUNC(Rnd) +void SbRtl_Rnd(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() > 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -3647,11 +3407,8 @@ RTLFUNC(Rnd) // Application::StartApp in Creator. Format: "xxxx2" -RTLFUNC(Shell) +void SbRtl_Shell(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - std::size_t nArgCount = rPar.Count(); if ( nArgCount < 2 || nArgCount > 5 ) { @@ -3818,11 +3575,8 @@ RTLFUNC(Shell) } } -RTLFUNC(VarType) +void SbRtl_VarType(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -3954,11 +3708,8 @@ OUString getObjectTypeName( SbxVariable* pVar ) return sRet; } -RTLFUNC(TypeName) +void SbRtl_TypeName(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -3985,11 +3736,8 @@ RTLFUNC(TypeName) } } -RTLFUNC(Len) +void SbRtl_Len(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -4001,11 +3749,8 @@ RTLFUNC(Len) } } -RTLFUNC(DDEInitiate) +void SbRtl_DDEInitiate(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - int nArgs = (int)rPar.Count(); if ( nArgs != 3 ) { @@ -4028,11 +3773,8 @@ RTLFUNC(DDEInitiate) } } -RTLFUNC(DDETerminate) +void SbRtl_DDETerminate(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); int nArgs = (int)rPar.Count(); if ( nArgs != 2 ) @@ -4049,11 +3791,8 @@ RTLFUNC(DDETerminate) } } -RTLFUNC(DDETerminateAll) +void SbRtl_DDETerminateAll(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); int nArgs = (int)rPar.Count(); if ( nArgs != 1 ) @@ -4070,11 +3809,8 @@ RTLFUNC(DDETerminateAll) } } -RTLFUNC(DDERequest) +void SbRtl_DDERequest(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - int nArgs = (int)rPar.Count(); if ( nArgs != 3 ) { @@ -4096,11 +3832,8 @@ RTLFUNC(DDERequest) } } -RTLFUNC(DDEExecute) +void SbRtl_DDEExecute(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); int nArgs = (int)rPar.Count(); if ( nArgs != 3 ) @@ -4118,11 +3851,8 @@ RTLFUNC(DDEExecute) } } -RTLFUNC(DDEPoke) +void SbRtl_DDEPoke(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); int nArgs = (int)rPar.Count(); if ( nArgs != 4 ) @@ -4142,11 +3872,8 @@ RTLFUNC(DDEPoke) } -RTLFUNC(FreeFile) +void SbRtl_FreeFile(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 1 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -4167,11 +3894,8 @@ RTLFUNC(FreeFile) StarBASIC::Error( ERRCODE_BASIC_TOO_MANY_FILES ); } -RTLFUNC(LBound) +void SbRtl_LBound(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if ( nParCount != 3 && nParCount != 2 ) { @@ -4193,11 +3917,8 @@ RTLFUNC(LBound) StarBASIC::Error( ERRCODE_BASIC_MUST_HAVE_DIMS ); } -RTLFUNC(UBound) +void SbRtl_UBound(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if ( nParCount != 3 && nParCount != 2 ) { @@ -4220,11 +3941,8 @@ RTLFUNC(UBound) StarBASIC::Error( ERRCODE_BASIC_MUST_HAVE_DIMS ); } -RTLFUNC(RGB) +void SbRtl_RGB(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 4 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -4249,11 +3967,8 @@ RTLFUNC(RGB) rPar.Get(0)->PutLong( nRGB ); } -RTLFUNC(QBColor) +void SbRtl_QBColor(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - static const sal_Int32 pRGB[] = { 0x000000, @@ -4291,11 +4006,8 @@ RTLFUNC(QBColor) } // StrConv(string, conversion, LCID) -RTLFUNC(StrConv) +void SbRtl_StrConv(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - std::size_t nArgCount = rPar.Count()-1; if( nArgCount < 2 || nArgCount > 3 ) { @@ -4429,11 +4141,8 @@ RTLFUNC(StrConv) } -RTLFUNC(Beep) +void SbRtl_Beep(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 1 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -4442,11 +4151,8 @@ RTLFUNC(Beep) Sound::Beep(); } -RTLFUNC(Load) +void SbRtl_Load(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -4472,11 +4178,8 @@ RTLFUNC(Load) } } -RTLFUNC(Unload) +void SbRtl_Unload(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); if( rPar.Count() != 2 ) { @@ -4503,11 +4206,8 @@ RTLFUNC(Unload) } } -RTLFUNC(LoadPicture) +void SbRtl_LoadPicture(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -4528,11 +4228,8 @@ RTLFUNC(LoadPicture) } } -RTLFUNC(SavePicture) +void SbRtl_SavePicture(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); if( rPar.Count() != 3 ) { @@ -4549,11 +4246,8 @@ RTLFUNC(SavePicture) } } -RTLFUNC(MsgBox) +void SbRtl_MsgBox(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - static const WinBits nStyleMap[] = { WB_OK, // MB_OK @@ -4678,11 +4372,8 @@ RTLFUNC(MsgBox) pBox.disposeAndClear(); } -RTLFUNC(SetAttr) +void SbRtl_SetAttr(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); if ( rPar.Count() == 3 ) { @@ -4714,12 +4405,8 @@ RTLFUNC(SetAttr) } } -RTLFUNC(Reset) +void SbRtl_Reset(StarBASIC *, SbxArray &, bool) { - (void)pBasic; - (void)bWrite; - (void)rPar; - SbiIoSystem* pIO = GetSbData()->pInst->GetIoSystem(); if (pIO) { @@ -4727,10 +4414,8 @@ RTLFUNC(Reset) } } -RTLFUNC(DumpAllObjects) +void SbRtl_DumpAllObjects(StarBASIC * pBasic, SbxArray & rPar, bool) { - (void)bWrite; - sal_uInt16 nArgCount = rPar.Count(); if( nArgCount < 2 || nArgCount > 3 ) { @@ -4759,11 +4444,8 @@ RTLFUNC(DumpAllObjects) } -RTLFUNC(FileExists) +void SbRtl_FileExists(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() == 2 ) { OUString aStr = rPar.Get(1)->GetOUString(); @@ -4798,11 +4480,8 @@ RTLFUNC(FileExists) } } -RTLFUNC(Partition) +void SbRtl_Partition(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 5 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); diff --git a/basic/source/runtime/methods1.cxx b/basic/source/runtime/methods1.cxx index 4344dfaacf17..1dbfa9db3285 100644 --- a/basic/source/runtime/methods1.cxx +++ b/basic/source/runtime/methods1.cxx @@ -102,11 +102,8 @@ static Reference< XCalendar4 > const & getLocaleCalendar() #if HAVE_FEATURE_SCRIPTING -RTLFUNC(CallByName) +void SbRtl_CallByName(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - const sal_Int16 vbGet = 2; const sal_Int16 vbLet = 4; const sal_Int16 vbMethod = 1; @@ -225,11 +222,8 @@ RTLFUNC(CallByName) } } -RTLFUNC(CBool) // JSM +void SbRtl_CBool(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - bool bVal = false; if ( rPar.Count() == 2 ) { @@ -243,11 +237,8 @@ RTLFUNC(CBool) // JSM rPar.Get(0)->PutBool(bVal); } -RTLFUNC(CByte) // JSM +void SbRtl_CByte(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - sal_uInt8 nByte = 0; if ( rPar.Count() == 2 ) { @@ -261,11 +252,8 @@ RTLFUNC(CByte) // JSM rPar.Get(0)->PutByte(nByte); } -RTLFUNC(CCur) +void SbRtl_CCur(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_Int64 nCur = 0; if ( rPar.Count() == 2 ) { @@ -279,7 +267,7 @@ RTLFUNC(CCur) rPar.Get(0)->PutCurrency( nCur ); } -RTLFUNC(CDec) +void SbRtl_CDec(StarBASIC * pBasic, SbxArray & rPar, bool bWrite) { (void)pBasic; (void)bWrite; @@ -302,11 +290,8 @@ RTLFUNC(CDec) #endif } -RTLFUNC(CDate) // JSM +void SbRtl_CDate(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - double nVal = 0.0; if ( rPar.Count() == 2 ) { @@ -320,11 +305,8 @@ RTLFUNC(CDate) // JSM rPar.Get(0)->PutDate(nVal); } -RTLFUNC(CDbl) // JSM +void SbRtl_CDbl(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - double nVal = 0.0; if ( rPar.Count() == 2 ) { @@ -352,11 +334,8 @@ RTLFUNC(CDbl) // JSM rPar.Get(0)->PutDouble(nVal); } -RTLFUNC(CInt) // JSM +void SbRtl_CInt(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - sal_Int16 nVal = 0; if ( rPar.Count() == 2 ) { @@ -370,11 +349,8 @@ RTLFUNC(CInt) // JSM rPar.Get(0)->PutInteger(nVal); } -RTLFUNC(CLng) // JSM +void SbRtl_CLng(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - sal_Int32 nVal = 0; if ( rPar.Count() == 2 ) { @@ -388,11 +364,8 @@ RTLFUNC(CLng) // JSM rPar.Get(0)->PutLong(nVal); } -RTLFUNC(CSng) // JSM +void SbRtl_CSng(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - float nVal = (float)0.0; if ( rPar.Count() == 2 ) { @@ -421,11 +394,8 @@ RTLFUNC(CSng) // JSM rPar.Get(0)->PutSingle(nVal); } -RTLFUNC(CStr) // JSM +void SbRtl_CStr(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - OUString aString; if ( rPar.Count() == 2 ) { @@ -439,11 +409,8 @@ RTLFUNC(CStr) // JSM rPar.Get(0)->PutString(aString); } -RTLFUNC(CVar) // JSM +void SbRtl_CVar(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - SbxValues aVals( SbxVARIANT ); if ( rPar.Count() == 2 ) { @@ -457,11 +424,8 @@ RTLFUNC(CVar) // JSM rPar.Get(0)->Put( aVals ); } -RTLFUNC(CVErr) +void SbRtl_CVErr(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_Int16 nErrCode = 0; if ( rPar.Count() == 2 ) { @@ -475,11 +439,8 @@ RTLFUNC(CVErr) rPar.Get(0)->PutErr( nErrCode ); } -RTLFUNC(Iif) // JSM +void SbRtl_Iif(StarBASIC *, SbxArray & rPar, bool) // JSM { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() == 4 ) { if (rPar.Get(1)->GetBool()) @@ -497,11 +458,8 @@ RTLFUNC(Iif) // JSM } } -RTLFUNC(GetSystemType) +void SbRtl_GetSystemType(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 1 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -513,7 +471,7 @@ RTLFUNC(GetSystemType) } } -RTLFUNC(GetGUIType) +void SbRtl_GetGUIType(StarBASIC * pBasic, SbxArray & rPar, bool bWrite) { (void)pBasic; (void)bWrite; @@ -535,11 +493,8 @@ RTLFUNC(GetGUIType) } } -RTLFUNC(Red) +void SbRtl_Red(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -553,11 +508,8 @@ RTLFUNC(Red) } } -RTLFUNC(Green) +void SbRtl_Green(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -571,11 +523,8 @@ RTLFUNC(Green) } } -RTLFUNC(Blue) +void SbRtl_Blue(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -589,11 +538,8 @@ RTLFUNC(Blue) } -RTLFUNC(Switch) +void SbRtl_Switch(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nCount = rPar.Count(); if( !(nCount & 0x0001 )) { @@ -650,26 +596,20 @@ void Wait_Impl( bool bDurationBased, SbxArray& rPar ) } //i#64882# -RTLFUNC(Wait) +void SbRtl_Wait(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; Wait_Impl( false, rPar ); } //i#64882# add new WaitUntil ( for application.wait ) // share wait_impl with 'normal' oobasic wait -RTLFUNC(WaitUntil) +void SbRtl_WaitUntil(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; Wait_Impl( true, rPar ); } -RTLFUNC(DoEvents) +void SbRtl_DoEvents(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; // don't understand what upstream are up to // we already process application events etc. in between // basic runtime pcode ( on a timed basis ) @@ -678,11 +618,8 @@ RTLFUNC(DoEvents) Application::Reschedule( true ); } -RTLFUNC(GetGUIVersion) +void SbRtl_GetGUIVersion(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 1 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -694,11 +631,8 @@ RTLFUNC(GetGUIVersion) } } -RTLFUNC(Choose) +void SbRtl_Choose(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -715,11 +649,8 @@ RTLFUNC(Choose) } -RTLFUNC(Trim) +void SbRtl_Trim(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -731,19 +662,13 @@ RTLFUNC(Trim) } } -RTLFUNC(GetSolarVersion) +void SbRtl_GetSolarVersion(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutLong( LIBO_VERSION_MAJOR * 10000 + LIBO_VERSION_MINOR * 100 + LIBO_VERSION_MICRO * 1); } -RTLFUNC(TwipsPerPixelX) +void SbRtl_TwipsPerPixelX(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_Int32 nResult = 0; Size aSize( 100,0 ); MapMode aMap( MapUnit::MapTwip ); @@ -756,11 +681,8 @@ RTLFUNC(TwipsPerPixelX) rPar.Get(0)->PutLong( nResult ); } -RTLFUNC(TwipsPerPixelY) +void SbRtl_TwipsPerPixelY(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_Int32 nResult = 0; Size aSize( 0,100 ); MapMode aMap( MapUnit::MapTwip ); @@ -774,11 +696,8 @@ RTLFUNC(TwipsPerPixelY) } -RTLFUNC(FreeLibrary) +void SbRtl_FreeLibrary(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -799,11 +718,8 @@ bool IsBaseIndexOne() return bResult; } -RTLFUNC(Array) +void SbRtl_Array(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - SbxDimArray* pArray = new SbxDimArray( SbxVARIANT ); sal_uInt16 nArraySize = rPar.Count() - 1; @@ -857,11 +773,8 @@ RTLFUNC(Array) // If there are parameters passed, there's a dimension created for each of // them; DimArray( 2, 2, 4 ) is equal to DIM a( 2, 2, 4 ) // the array is always of the type variant -RTLFUNC(DimArray) +void SbRtl_DimArray(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - SbxDimArray * pArray = new SbxDimArray( SbxVARIANT ); sal_uInt16 nArrayDims = rPar.Count() - 1; if( nArrayDims > 0 ) @@ -913,11 +826,8 @@ RTLFUNC(DimArray) // 1st parameter = the object's name as string -RTLFUNC(FindObject) +void SbRtl_FindObject(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -939,11 +849,8 @@ RTLFUNC(FindObject) // address object-property in an object // 1st parameter = object // 2nd parameter = the property's name as string -RTLFUNC(FindPropertyObject) +void SbRtl_FindPropertyObject(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() < 3 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1294,27 +1201,18 @@ void PutGet( SbxArray& rPar, bool bPut ) StarBASIC::Error( ERRCODE_BASIC_IO_ERROR ); } -RTLFUNC(Put) +void SbRtl_Put(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - PutGet( rPar, true ); } -RTLFUNC(Get) +void SbRtl_Get(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - PutGet( rPar, false ); } -RTLFUNC(Environ) +void SbRtl_Environ(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1362,11 +1260,8 @@ static double GetDialogZoomFactor( bool bX, long nValue ) } -RTLFUNC(GetDialogZoomFactorX) +void SbRtl_GetDialogZoomFactorX(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1375,11 +1270,8 @@ RTLFUNC(GetDialogZoomFactorX) rPar.Get(0)->PutDouble( GetDialogZoomFactor( true, rPar.Get(1)->GetLong() )); } -RTLFUNC(GetDialogZoomFactorY) +void SbRtl_GetDialogZoomFactorY(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1389,11 +1281,8 @@ RTLFUNC(GetDialogZoomFactorY) } -RTLFUNC(EnableReschedule) +void SbRtl_EnableReschedule(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutEmpty(); if ( rPar.Count() != 2 ) StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1401,11 +1290,8 @@ RTLFUNC(EnableReschedule) GetSbData()->pInst->EnableReschedule( rPar.Get(1)->GetBool() ); } -RTLFUNC(GetSystemTicks) +void SbRtl_GetSystemTicks(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 1 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1414,11 +1300,8 @@ RTLFUNC(GetSystemTicks) rPar.Get(0)->PutLong( tools::Time::GetSystemTicks() ); } -RTLFUNC(GetPathSeparator) +void SbRtl_GetPathSeparator(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 1 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1427,11 +1310,8 @@ RTLFUNC(GetPathSeparator) rPar.Get(0)->PutString( OUString( SAL_PATHDELIMITER ) ); } -RTLFUNC(ResolvePath) +void SbRtl_ResolvePath(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() == 2 ) { OUString aStr = rPar.Get(1)->GetOUString(); @@ -1443,11 +1323,8 @@ RTLFUNC(ResolvePath) } } -RTLFUNC(TypeLen) +void SbRtl_TypeLen(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -1523,102 +1400,70 @@ RTLFUNC(TypeLen) // 1st parameter == class name, other parameters for initialisation -RTLFUNC(CreateUnoStruct) +void SbRtl_CreateUnoStruct(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_CreateUnoStruct( rPar ); } // 1st parameter == service-name -RTLFUNC(CreateUnoService) +void SbRtl_CreateUnoService(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_CreateUnoService( rPar ); } -RTLFUNC(CreateUnoServiceWithArguments) +void SbRtl_CreateUnoServiceWithArguments(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_CreateUnoServiceWithArguments( rPar ); } -RTLFUNC(CreateUnoValue) +void SbRtl_CreateUnoValue(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_CreateUnoValue( rPar ); } // no parameters -RTLFUNC(GetProcessServiceManager) +void SbRtl_GetProcessServiceManager(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_GetProcessServiceManager( rPar ); } // 1st parameter == Sequence<PropertyValue> -RTLFUNC(CreatePropertySet) +void SbRtl_CreatePropertySet(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_CreatePropertySet( rPar ); } // multiple interface-names as parameters -RTLFUNC(HasUnoInterfaces) +void SbRtl_HasUnoInterfaces(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_HasInterfaces( rPar ); } -RTLFUNC(IsUnoStruct) +void SbRtl_IsUnoStruct(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_IsUnoStruct( rPar ); } -RTLFUNC(EqualUnoObjects) +void SbRtl_EqualUnoObjects(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_EqualUnoObjects( rPar ); } -RTLFUNC(CreateUnoDialog) +void SbRtl_CreateUnoDialog(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_CreateUnoDialog( rPar ); } // Return the application standard lib as root scope -RTLFUNC(GlobalScope) +void SbRtl_GlobalScope(StarBASIC * pBasic, SbxArray & rPar, bool) { - (void)bWrite; - SbxObject* p = pBasic; while( p->GetParent() ) { @@ -1629,11 +1474,8 @@ RTLFUNC(GlobalScope) } // Helper functions to convert Url from/to system paths -RTLFUNC(ConvertToUrl) +void SbRtl_ConvertToUrl(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() == 2 ) { OUString aStr = rPar.Get(1)->GetOUString(); @@ -1655,11 +1497,8 @@ RTLFUNC(ConvertToUrl) } } -RTLFUNC(ConvertFromUrl) +void SbRtl_ConvertFromUrl(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() == 2 ) { OUString aStr = rPar.Get(1)->GetOUString(); @@ -1679,19 +1518,13 @@ RTLFUNC(ConvertFromUrl) // Provide DefaultContext -RTLFUNC(GetDefaultContext) +void SbRtl_GetDefaultContext(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - RTL_Impl_GetDefaultContext( rPar ); } -RTLFUNC(Join) +void SbRtl_Join(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if ( nParCount != 3 && nParCount != 2 ) { @@ -1738,11 +1571,8 @@ RTLFUNC(Join) } -RTLFUNC(Split) +void SbRtl_Split(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if ( nParCount < 2 ) { @@ -1831,11 +1661,8 @@ RTLFUNC(Split) } // MonthName(month[, abbreviate]) -RTLFUNC(MonthName) +void SbRtl_MonthName(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if( nParCount != 2 && nParCount != 3 ) { @@ -1871,11 +1698,8 @@ RTLFUNC(MonthName) } // WeekdayName(weekday, abbreviate, firstdayofweek) -RTLFUNC(WeekdayName) +void SbRtl_WeekdayName(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if( nParCount < 2 || nParCount > 4 ) { @@ -1931,11 +1755,8 @@ RTLFUNC(WeekdayName) rPar.Get(0)->PutString( aRetStr ); } -RTLFUNC(Weekday) +void SbRtl_Weekday(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if ( nParCount < 2 ) { @@ -2026,11 +1847,8 @@ inline sal_Int16 limitToINT16( sal_Int32 n32 ) return (sal_Int16)n32; } -RTLFUNC(DateAdd) +void SbRtl_DateAdd(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if( nParCount != 4 ) { @@ -2144,11 +1962,8 @@ inline double RoundImpl( double d ) return ( d >= 0 ) ? floor( d + 0.5 ) : -floor( -d + 0.5 ); } -RTLFUNC(DateDiff) +void SbRtl_DateDiff(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) sal_uInt16 nParCount = rPar.Count(); @@ -2338,11 +2153,8 @@ double implGetDateOfFirstDayInFirstWeek return dRetDate; } -RTLFUNC(DatePart) +void SbRtl_DatePart(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) sal_uInt16 nParCount = rPar.Count(); @@ -2459,11 +2271,8 @@ RTLFUNC(DatePart) } // FormatDateTime(Date[,NamedFormat]) -RTLFUNC(FormatDateTime) +void SbRtl_FormatDateTime(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if( nParCount < 2 || nParCount > 3 ) { @@ -2568,11 +2377,8 @@ RTLFUNC(FormatDateTime) rPar.Get(0)->PutString( aRetStr ); } -RTLFUNC(Frac) +void SbRtl_Frac(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if( nParCount != 2) { @@ -2588,11 +2394,8 @@ RTLFUNC(Frac) rPar.Get(0)->PutDouble(dVal - ::rtl::math::approxCeil(dVal)); } -RTLFUNC(Round) +void SbRtl_Round(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uInt16 nParCount = rPar.Count(); if( nParCount != 2 && nParCount != 3 ) { @@ -2665,11 +2468,8 @@ void CallFunctionAccessFunction( const Sequence< Any >& aArgs, const OUString& s } } -RTLFUNC(SYD) +void SbRtl_SYD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 4 ) @@ -2689,11 +2489,8 @@ RTLFUNC(SYD) CallFunctionAccessFunction( aParams, "SYD", rPar.Get( 0 ) ); } -RTLFUNC(SLN) +void SbRtl_SLN(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 3 ) @@ -2712,11 +2509,8 @@ RTLFUNC(SLN) CallFunctionAccessFunction( aParams, "SLN", rPar.Get( 0 ) ); } -RTLFUNC(Pmt) +void SbRtl_Pmt(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 3 || nArgCount > 5 ) @@ -2757,11 +2551,8 @@ RTLFUNC(Pmt) CallFunctionAccessFunction( aParams, "Pmt", rPar.Get( 0 ) ); } -RTLFUNC(PPmt) +void SbRtl_PPmt(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 4 || nArgCount > 6 ) @@ -2804,11 +2595,8 @@ RTLFUNC(PPmt) CallFunctionAccessFunction( aParams, "PPmt", rPar.Get( 0 ) ); } -RTLFUNC(PV) +void SbRtl_PV(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 3 || nArgCount > 5 ) @@ -2849,11 +2637,8 @@ RTLFUNC(PV) CallFunctionAccessFunction( aParams, "PV", rPar.Get( 0 ) ); } -RTLFUNC(NPV) +void SbRtl_NPV(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 1 || nArgCount > 2 ) @@ -2877,11 +2662,8 @@ RTLFUNC(NPV) CallFunctionAccessFunction( aParams, "NPV", rPar.Get( 0 ) ); } -RTLFUNC(NPer) +void SbRtl_NPer(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 3 || nArgCount > 5 ) @@ -2922,11 +2704,8 @@ RTLFUNC(NPer) CallFunctionAccessFunction( aParams, "NPer", rPar.Get( 0 ) ); } -RTLFUNC(MIRR) +void SbRtl_MIRR(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 3 ) @@ -2953,11 +2732,8 @@ RTLFUNC(MIRR) CallFunctionAccessFunction( aParams, "MIRR", rPar.Get( 0 ) ); } -RTLFUNC(IRR) +void SbRtl_IRR(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 1 || nArgCount > 2 ) @@ -2990,11 +2766,8 @@ RTLFUNC(IRR) CallFunctionAccessFunction( aParams, "IRR", rPar.Get( 0 ) ); } -RTLFUNC(IPmt) +void SbRtl_IPmt(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 4 || nArgCount > 6 ) @@ -3037,11 +2810,8 @@ RTLFUNC(IPmt) CallFunctionAccessFunction( aParams, "IPmt", rPar.Get( 0 ) ); } -RTLFUNC(FV) +void SbRtl_FV(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 3 || nArgCount > 5 ) @@ -3082,11 +2852,8 @@ RTLFUNC(FV) CallFunctionAccessFunction( aParams, "FV", rPar.Get( 0 ) ); } -RTLFUNC(DDB) +void SbRtl_DDB(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 4 || nArgCount > 5 ) @@ -3121,11 +2888,8 @@ RTLFUNC(DDB) CallFunctionAccessFunction( aParams, "DDB", rPar.Get( 0 ) ); } -RTLFUNC(Rate) +void SbRtl_Rate(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - sal_uLong nArgCount = rPar.Count()-1; if ( nArgCount < 3 || nArgCount > 6 ) @@ -3180,11 +2944,8 @@ RTLFUNC(Rate) CallFunctionAccessFunction( aParams, "Rate", rPar.Get( 0 ) ); } -RTLFUNC(StrReverse) +void SbRtl_StrReverse(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - if ( rPar.Count() != 2 ) { StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); @@ -3202,11 +2963,8 @@ RTLFUNC(StrReverse) rPar.Get(0)->PutString( aStr ); } -RTLFUNC(CompatibilityMode) +void SbRtl_CompatibilityMode(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - bool bEnabled = false; sal_uInt16 nCount = rPar.Count(); if ( nCount != 1 && nCount != 2 ) @@ -3224,11 +2982,8 @@ RTLFUNC(CompatibilityMode) rPar.Get(0)->PutBool( bEnabled ); } -RTLFUNC(Input) +void SbRtl_Input(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // 2 parameters needed if ( rPar.Count() < 3 ) { @@ -3260,11 +3015,8 @@ RTLFUNC(Input) rPar.Get(0)->PutString(OStringToOUString(aByteBuffer, osl_getThreadTextEncoding())); } -RTLFUNC(Me) +void SbRtl_Me(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - SbModule* pActiveModule = GetSbData()->pInst->GetActiveModule(); SbClassModuleObject* pClassModuleObject = dynamic_cast<SbClassModuleObject*>( pActiveModule ); SbxVariableRef refVar = rPar.Get(0); diff --git a/basic/source/runtime/props.cxx b/basic/source/runtime/props.cxx index 7c77a34ceb0d..bd967f3ffd4e 100644 --- a/basic/source/runtime/props.cxx +++ b/basic/source/runtime/props.cxx @@ -29,18 +29,13 @@ // at the element 0 of the Argv; at Put (bWrite = sal_True) the value from // element 0 is stored. -RTLFUNC(Erl) +void SbRtl_Erl(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get( 0 )->PutLong( StarBASIC::GetErl() ); } -RTLFUNC(Err) +void SbRtl_Err(StarBASIC *, SbxArray & rPar, bool bWrite) { - (void)pBasic; - if( SbiRuntime::isVBAEnabled() ) { rPar.Get( 0 )->PutObject( SbxErrObject::getErrObject().get() ); @@ -58,679 +53,395 @@ RTLFUNC(Err) } } -RTLFUNC(False) +void SbRtl_False(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutBool( false ); } -RTLFUNC(Empty) -{ - (void)pBasic; - (void)bWrite; - (void)rPar; -} +void SbRtl_Empty(StarBASIC *, SbxArray &, bool) {} -RTLFUNC(Nothing) +void SbRtl_Nothing(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // return an empty object rPar.Get( 0 )->PutObject( nullptr ); } -RTLFUNC(Null) +void SbRtl_Null(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - // returns an empty object-variable rPar.Get( 0 )->PutNull(); } -RTLFUNC(PI) +void SbRtl_PI(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get( 0 )->PutDouble( F_PI ); } -RTLFUNC(True) +void SbRtl_True(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get( 0 )->PutBool( true ); } -RTLFUNC(ATTR_NORMAL) +void SbRtl_ATTR_NORMAL(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(0); } -RTLFUNC(ATTR_READONLY) +void SbRtl_ATTR_READONLY(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(ATTR_HIDDEN) +void SbRtl_ATTR_HIDDEN(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(2); } -RTLFUNC(ATTR_SYSTEM) +void SbRtl_ATTR_SYSTEM(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(4); } -RTLFUNC(ATTR_VOLUME) +void SbRtl_ATTR_VOLUME(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(8); } -RTLFUNC(ATTR_DIRECTORY) +void SbRtl_ATTR_DIRECTORY(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(16); } -RTLFUNC(ATTR_ARCHIVE) +void SbRtl_ATTR_ARCHIVE(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(32); } -RTLFUNC(V_EMPTY) +void SbRtl_V_EMPTY(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(0); } -RTLFUNC(V_NULL) +void SbRtl_V_NULL(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(V_INTEGER) +void SbRtl_V_INTEGER(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(2); } -RTLFUNC(V_LONG) +void SbRtl_V_LONG(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(3); } -RTLFUNC(V_SINGLE) +void SbRtl_V_SINGLE(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(4); } -RTLFUNC(V_DOUBLE) +void SbRtl_V_DOUBLE(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(5); } -RTLFUNC(V_CURRENCY) +void SbRtl_V_CURRENCY(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(6); } -RTLFUNC(V_DATE) +void SbRtl_V_DATE(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(7); } -RTLFUNC(V_STRING) +void SbRtl_V_STRING(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(8); } -RTLFUNC(MB_OK) +void SbRtl_MB_OK(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(0); } -RTLFUNC(MB_OKCANCEL) +void SbRtl_MB_OKCANCEL(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(MB_ABORTRETRYIGNORE) +void SbRtl_MB_ABORTRETRYIGNORE(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(2); } -RTLFUNC(MB_YESNOCANCEL) +void SbRtl_MB_YESNOCANCEL(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(3); } -RTLFUNC(MB_YESNO) +void SbRtl_MB_YESNO(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(4); } -RTLFUNC(MB_RETRYCANCEL) +void SbRtl_MB_RETRYCANCEL(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(5); } -RTLFUNC(MB_ICONSTOP) +void SbRtl_MB_ICONSTOP(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(16); } -RTLFUNC(MB_ICONQUESTION) +void SbRtl_MB_ICONQUESTION(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(32); } -RTLFUNC(MB_ICONEXCLAMATION) +void SbRtl_MB_ICONEXCLAMATION(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(48); } -RTLFUNC(MB_ICONINFORMATION) +void SbRtl_MB_ICONINFORMATION(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(64); } -RTLFUNC(MB_DEFBUTTON1) +void SbRtl_MB_DEFBUTTON1(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(0); } -RTLFUNC(MB_DEFBUTTON2) +void SbRtl_MB_DEFBUTTON2(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(256); } -RTLFUNC(MB_DEFBUTTON3) +void SbRtl_MB_DEFBUTTON3(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(512); } -RTLFUNC(MB_APPLMODAL) +void SbRtl_MB_APPLMODAL(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(0); } -RTLFUNC(MB_SYSTEMMODAL) +void SbRtl_MB_SYSTEMMODAL(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(4096); } -RTLFUNC(IDOK) +void SbRtl_IDOK(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(IDCANCEL) +void SbRtl_IDCANCEL(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(2); } -RTLFUNC(IDABORT) +void SbRtl_IDABORT(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(3); } -RTLFUNC(IDRETRY) +void SbRtl_IDRETRY(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(4); } -RTLFUNC(IDYES) +void SbRtl_IDYES(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(6); } -RTLFUNC(IDNO) +void SbRtl_IDNO(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(7); } -RTLFUNC(CF_TEXT) +void SbRtl_CF_TEXT(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(CF_BITMAP) +void SbRtl_CF_BITMAP(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(2); } -RTLFUNC(CF_METAFILEPICT) +void SbRtl_CF_METAFILEPICT(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(3); } -RTLFUNC(TYP_AUTHORFLD) +void SbRtl_TYP_AUTHORFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(7); } -RTLFUNC(TYP_CHAPTERFLD) +void SbRtl_TYP_CHAPTERFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(4); } -RTLFUNC(TYP_CONDTXTFLD) +void SbRtl_TYP_CONDTXTFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(27); } -RTLFUNC(TYP_DATEFLD) +void SbRtl_TYP_DATEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(0); } -RTLFUNC(TYP_DBFLD) +void SbRtl_TYP_DBFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(19); } -RTLFUNC(TYP_DBNAMEFLD) +void SbRtl_TYP_DBNAMEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(3); } -RTLFUNC(TYP_DBNEXTSETFLD) +void SbRtl_TYP_DBNEXTSETFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(24); } -RTLFUNC(TYP_DBNUMSETFLD) +void SbRtl_TYP_DBNUMSETFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(25); } -RTLFUNC(TYP_DBSETNUMBERFLD) +void SbRtl_TYP_DBSETNUMBERFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(26); } -RTLFUNC(TYP_DDEFLD) +void SbRtl_TYP_DDEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(14); } -RTLFUNC(TYP_DOCINFOFLD) +void SbRtl_TYP_DOCINFOFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(18); } -RTLFUNC(TYP_DOCSTATFLD) +void SbRtl_TYP_DOCSTATFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(6); } -RTLFUNC(TYP_EXTUSERFLD) +void SbRtl_TYP_EXTUSERFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(30); } -RTLFUNC(TYP_FILENAMEFLD) +void SbRtl_TYP_FILENAMEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(2); } -RTLFUNC(TYP_FIXDATEFLD) +void SbRtl_TYP_FIXDATEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(31); } -RTLFUNC(TYP_FIXTIMEFLD) +void SbRtl_TYP_FIXTIMEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(32); } -RTLFUNC(TYP_FORMELFLD) +void SbRtl_TYP_FORMELFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(10); } -RTLFUNC(TYP_GETFLD) +void SbRtl_TYP_GETFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(9); } -RTLFUNC(TYP_GETREFFLD) +void SbRtl_TYP_GETREFFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(13); } -RTLFUNC(TYP_HIDDENPARAFLD) +void SbRtl_TYP_HIDDENPARAFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(17); } -RTLFUNC(TYP_HIDDENTXTFLD) +void SbRtl_TYP_HIDDENTXTFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(11); } -RTLFUNC(TYP_INPUTFLD) +void SbRtl_TYP_INPUTFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(16); } -RTLFUNC(TYP_MACROFLD) +void SbRtl_TYP_MACROFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(15); } -RTLFUNC(TYP_NEXTPAGEFLD) +void SbRtl_TYP_NEXTPAGEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(28); } -RTLFUNC(TYP_PAGENUMBERFLD) +void SbRtl_TYP_PAGENUMBERFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(5); } -RTLFUNC(TYP_POSTITFLD) +void SbRtl_TYP_POSTITFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(21); } -RTLFUNC(TYP_PREVPAGEFLD) +void SbRtl_TYP_PREVPAGEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(29); } -RTLFUNC(TYP_SEQFLD) +void SbRtl_TYP_SEQFLD(StarBASIC * , SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(23); } -RTLFUNC(TYP_SETFLD) +void SbRtl_TYP_SETFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(8); } -RTLFUNC(TYP_SETINPFLD) +void SbRtl_TYP_SETINPFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(33); } -RTLFUNC(TYP_SETREFFLD) +void SbRtl_TYP_SETREFFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(12); } -RTLFUNC(TYP_TEMPLNAMEFLD) +void SbRtl_TYP_TEMPLNAMEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(22); } -RTLFUNC(TYP_TIMEFLD) +void SbRtl_TYP_TIMEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(TYP_USERFLD) +void SbRtl_TYP_USERFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(20); } -RTLFUNC(TYP_USRINPFLD) +void SbRtl_TYP_USRINPFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(34); } -RTLFUNC(TYP_SETREFPAGEFLD) +void SbRtl_TYP_SETREFPAGEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(35); } -RTLFUNC(TYP_GETREFPAGEFLD) +void SbRtl_TYP_GETREFPAGEFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(36); } -RTLFUNC(TYP_INTERNETFLD) +void SbRtl_TYP_INTERNETFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(37); } -RTLFUNC(SET_ON) +void SbRtl_SET_ON(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(SET_OFF) +void SbRtl_SET_OFF(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(0); } -RTLFUNC(TOGGLE) +void SbRtl_TOGGLE(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(2); } -RTLFUNC(FRAMEANCHORPAGE) +void SbRtl_FRAMEANCHORPAGE(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(FRAMEANCHORPARA) +void SbRtl_FRAMEANCHORPARA(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(14); } -RTLFUNC(FRAMEANCHORCHAR) +void SbRtl_FRAMEANCHORCHAR(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(15); } -RTLFUNC(CLEAR_ALLTABS) +void SbRtl_CLEAR_ALLTABS(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(2); } -RTLFUNC(CLEAR_TAB) +void SbRtl_CLEAR_TAB(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(1); } -RTLFUNC(SET_TAB) +void SbRtl_SET_TAB(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(0); } -RTLFUNC(TYP_JUMPEDITFLD) +void SbRtl_TYP_JUMPEDITFLD(StarBASIC *, SbxArray & rPar, bool) { - (void)pBasic; - (void)bWrite; - rPar.Get(0)->PutInteger(38); } |