Dim x$, a$
x$=" Hello World "
Print
Print "input string:>"x$;"<",Len(x$)
Print

Timer=0
For i = 1 To 1000
a$=rtrim(x$)
Next i
Print "Time for Rtrim:";Timer/1000;"ms"

Print ">";a$;"<",Len(a$)
Print

Timer=0
For i = 1 To 1000
a$=ltrim(x$)
Next i
Print "Time for Ltrim:";Timer/1000;"ms"

Print ">";a$;"<",Len(a$)
End

' File rtrim.bas written 13-Jul-2017 23:05:06
'
CFunction ltrim(STRING) STRING
00000000
27BDFFE0 AFBF001C AFB10018 AFB00014 00808021 90910000 3C029D00 8C420040
0040F809 26240001 1220001A A0400000 00002021 24060020 24830001 306300FF
0223282B 54A00006 02248823 26100001 82050000 50A6FFF8 00602021 02248823
323100FF 5220000B A0510000 24030001 00432021 92050000 A0850000 24630001
306300FF 0223202B 1080FFF9 26100001 A0510000 8FBF001C 8FB10018 8FB00014
03E00008 27BD0020
End CFunction
'
CFunction rtrim(STRING) STRING
00000000
27BDFFE0 AFBF001C AFB10018 AFB00014 00808821 90900000 3C029D00 8C420040
0040F809 26040001 1200001D A0400000 02301821 00002821 10000002 24070020
00802821 24A40001 308400FF 0204302B 54C00005 02058023 80660000 10C7FFF8
2463FFFF 02058023 321000FF 5200000C A0500000 24030001 26310001 00432021
92250000 A0850000 24630001 306300FF 0203202B 1080FFF9 26310001 A0500000
8FBF001C 8FB10018 8FB00014 03E00008 27BD0020
End CFunction

//--------------------------------------------
//
// LTrim and RTrim (VB style)
// requires MMBasic for MX170 V5.02 or later
// Syntax for CFunction header:
// ltrim(STRING) STRING
// rtrim(STRING) STRING
//
// eg a$=ltrim(" Hello World")
// PRINT a$ ----> "Hello World"
//--------------------------------------------
// For the TBS-Forum 13.07.2017
//--------------------------------------------

#define _SUPPRESS_PLIB_WARNING
#include <plib.h>
#include "cfunctions.h"

//
// strip leading whitespace from a string
//
char *ltrim(char *string){
unsigned char len = (unsigned char) string[0];
unsigned char i = 0, tr_len;
char *s = GetTempMemory(len+1);

s[0] = 0; // for empty string

if (len > 0) {
//find first occurrence of non whitespace char from the left
while(++i <= len && *++string == 32);

i--; // number of spaces
//remaining string length = len - i
tr_len = len-i;
//copy remaining string to s[]
for(i = 1; i <= tr_len; i++) s[i ] = *string++;

s[0] = tr_len;// store BASIC (trimmed) string length
}
return s;
}

//
// strip trailing whitespace from a string
//
char *rtrim(char *string){
char *tr_string = string; // copy pointer
unsigned char len = (unsigned char) string[0];
unsigned char i = 0, tr_len;
char *s = GetTempMemory(len+1);

s[0] = 0; // for empty string

//if we have an empty string, nothing to do
if (len != 0) {
//find first occurrence of non whitespace char from the right
while(++i <= len && *(--string+len+1) == 32);

i--; // number of spaces
//remaining string length = len - i
tr_len = len-i;
//copy remaining string to s[]
for(i = 1; i <= tr_len; i++) s[i ]= *++tr_string;

s[0] = tr_len;// store BASIC (trimmed) string length
}
return s;
}

void main(){}

char* ltrim(char* string) {
char* ret = string;

// When either the string is empty, or contains no leading space,
// return the same string.
unsigned char len = (unsigned char)*string;
if (!len || *++string != ' ') {
return ret;
}

// At this point, we already know that first character in string is a space...
unsigned char spaces = 1;
// Search first non-space character
while (spaces < len && *++string == ' ') {
++spaces;
}

len -= spaces; // Remaining string length = len - spaces

// Allocate our return string
ret = GetTempMemory(len + 1);

// Copy the rest of the string
char* s = ret;
*s++ = (char)len; // Store BASIC (trimmed) string length
while (len--) {
*s++ = *string++;
}

return ret;
}

