diff options
| author | Damjan Jovanovic <damjan@apache.org> | 2015-12-15 04:40:45 +0000 |
|---|---|---|
| committer | Caolán McNamara <caolanm@redhat.com> | 2015-12-15 13:48:28 +0000 |
| commit | 98f0e0eda50690bd01842c806bd13e3bc5af2966 (patch) | |
| tree | d6c5d85aaae21d365bd8731bc7c4e93b9619d031 /basic/source/runtime/methods.cxx | |
| parent | f2996d8f4573a2cdb1621215d721983891759aa2 (diff) | |
Resolves: #i19221# Print Tab(5); "Hello" does not work
Implement the Tab() function in AOO Basic.
Patch by: me
(cherry picked from commit fa1315d25186643ea537972609c117e0c9bb1fbc)
Change-Id: Ifa9843661ce3862347c6351a078ddb207169182a
Diffstat (limited to 'basic/source/runtime/methods.cxx')
| -rw-r--r-- | basic/source/runtime/methods.cxx | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/basic/source/runtime/methods.cxx b/basic/source/runtime/methods.cxx index aad84105a293..fb0732903d4c 100644 --- a/basic/source/runtime/methods.cxx +++ b/basic/source/runtime/methods.cxx @@ -1725,6 +1725,21 @@ RTLFUNC(String) } } +RTLFUNC(Tab) +{ + (void)pBasic; + (void)bWrite; + + if ( rPar.Count() < 2 ) + StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); + else + { + OUStringBuffer aStr; + comphelper::string::padToLength(aStr, rPar.Get(1)->GetLong(), '\t'); + rPar.Get(0)->PutString(aStr.makeStringAndClear()); + } +} + RTLFUNC(Tan) { (void)pBasic; |