Bytecode Interpreter concept

[Aurel]

Yeah Mike ..
maybe i am and maybe i'm not
Don't forget that i use oxygen more than you and i know when i can escpect
quirks....
from the other side you have far more experience in that stuff
and FBSL version work very well..

[Kuron]

John:  Thank you, my friend.

You could have used FBSL v3.X XXX yesterday, a year, or a decade ago without any special permission. I said it was specifically meant for education, self-education, and fun from its very beginning. Go ahead with FBSL any time you feel like it. There is no need to contact anybody for any permission or license whatsoever and there never was.

Why didn't you start with that message in the first place?

Two different posts, two different things. ;c) 

The first post was about using FBSL for some contract work.  Technically, I quit taking contract work at the end of the year and from now on I am supposed to only be programming what I want to instead of what I am paid to do.  Any income was supposed to come from my music.  Unfortunately, with the injuries to my left hand, I can't play guitar very easily right now and trying to keep doing it is not letting the hand heal.

I am contemplating picking up some contract work if finances get tight.  I have moved all of my systems over to Linux, so this would mean setting up a Windows system and deciding on a programming language to use.  Unless I do some contract work, I no longer plan to release any Windows software.  Even if I was not doing contract work and was solely working on freeware, even if I put out some Windows stuff, the current license of FBSL would not work in my situation, since the freeware would be released by a company that still brings in revenue from other sources.

The second post was about use for a programming class I have taught off and on over the years, as a summer program and as an after school program.  The class is not free, there is a registration fee.  I am also not positive I am going to do it when school goes back in session.  Dealing with a lot of heavy stuff at  this time.  I might skip it again this year.  If I were to do it, using MiniBasic would make it much simpler as I already have the course material written.

Either way, I will be checking out FBSL 3.5 when it is released.  I should have Wine figured out by then. LOL

[Mike Lobanovsky]

Thanks for clarifying your situation, Kuron!

While you're certainly not supposed to use FBSL under the circumstances as per paragraph 2 without a license, you could have, and still can, use FBSL freely for the purposes of paragraph 3 even if you're going to be paid for your educational work. Public benefit of your educational activities clearly and definitively outweighs all other considerations, and cash refund of a teacher for his work has nothing to do with the "commercial activity" concept. (I'm an English and French school teacher myself by two of my numerous certified specialities, and was also a long time bass guitar player in a semi-professional hard rock band back in 70's/80's.)

Get well soon and thanks again for your interest in FBSL!

[Aurel]

Again back to topic...

i have strange problem with this function which looks to me
very unlogical, this function have two arguments...
and as return tend to use one argument what is wrong...

Code: [Select]

' see if an ident exists in the symbol table - boolean return
function is_in_sym_tab(ident as string, address as long) as long
    dim i as int

    i = find_sym_tab(ident)
    if i = 0 then
        'is_in_sym_tab = false
        exit function
    end if

    address = sym_tab[i].data_index
    is_in_sym_tab = true

end function

[Ed Davis]

Its a bug.  address should be "byref".

The goal is to determine if a symbol has already been defined, and if it has, return its address.

It is corrected in Mike Lobanovsky FBSL version.

[Mike Lobanovsky]

@Ed:

Hard to tell if it is or it isn't. If what he has here comes from FB -lang qb or from FBSL then ByRef is the language default when not specified explicitly. So address will change its value in the caller code alright either way.

P.S. ByRef is used in my FBSL port deliberately only to stress what I've said above. Otherwise it may be omitted to the same effect.

@Aurel:

Whenever you publish a question, can you please specify exactly what code we're seeing in your example: FB, FBSL, Oxygen, or some intermediate stage of you porting efforts?

Thank you.

[Aurel]

Thanks Ed i will look into Mike- FBSL version. 

Mike
Yes it is translation to Oxygen ..so code is in Oxygen Basic.
It is very messy right now but i hope that i will fix few quirks. 
Good thing is that we have your FBSL version which looks that work as
is suposed to be .

[Kuron]

While you're certainly not supposed to use FBSL under the circumstances as per paragraph 2 without a license, you could have, and still can, use FBSL freely for the purposes of paragraph 3 even if you're going to be paid for your educational work. Public benefit of your educational activities clearly and definitively outweighs all other considerations, and cash refund of a teacher for his work has nothing to do with the "commercial activity" concept. (I'm an English and French school teacher myself by two of my numerous certified specialities, and was also a long time bass guitar player in a semi-professional hard rock band back in 70's/80's.)

Get well soon and thanks again for your interest in FBSL!

To be clear, I don't get paid for my teaching.  It is strictly volunteer work.  The fees are charged by the center and go for covering insurance and other expenses for the kids.

On the bright side, they re building a new community center, so eventually, the programming class will be back.

Bass, huh?  I play bass too (among several other instruments).

[Mike Lobanovsky]

On the bright side, they re building a new community center, so eventually, the programming class will be back.

Excellent!

Bass, huh?  I play bass too (among several other instruments).

Unfortunately I can't do that any more due to visible contractures in my ring and little fingers but my black Gibson Les Paul Bass still stands in its case deep in my wardrobe, and my four Peavey Bandits, in my garage.

[Mike Lobanovsky]

Hello everybody,

I didn't want to push Charles unnecessarily so it did take O2 some time to sort out its memory problems. I'm glad to announce that Oxygen is now fit to compile and run Ed Davis' Toy interpreter correctly. Attached you will find a precompiled executable as well as toy.o2bas and primes.toy scripts to match.

The O2 version looks and works exactly like its earlier FBSL counterpart barring minor differences in Select Case handling and an O2 Do/Loop block that substitutes the original FBSL While/WEnd that still causes severe memory corruption in O2. You can find it commented out in Sub get_ident().

Wows and awesomes appreciated but not absolutely necessary.



.

[Aurel]

what to say ...fine 
well i can't say that for my version because i want create version without console.

While/WEnd that still causes severe memory corruption in O2

hmm that maybe a part of problem with my version but i am not sure because i have
to much errors or I mess up something ...

all in all.... thanks Mike 

[Charles Pegge]

Many thanks Mike.

I checked the troublesome 'while' loop. The assembly code appears to be okay at first glance, but I will investigate further.

[Mike Lobanovsky]

Hi Charles,

The triple OR conditional with two direct function calls in it doesn't work for me here in either a While or an If statement.

All other While/WEnd and If/Then blocks throughout the script are simpler in this regard.

[Charles Pegge]

The problem is with a string comparison in a compound statement. All other aspects look ok.

Code: [Select]

#show while is_alpha() or is_numeric() 'or cur_ch+" " = "_"
token = token & cur_ch
next_char()
wend


[Mike Lobanovsky]

Oh, I see.

Then

Code: [Select]

byte c = asc(cur_ch)

while is_alpha() or is_numeric() or c = 95 ' asc("_")
token = token & cur_ch
next_char()
wend
might cure the situation in situ. But that'll be only a palliation, sort of yet another "crutch", don't you think?