char* rtrim(char* string) {
char* ret = string; // Save string pointer

// When either the string is empty, or contains no trailing space,
// return the same string.
unsigned char len = (unsigned char)*string;
if (!len || *(--string+len+1) != ' ') {
return ret;
}
// At this point, we already know that
// the last character in string is a space...
unsigned char spaces = 1;

char* sr=++string+len; // point to the end of the string
// Search first non-space character
while (spaces <= len && *--sr == ' ') {
++spaces;
}

len -= spaces; // Remaining string length = len - spaces

// Allocate our return string
ret = GetTempMemory(256);
*ret = (char)len; // Store BASIC (trimmed) string length

sr = ret; // Copy pointer to ret string
while (len--) {// Copy the string, starting from the first char
*++sr = *++string;
}
return ret;
}

'
' piclovers LTrim version
'
CFunction ltrim1(STRING) STRING
00000000
27BDFFE0 AFBF001C AFB20018 AFB10014 AFB00010 90920000 1240002C 00801021
80830001 24020020 14620027 24900001 2E420002 1440000F 24020020 26100001
82030000 1462000C 24110001 24030020 26310001 323100FF 12510022 26100001
82020000 5043FFFB 26310001 10000003 02518823 24110001 02518823 323100FF
3C029D00 8C420040 0040F809 24040100 1220000E A0510000 24430001 26040001
2631FFFF 323100FF 00918821 92050000 A0650000 26100001 1611FFFC 24630001
10000003 8FBF001C 00801021 8FBF001C 8FB20018 8FB10014 8FB00010 03E00008
27BD0020 3C029D00 8C420040 0040F809 24040100 02518823 1000FFF4 A0510000
End CFunction

'
' RTrim like piclovers LTrim
'
CFunction rtrim1(STRING) STRING
00000000
27BDFFE0 AFBF001C AFB10018 AFB00014 90820000 1040002B 00808021 00821821
80640000 24030020 54830027 02001021 02022021 2483FFFF 8085FFFF 24040020
14A4000C 24110001 24050020 26310001 323100FF 0051202B 14800006 2463FFFF
80640000 5085FFFA 26310001 10000002 00518823 00518823 323100FF 3C029D00
8C420040 0040F809 24040100 1220000E A0510000 26030001 2631FFFF 323100FF
00718821 00401821 24630001 26100001 92040000 1611FFFC A0640000 10000003
8FBF001C 00801021 8FBF001C 8FB10018 8FB00014 03E00008 27BD0020
End CFunction

char* empty(char* string) {
char* ret = string;
return ret;
}

'
' empty function, only returns the input string - for speed test
'
CFunction empty(STRING) STRING
00000000
03E00008 00801021
End CFunction

char *error_str = GetTempMemory(256);

error_str[0]=15;
error_str[1]='m';
error_str[2]='i';
error_str[3]='s';
error_str[4]='s';
error_str[5]='i';
error_str[6]='n';
error_str[7]='g';
error_str[8]=' ';
error_str[9]='s';
error_str[10]='t';
error_str[11]='r';
error_str[12]='i';
error_str[13]='n';
error_str[14]='g';
error_str[15]='!';

// missing arg[0] + arg[1]?
if (string != NULL){
len = (unsigned char) string[0];
}
else {
error(error_str);
}

__attribute__((noinline)) void getFPC(void *a, void *b, volatile unsigned int *c)
{
*c = (unsigned int) (__builtin_return_address (0) - (b -a)) ;
}
void errstring(int a){
volatile unsigned int libAddr ;
getFPC(NULL,&&getFPCLab,&libAddr) ; // warning can be ignored, stupid editor
getFPCLab: { }
unsigned char *s;
static const char err0[]="Unknown error\r\n";
static const char err1[]="Disk Error\r\n";
static const char err2[]="Not Ready\r\n";
static const char err3[]="No File\r\n";
static const char err4[]="Not Opened\r\n";
static const char err5[]="Not Enabled\r\n";
static const char err6[]="No File System\r\n";
static const char err7[]="Not mounted\r\n";
s=(unsigned char *)((void *)err0 + libAddr );
if(a){
if(a==1)s=(unsigned char *)((void *)err1 + libAddr );
if(a==2)s=(unsigned char *)((void *)err2 + libAddr );
if(a==3)s=(unsigned char *)((void *)err3 + libAddr );
if(a==4)s=(unsigned char *)((void *)err4 + libAddr );
if(a==5)s=(unsigned char *)((void *)err5 + libAddr );
if(a==6)s=(unsigned char *)((void *)err6 + libAddr );
if(a==7)s=(unsigned char *)((void *)err7 + libAddr );
error(s);
}
}