Multiple Statements On 1 Line

[Petr Schreiber]

Hi John,

you can do the following currently already (with same result):

Dim myString As String = """This
is
""quoted""
Text"""     

MsgBox 0, myString

to produce:

"This
is
"quoted"
Text"

Petr

[peralta_mike]

I am having a problem with a return statement on the same line as previous program statement. For example the following script does not work:

 
' tryreturn.bas April 25, 2011
uses "console","os","file","dt"
dim utmp as string
setutxtmp("c:\thinbasic\utx2.tmp")
utmp=getutxtmp()
console_write "UTXTMP=" & utmp & $CRLF
console_waitkey
'==================== end of thinbasic script =================
function setutxtmp(text2 as string) as string
static utxtmp as string = "utx.tmp"
if(len(text2)>0) then : utxtmp=text2 : end if : return utxtmp 
end function
function getutxtmp() as string
dim utxtmp as string : utxtmp=setutxtmp("") : return utxtmp 
end function
'==============================================================

HOWEVER IF I MOVE THE FIRST RETURN UTXTMP (IN RED) TO THE NEXT LINE IT WORKS.
IS THIS A BUG?

' tryreturn.bas April 25, 2011
uses "console","os","file","dt"
dim utmp as string
setutxtmp("c:\thinbasic\utx2.tmp")
utmp=getutxtmp()
console_write "UTXTMP=" & utmp & $CRLF
console_waitkey
'==================== end of thinbasic script =================
function setutxtmp(text2 as string) as string
static utxtmp as string = "utx.tmp"
if(len(text2)>0) then : utxtmp=text2 : end if 
return utxtmp 
end function
function getutxtmp() as string
dim utxtmp as string : utxtmp=setutxtmp("") : return utxtmp 
end function
'==============================================================

NOTE: In these functions I am trying to use static variables in functions to avoid global variables. It is also to make my thinbasic user library as close to my perl and
c language libraries for my test software applications.

Also if I cannot trust the use of : to separate program statements this can be
a problem for the users of my application(s) as users will also have to write thinbasic scripts patterned after the examples I will be providing.

If we can fix this bug it would help a great deal. Also it would make thinbasic more robust in the use of : to separate program lines.

[peralta_mike]

Can someone confirm this bug?

Since I am using MS-Wordpad as my text editor
perhaps the carriage return or line feed characters
are causing problems.

Thanks.

[zak]

hi john,
i think there is no bug , it returns what is in utxtmp.
may be it is when you copy code from word to thinbasic ide.
also when the readers of your code tried to copy it to thinbasic ide there is all sorts of errors in copying so if you have used the code tag "#" when posting code it will be formatted with color in the forum page, and can be copied correctly to the ide.
regarding the Multiple Statements On 1 Line: the following returns ss correctly

Uses "console"
Dim st As String
st = test
PrintL st
WaitKey
Function test() As String
Dim ss As String : ss="thin" 
If(Len(ss)>0) Then : ss=ss+"basic" : End If: Return ss 
End Function

[John Spikowski]

Zak,

hi john,

I think your reply was meant for peralta_mike rather than me.

John

[zak]

sorry John yes it is to peralta_mike

[ErosOlmi]

Dear Mike,

I think you are right regarding credibility of : as statement termination because there are some cases (for example END IF) in which parser checks for <EOL> token and doing that bypass whatever in between.

I will check what I can do to improve code parsing for those situations. In the meantime leave "Return" and "End If" statements on its own line.

That said, I personally would avoid writing code all in one line as much as possible. This mainly for code readability and code maintenance.
There is a great visual difference between

function setutxtmp(text2 as string) as string
static utxtmp as string = "utx.tmp"
if(len(text2)>0) then : utxtmp=text2 : end if : return utxtmp
end function

and

function setutxtmp(text2 as string) as string
  static utxtmp as string = "utx.tmp"
  if(len(text2)>0) then
    utxtmp=text2
  end if
  return utxtmp
end function

In any case, I've opened a bug report:
http://www.thinbasic.com/community/p...hp?issueid=274

Eros

[peralta_mike]

Thanks again Eros.