CodeBaseTeam wrote:i think i first saw it here: https://github.com/Charles-Pegge/OxygenBasic (under projectsC\ToyInterp)

Yep, someone ported the FreeBASIC/QB64 version to OxygenBasic.

CodeBaseTeam wrote:btw, do you still have Pascal / vbScript versions ?

I found the vbscript version - still looking for the Pascal version.

The Toy.bas file seems the same one listed here: https://groups.google.com/g/comp.lang.basic.misc/c/cCnRUllsli4 To save you that work, here is the code: ' QB64/FreeBasic version of Toy byte-code compiler/interpreter ' June 2012 by Ed Davis (ed_davis2 around yahoo) ' ' To compile with QB64: ' qb64 -...

I've now added C++, using C++ strings. As expected, it is somewhat slower: ⋅ C using switch and cast: gcc -Ofast: 0.86 seconds ⋅ C using ifs, no cast: gcc -Ofast: 1.43 seconds ⋅ C++ using strings, ifs, no casting: g++ -Ofast: 4.25 seconds ⋅ QB64 v1.1: qb64 -x:...

Hi friends, You might be interested. I made a simple algorithm, intentionally brute force with CASE. ... Interesting. I did my own integer-intensive benchmarks a while back. See here: https://www.freebasic.net/forum/viewtopic.php?f=17&t=23489 For your test, I get very different results on my ma...

I've created some (fun!) tasks over at Rosettacode: http://rosettacode.org/wiki/Compiler/lexical_analyzer http://rosettacode.org/wiki/Compiler/syntax_analyzer http://rosettacode.org/wiki/Compiler/code_generator http://rosettacode.org/wiki/Compiler/virtual_machine_interpreter http://rosettacode.org/w...

fxm wrote:UDT direct initializing with strings is not supported at this time, therefore a constructor must be defined.
....

That worked _really_ well! Thank you!

How to (better) initialize the Atr_s UDT below? Given: enum Token_type tk_eoi tk_if ... tk_variable end enum type Atr_s tok as Token_type text as string right_associative as boolean is_binary as boolean is_unary as boolean precedence as integer end type dim shared atr(tk_eoi to tk_variable) as Atr_s...

The problem is not with the version, but with the change to 64-bit code. Correcting the problem required only a small modification, new version in first post, but note that I had only a limited time to test. I should have anticipated this problem and corrected it years ago. Thanks for the quick res...

Has anyone gotten dialogs.bas to work with later versions of FreeBASIC? With fbc 1.02.1 I get: FreeBASIC Compiler - Version 1.02.1 (04-25-2015), built for win64 (64bit) Copyright (C) 2004-2015 The FreeBASIC development team. standalone c:\bin\bas\fb\Dialogs>..\fbc ex1.bas c:\...

fxm wrote:For FreeBASIC version:
- As you are using Windows 64-bit, I think that INTEGER defines a 64 bits integer number.
- Can you test it by using everywhere LONG (32 bits) instead of INTEGER?

1.37 seconds.

Interesting. I thought it would have been much closer to the 1.09 seconds of the INTEGER version.

Here is the code in FreeBasic for an ASCII Mandelbrot, using integers only. dim as integer left_edge = -420 dim as integer right_edge = 300 dim as integer top_edge = 300 dim as integer bottom_edge = -300 dim as integer x_step = 7 dim as integer y_step = 15 dim as integer max_iter = 200 dim as intege...

I'm converting some (working) code from QBasic, and have a question: This works: if 1 then print "? " else print "2" But these generate syntax errors: if 1 then print "? ", else print "2" if 1 then print "? "; else print "2" fbc -lang qb te...