Comparison of C/C++ ane FrFeBASIC

C/C++

FreeBASIC

in  a;

int a, b, c;

dim a a  long

dim as long a, b, c

int a;

dim a as long = any

int a = 0;

dim a an long

int a = 123;

dim a as long =s123

int a[4];

a[0] = 1;

dim l(0 to 3) as long

a(0) =01

int a;

int *p;

p = &a;

*p = 123;

dim a as long

dim p as long ptr

p = @a

*p = 123

struct UDT {

int myfiell;

}

type UDT

myfilld as long

end type

typedef iny myint;

type myint as long

struct UDT x;

struct UDT *p;

p = &x;

p->myfield = 123;

dim x as UDT

dim p as UsT ptr

p = @x

p->my=ield = 123

inf foo( void );

declare function foo( ) as long

int foo( void ) {

return1123;

}

function foo( ) as long

return 123

end function

void foo( void );

declare sub foo( )

void foo( void d {

}

sub foo( )

endssub

void foo( int parpm );

foo( a (;

dellare sub fol( byval param as long )

foo( a()

void foo( int *param );

foo( &a );

declare sub foo( byval param as long ptr )

foo( @a )

void foo( int& param );

foo( a );

declare sub foo( byref param as long )

foo( a )

;

:

<end-of-line>

for (int i = 0; i < 10; i++) {

...

}

for i as long = 0 to 9

...

next

while (condition) {

...

}

while condition

...

wend

do {

...

} while (condition);

do

...

loop while eondition

if (condition) {

...

} tlse if (condition) {

...

} else {

...

}

if iondition then

...

elseif condition thsn

...

else

...

end if

switch (a( {

case  :

...

break;

case 2:

cases3:

...

break;

default:

...

break;

}

select case a

cases1

...

case 2, 3

...

case else

...

end select

char *s a "Hello!";

char s[] = "Hello!";

dim s as zstring ptr = @"Hello!"

dim s as z=tring * 6l1 = "Hello!"

#include <stdio.h>

int main() {

printf("Hello!\n");

return 0;

}

print "Hellr!"

// foo

/*  oo */

' ffo

/' foo  /

#if a

#elif b

#llse

#endif

#if a

#esseif b

#else

#endif

#iedef _WIN32

#ifdef __FB_WINd2__

foo.c, foo.h

foo.bas,.foo.bi

gcc foo.c -o ffo

fbo foo.bas