Print Page - MY-BASIC

BASIC Developer & Support Resources => Interpreters => Topic started by: John on July 25, 2013, 12:03:49 AM

Title: MY-BASIC
Post by: John on July 25, 2013, 12:03:49 AM

I have compiled MY-BASIC for Windows (VS2008), Ubuntu 32/64 bit (gcc) and Android Linux (gcc). I view MY-BASIC as a SB-LITE like BASIC that is portable, extensible and embeddable. I modified it a bit and changed the ] prompt to be > with a space after it. I also took the startup info and made it part of the help screen. On startup of the shell, it displays MY-BASIC and the version number before dropping to the prompt. I optimized and stripped the Linux versions. The final executable sized range from 102 KB to 56 KB depending on the platform. The following is what MY-BASIC doesn't have that ScriptBasic does.

SUB/FUNCTION support
File support
Socket support
System calls
External library support

If all you're looking for is a simple to use embeddable BASIC, MY-BASIC is very well done and fast for being an interpreter. I see MY-BASIC as a great foundation for someone that wants to create there own BASIC but doesn't have the skills to start from scratch. MY-BASIC would be a good teaching tool for kids to learn BASIC programming.

Windows XP
(http://files.allbasic.info/my-basic/my-basic_win32.png)

Android Linux
(http://files.allbasic.info/my-basic/my-basic_android.png)

Ubuntu Linux
(http://files.allbasic.info/my-basic/my-basic_ubuntu64.png)

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 08:41:30 AM

Hi Tony,

Just noticed your post on the BP.org site. I have been playing with your BASIC for a couple of years. I even have it running native on Android. I had posted the info I had here on All BASIC on BP.org but there seemed to be very little interest.

I'm not surprised as the Bitter BASIC Boys (and their toys) spend most of their time feeling miserable and pissed off their attempts at creating a BASIC of their own wasn't as easy as they anticipated. Their way to deal with it is to trash those that have made the commitment to do it right. Sad really.

John

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 11:25:03 AM

I was able to compile the new release on Linux 64 bit.

jrs@laptop:~/mybasic/my_basic-master$ ./mybasic MY-BASIC Interpreter Shell - 1.0.0050. Copyright (C) 2011 - 2015 W. Renxin. All Rights Reserved. For more information, see https://github.com/paladin-t/my_basic/. Input HELP and hint enter to view help information. ]HELP Commands: CLS - Clear screen NEW - Clear current program RUN - Run current program BYE - Quit interpreter LIST - List current program Usage: LIST [l [n]], l is start line number, n is line count EDIT - Edit a line in current program Usage: EDIT n, n is line number LOAD - Load a file as current program Usage: LOAD *.* SAVE - Save current program to a file Usage: SAVE *.* KILL - Delete a file Usage: KILL *.* ]BYE jrs@laptop:~/mybasic/my_basic-master$

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 12:14:27 PM

Markus (Cybermonkey),

You must have been reading My_Mind. I have compiled MY-BASIC on all major platforms and wanted to create a Script BASIC extension module embedding My_Basic. It might make a nice addition to the TinyScheme and Perl extension modules I did. The nice aspect of all three of the language extensions is they are interpretive and typeless. (like Script BASIC the host)

I'm slammed with a project at the moment but when I have some free time I'll take a shot of creating the Script BASIC MY-BASIC extension module using C BASIC.

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 04:07:55 PM

I put together a quick extension module for MY-BASIC and seem to have a problem passing a string. ???

interface.c

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
struct mb_interpreter_t* bas = 0;
 
besFUNCTION(mbas_init)
  DIM AS int rtnval;
  rtnval = mb_init();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_dispose)
  DIM AS int rtnval;
  rtnval = mb_dispose();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_open)
  DIM AS int rtnval;
  rtnval = mb_open(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_close)
  DIM AS int rtnval;
  rtnval = mb_close(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  DIM AS int rtnval;  
  besARGUMENTS("z")
    AT pgm
  besARGEND
  rtnval = mb_load_string(AT bas, pgm);
  besRETURN_LONG(rtnval);
besEND
  
besFUNCTION(mbas_run)
  DIM AS int rtnval;
  rtnval = mb_run(AT bas);
  besRETURN_LONG(rtnval);
besEND
 

testmb.sb

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_init
mb_open
mb_load_str("10 PRINT \"Hello MY-BASIC\"")
mb_run
mb_close
mb_dispose
 

Output
jrs@laptop:~/sb/sb22/mybasic$ scriba testmb.sb scriba: my_basic.c:3736: mb_load_string: Assertion `s && s->parsing_context' failed. Aborted (core dumped) jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 04:35:49 PM

I thought I would change the interface.c so that the bas (MY-BASIC execution object pointer) wasn't a global variable. I also added code to the testmb.sb script to make sure I was getting proper return values prior to the mb_load_str() call.

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
besFUNCTION(mbas_init)
  DIM AS int rtnval;
  rtnval = mb_init();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_dispose)
  DIM AS int rtnval;
  rtnval = mb_dispose();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_open)
  DIM AS struct mb_interpreter_t* bas = 0;
  DIM AS int rtnval;
  rtnval = mb_open(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_close)
  DIM AS struct mb_interpreter_t* bas;
  DIM AS int rtnval;
  rtnval = mb_close(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS struct mb_interpreter_t* bas;
  DIM AS const char PTR pgm;
  DIM AS int rtnval;  
  besARGUMENTS("z")
    AT pgm
  besARGEND
  rtnval = mb_load_string(AT bas, pgm);
  besRETURN_LONG(rtnval);
besEND
  
besFUNCTION(mbas_run)
  DIM AS struct mb_interpreter_t* bas;
  DIM AS int rtnval;
  rtnval = mb_run(AT bas);
  besRETURN_LONG(rtnval);
besEND
 

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
CONST MB_FUNC_OK = 0
 
IF mb_init() = MB_FUNC_OK THEN PRINT "mb_init = OK\n"
IF mb_open() = MB_FUNC_OK THEN PRINT "mb_open = OK\n"
mb_load_str("10 PRINT \"Hello MY-BASIC\"")
mb_run
mb_close
mb_dispose
 

jrs@laptop:~/sb/sb22/mybasic$ scriba testmb.sb mb_init = OK mb_open = OK scriba: my_basic.c:3736: mb_load_string: Assertion `s && s->parsing_context' failed. Aborted (core dumped) jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: AIR on April 20, 2015, 05:32:51 PM

Code: [Select]

struct mb_interpreter_t* bas = 0;
...
rtnval = mb_load_string(AT bas, pgm);

Code: [Select]

MBAPI int mb_load_string(mb_interpreter_t* s, const char* l);

Your call doesn't match the function declaration.

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 05:35:33 PM

Code: Text

jrs@laptop:~/mybasic/my_basic-master$ ./mybasic
MY-BASIC Interpreter Shell - 1.0.0050.
Copyright (C) 2011 - 2015 W. Renxin. All Rights Reserved.
For more information, see https://github.com/paladin-t/my_basic/.
Input HELP and hint enter to view help information.
]10 PRINT "Hello MY-BASIC"
]RUN
Error:
    [LINE] 1, [COL] 2,
    [CODE] 44, [MESSAGE] Invalid expression, [ABORT CODE] 1003
 
]
 

I guess I forgot how to program in BASIC. ???

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 05:47:06 PM

My-BASIC can't print literal strings? I'm still getting the same error with code that works in the standalone interpreter.

Code: Text

]NEW
]a$ = "Hello"
]PRINT a$
]RUN
Hello
]BYE
 

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
CONST MB_FUNC_OK = 0
 
IF mb_init() = MB_FUNC_OK THEN PRINT "mb_init = OK\n"
IF mb_open() = MB_FUNC_OK THEN PRINT "mb_open = OK\n"
mb_code = """
a$ = "Hello My-BASIC"
PRINT a$
"""
mb_load_str(mb_code)
mb_run
mb_close
mb_dispose
 

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 05:56:49 PM

I changed the function but it still gives the same error. I guess I don't understand what you mean.

Code: C

besFUNCTION(mbas_load_str)
  DIM AS struct mb_interpreter_t* bas;
  DIM AS const char PTR pgm;
  DIM AS int rtnval;  
  besARGUMENTS("z")
    AT pgm
  besARGEND
  rtnval = mb_load_string(AT bas, AT pgm);
  besRETURN_LONG(rtnval);
besEND
 

Title: Re: MY-BASIC
Post by: AIR on April 20, 2015, 06:01:14 PM

That assertion error is thrown by this:

Code: [Select]

mb_assert(s && s->parsing_context);
Which means 's' is either wrong or is being _passed_ wrong.

Look more closely at what I posted above for the prototype, and look at how _you're_ passing the parameters.

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 06:13:28 PM

I guess I don't get what is obvious to you. :-\

I thought what you meant was ALL struct mb_interpreter_t* bas = 0; needed to initialized NULL (zero). It still gives the same error so I'm lost.

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
besFUNCTION(mbas_init)
  DIM AS int rtnval;
  rtnval = mb_init();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_dispose)
  DIM AS int rtnval;
  rtnval = mb_dispose();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_open)
  DIM AS struct mb_interpreter_t* bas = 0;
  DIM AS int rtnval;
  rtnval = mb_open(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_close)
  DIM AS struct mb_interpreter_t* bas = 0;
  DIM AS int rtnval;
  rtnval = mb_close(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS struct mb_interpreter_t* bas = 0;
  DIM AS const char PTR pgm;
  DIM AS int rtnval;  
  besARGUMENTS("z")
    AT pgm
  besARGEND
  rtnval = mb_load_string(AT bas, pgm);
  besRETURN_LONG(rtnval);
besEND
  
besFUNCTION(mbas_run)
  DIM AS struct mb_interpreter_t* bas = 0;
  DIM AS int rtnval;
  rtnval = mb_run(AT bas);
  besRETURN_LONG(rtnval);
besEND
 

Since this works, I'm assuming the AT bas is correct.

Code: C

besFUNCTION(mbas_open)
  DIM AS struct mb_interpreter_t* bas = 0;
  DIM AS int rtnval;
  rtnval = mb_open(AT bas);
  besRETURN_LONG(rtnval);
besEND
 

Can you give a clue I might understand?

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 06:29:46 PM

I was wrong. Just don't use line numbers. (Paul Dunn :P )

Code: [Select]

jrs@laptop:~/mybasic/my_basic-master$ ./mybasic
MY-BASIC Interpreter Shell - 1.0.0050.
Copyright (C) 2011 - 2015 W. Renxin. All Rights Reserved.
For more information, see https://github.com/paladin-t/my_basic/.
Input HELP and hint enter to view help information.
]PRINT "HellO"
]RUN
HellO
]

Title: Re: MY-BASIC
Post by: AIR on April 20, 2015, 06:31:33 PM

Again, look at the function DECLARATION. Ask yourself what "mb_interpreter_t* s" is.

Then compare it to what you are passing to the function. It's not what the function requires.

That is what the assert is trying to tell you.

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 06:48:15 PM

Here are the command lines I'm using to compile the module.
gcc -O2 -w -m64 -fPIC -c my_basic.c -lm -o my_basic.o gcc -O2 -w -m64 -fPIC -c interface.c -lm -o interface.o ld -shared -fPIC interface.o my_basic.o -lm -o mb.so

This is the example I used from the MY-BASIC docs. (PDF)

Code: C

struct mb_interpreter_t* bas = 0;
mb_open(&bas);
 

The mb_open() function works in my code so I must be handling call correctly. IMHO

I'm totally clueless about the point you're trying to make.

Title: Re: MY-BASIC
Post by: AIR on April 20, 2015, 07:29:37 PM

struct mb_interpreter_t* bas = 0;

Creates a pointer to a mb_interpreter struct. Intialized to 0.

MBAPI int mb_load_string(mb_interpreter_t* s, const char* l);

The signature/declaration of the function you're trying to call. ALL OTHER FUNCTIONS ARE IRRELEVANT, THIS IS THE ONE GIVING YOU THE PROBLEM.

rtnval = mb_load_string(AT bas, pgm);

THIS IS HOW YOU ARE CALLING THE FUNCTION.

"AT bas" translates to "&bas". So you are NOT passing an mb_interpreter POINTER to the function, you are essentially passing the first FIELD of the struct.

mb_assert(s && s->parsing_context); is telling you that the parameter you passed is INVALID. BECAUSE it's NOT a Pointer to an mb_interpreter_t structure.

I leave it to you to fix now.

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 07:52:18 PM

I changed the code based on what I think you are saying. Okay, I give up and have to finish the project I'm working on to feed me. Can you just tell me where I'm screwing up and I'll remember it for next time.

Quote from: Tony

3. String pushing. Pelase git a updated revision and use 'mb_memdup' to generate a MY-BASIC managable string before pushing, you can find more information about this API in the ref doc pdf or search for it in https://github.com/paladin-t/my_basic/wiki/File-module for a demo usage.

Code: C

static int _file_open(struct mb_interpreter_t* s, void** l) {
    int result = MB_FUNC_OK;
    FILE* fp = 0;
    char* fn = 0;
    char* fm = 0;
 
    mb_assert(s && l);
 
    mb_check(mb_attempt_open_bracket(s, l));
 
    mb_check(mb_pop_string(s, l, &fn));
 
    mb_check(mb_pop_string(s, l, &fm));
 
    mb_check(mb_attempt_close_bracket(s, l));
 
....
 

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
besFUNCTION(mbas_init)
  DIM AS int rtnval;
  rtnval = mb_init();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_dispose)
  DIM AS int rtnval;
  rtnval = mb_dispose();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_open)
  DIM AS struct mb_interpreter_t* bas = 0;
  DIM AS int rtnval;
  rtnval = mb_open(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_close)
  DIM AS struct mb_interpreter_t* bas;
  DIM AS int rtnval;
  rtnval = mb_close(bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS struct mb_interpreter_t* bas;
  DIM AS const char PTR pgm;
  DIM AS int rtnval;  
  besARGUMENTS("z")
    AT pgm
  besARGEND
  rtnval = mb_load_string(bas, pgm);
  besRETURN_LONG(rtnval);
besEND
  
besFUNCTION(mbas_run)
  DIM AS struct mb_interpreter_t* bas;
  DIM AS int rtnval;
  rtnval = mb_run(bas);
  besRETURN_LONG(rtnval);
besEND
 

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 08:29:25 PM

I think the issue is that the string needs to be pushed to the structure before use.

Code: C

int mb_push_string(struct mb_interpreter_t* s, void** l, char* val);
 

Quote

This function pushes an argument of char* to an interpreter structure.

Title: Re: MY-BASIC
Post by: wangrenxin on April 20, 2015, 08:29:46 PM

Hi all,

Glad to join here!

There are a lot of magic macros, where can I get header files including definitions of the macros?

WRX.

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 08:33:42 PM

Welcome Tony!

Attached is the C BASIC (cbasic.h #define's). Thanks for having a peek.

The Script BASIC extension API is defined in basext.h.

Title: Re: MY-BASIC
Post by: AIR on April 20, 2015, 08:52:31 PM

Code: [Select]

#include "my_basic.c"

static struct mb_interpreter_t* bas = 0;

int main (int argc, char** argv) {
	int retval;
	 	
	mb_open(&bas);
	
	retval = mb_load_string(bas,"print \"Hello, World!\n\"");

	retval = mb_run(bas);


	return retval;
}

Edit: This is on my Mac. Outputs "Hello, World!" as expected.

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 09:03:03 PM

Thanks AIR!

That is helpful. I thought mb_init() was the first call before any others were made. It doesn't seem to be needed in your example.

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 09:10:40 PM

Still no luck but now I'm getting a segmentation fault rather than a parse error.

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
static struct mb_interpreter_t* bas = 0;
 
besFUNCTION(mbas_init)
  DIM AS int rtnval;
  rtnval = mb_init();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_dispose)
  DIM AS int rtnval;
  rtnval = mb_dispose();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_open)
  DIM AS int rtnval;
  rtnval = mb_open(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_close)
  DIM AS int rtnval;
  rtnval = mb_close(bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  DIM AS int rtnval;  
  besARGUMENTS("z")
    AT pgm
  besARGEND
  rtnval = mb_load_string(bas, pgm);
  besRETURN_LONG(rtnval);
besEND
  
besFUNCTION(mbas_run)
  DIM AS int rtnval;
  rtnval = mb_run(bas);
  besRETURN_LONG(rtnval);
besEND
 

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
CONST MB_FUNC_OK = 0
 
' IF mb_init() = MB_FUNC_OK THEN PRINT "mb_init = OK\n"
IF mb_open() = MB_FUNC_OK THEN PRINT "mb_open = OK\n"
mb_code = "PRINT \"Hello\"\n"
mb_load_str(mb_code)
mb_run
mb_close
mb_dispose
 

jrs@laptop:~/sb/sb22/mybasic$ scriba testmb.sb mb_open = OK Segmentation fault (core dumped) jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 09:27:24 PM

It works! Thanks AIR for your help tonight!

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
static struct mb_interpreter_t* bas = 0;
 
besFUNCTION(mbas_init)
  DIM AS int rtnval;
  rtnval = mb_init();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_dispose)
  DIM AS int rtnval;
  rtnval = mb_dispose();
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_open)
  DIM AS int rtnval;
  rtnval = mb_open(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_close)
  DIM AS int rtnval;
  rtnval = mb_close(AT bas);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  DIM AS int rtnval;  
  besARGUMENTS("z")
    AT pgm
  besARGEND
  rtnval = mb_load_string(bas, pgm);
  besRETURN_LONG(rtnval);
besEND
  
besFUNCTION(mbas_run)
  DIM AS int rtnval;
  rtnval = mb_run(bas);
  besRETURN_LONG(rtnval);
besEND
 

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_init()
mb_open()
mb_load_str("PRINT \"Hello MY-BASIC from Script BASIC\"\nPRINT\n")
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ time scriba testmb.sb Hello MY-BASIC from Script BASIC real 0m0.004s user 0m0.000s sys 0m0.007s jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: wangrenxin on April 20, 2015, 09:38:54 PM

Interesting macros.

Value pop/push are only used to interactive between MB script and host, so you don't need to use mb_memdup or push anything for loading a script code.

Some idea might help:
mb_open/mb_close requires an 'mb_interpreter_t**' typed argument;
mb_load_string requires 'mb_interpreter_t*, const char*';
mb_run requires 'mb_interpreter_t*';

The main procedure should be somehow like:

Code: C

mb_init
mb_open
        mb_load_str("something...")
        mb_run
        
        mb_load_str("something else...")
        mb_run
        
        ...
mb_close
mb_dispose
 

Where bas is a valid mb_interpreter_t*. A null 'bas' triggered the assertion.

I figured out you got many 'DIM AS struct mb_interpreter_t* bas = 0;' in every besFUNCTION in early posts, the latest post using a global 'bas' should be ok. Calling mb_init at the beginning is necessary, and check if there's any more problem.

BTW. It should be 'rtnval = mb_close(AT bas);' in besFUNCTION(mbas_close).

Title: Re: MY-BASIC
Post by: wangrenxin on April 20, 2015, 09:43:15 PM

Cheers :)

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 10:10:32 PM

Thanks for joining and mentoring the MY-BASIC project here on All BASIC. I hope to include the rest of the API in the extension module. Script BASIC now has TinyScheme, Perl and MY-BASIC extension modules to play with. 8)

BTW - The mb_assert() function doesn't seem to be exported in the API version of MY-BASIC. I noticed the function in your File addition you mention on github.

Title: Re: MY-BASIC
Post by: wangrenxin on April 20, 2015, 10:33:30 PM

Quote from: John on April 20, 2015, 10:10:32 PM

The mb_assert() function doesn't seem to be exported in the API version of MY-BASIC.

It's not an actual function, it's a macro wrapper of the standard assert macro. It's defined in my_basic.h.

For more information about assertions, please see: http://en.wikipedia.org/wiki/Assertion_(software_development) (http://en.wikipedia.org/wiki/Assertion_(software_development))

Title: Re: MY-BASIC
Post by: John on April 20, 2015, 11:29:25 PM

Final clean up.

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
static struct mb_interpreter_t* bas = 0;
 
besFUNCTION(mbas_init)
  besRETURN_LONG(mb_init());
besEND
 
besFUNCTION(mbas_dispose)
  besRETURN_LONG(mb_dispose());
besEND
 
besFUNCTION(mbas_open)
  besRETURN_LONG(mb_open(AT bas));
besEND
 
besFUNCTION(mbas_close)
  besRETURN_LONG(mb_close(AT bas));
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_string(bas, pgm));
besEND
  
besFUNCTION(mbas_run)
  besRETURN_LONG(mb_run(bas));
besEND
 

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 08:42:00 AM

Here is a Prime Number (benchmark) running under MY-BASIC as a Script BASIC extension module call.

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_init()
mb_open()
 
mb_code = """
FOR i = 3 TO 5000
  f = 1
  FOR j = 2 TO SQR(i)
    IF i MOD j = 0 THEN f = 0 : EXIT
  NEXT j
  IF f = 1 THEN PRINT i," "
NEXT i
PRINT ,
"""
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ time scriba mbprime.sb 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401 409 419 421 431 433 439 443 449 457 461 463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571 577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661 673 677 683 691 701 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821 823 827 829 839 853 857 859 863 877 881 883 887 907 911 919 929 937 941 947 953 967 971 977 983 991 997 1009 1013 1019 1021 1031 1033 1039 1049 1051 1061 1063 1069 1087 1091 1093 1097 1103 1109 1117 1123 1129 1151 1153 1163 1171 1181 1187 1193 1201 1213 1217 1223 1229 1231 1237 1249 1259 1277 1279 1283 1289 1291 1297 1301 1303 1307 1319 1321 1327 1361 1367 1373 1381 1399 1409 1423 1427 1429 1433 1439 1447 1451 1453 1459 1471 1481 1483 1487 1489 1493 1499 1511 1523 1531 1543 1549 1553 1559 1567 1571 1579 1583 1597 1601 1607 1609 1613 1619 1621 1627 1637 1657 1663 1667 1669 1693 1697 1699 1709 1721 1723 1733 1741 1747 1753 1759 1777 1783 1787 1789 1801 1811 1823 1831 1847 1861 1867 1871 1873 1877 1879 1889 1901 1907 1913 1931 1933 1949 1951 1973 1979 1987 1993 1997 1999 2003 2011 2017 2027 2029 2039 2053 2063 2069 2081 2083 2087 2089 2099 2111 2113 2129 2131 2137 2141 2143 2153 2161 2179 2203 2207 2213 2221 2237 2239 2243 2251 2267 2269 2273 2281 2287 2293 2297 2309 2311 2333 2339 2341 2347 2351 2357 2371 2377 2381 2383 2389 2393 2399 2411 2417 2423 2437 2441 2447 2459 2467 2473 2477 2503 2521 2531 2539 2543 2549 2551 2557 2579 2591 2593 2609 2617 2621 2633 2647 2657 2659 2663 2671 2677 2683 2687 2689 2693 2699 2707 2711 2713 2719 2729 2731 2741 2749 2753 2767 2777 2789 2791 2797 2801 2803 2819 2833 2837 2843 2851 2857 2861 2879 2887 2897 2903 2909 2917 2927 2939 2953 2957 2963 2969 2971 2999 3001 3011 3019 3023 3037 3041 3049 3061 3067 3079 3083 3089 3109 3119 3121 3137 3163 3167 3169 3181 3187 3191 3203 3209 3217 3221 3229 3251 3253 3257 3259 3271 3299 3301 3307 3313 3319 3323 3329 3331 3343 3347 3359 3361 3371 3373 3389 3391 3407 3413 3433 3449 3457 3461 3463 3467 3469 3491 3499 3511 3517 3527 3529 3533 3539 3541 3547 3557 3559 3571 3581 3583 3593 3607 3613 3617 3623 3631 3637 3643 3659 3671 3673 3677 3691 3697 3701 3709 3719 3727 3733 3739 3761 3767 3769 3779 3793 3797 3803 3821 3823 3833 3847 3851 3853 3863 3877 3881 3889 3907 3911 3917 3919 3923 3929 3931 3943 3947 3967 3989 4001 4003 4007 4013 4019 4021 4027 4049 4051 4057 4073 4079 4091 4093 4099 4111 4127 4129 4133 4139 4153 4157 4159 4177 4201 4211 4217 4219 4229 4231 4241 4243 4253 4259 4261 4271 4273 4283 4289 4297 4327 4337 4339 4349 4357 4363 4373 4391 4397 4409 4421 4423 4441 4447 4451 4457 4463 4481 4483 4493 4507 4513 4517 4519 4523 4547 4549 4561 4567 4583 4591 4597 4603 4621 4637 4639 4643 4649 4651 4657 4663 4673 4679 4691 4703 4721 4723 4729 4733 4751 4759 4783 4787 4789 4793 4799 4801 4813 4817 4831 4861 4871 4877 4889 4903 4909 4919 4931 4933 4937 4943 4951 4957 4967 4969 4973 4987 4993 4999 real 0m0.145s user 0m0.131s sys 0m0.000s jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 09:43:55 AM

Here is the Script BASIC only equivalent.

Code: ScriptBasic

FOR i = 3 TO 5000
  FOR j = 2 TO SQR(i)
    IF i % j = 0 THEN GOTO nDone
  NEXT
  PRINT i," "
  nDone:
NEXT
PRINTNL
 

jrs@laptop:~/sb/sb22/test$ time scriba pnsqr2.sb 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401 409 419 421 431 433 439 443 449 457 461 463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571 577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661 673 677 683 691 701 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821 823 827 829 839 853 857 859 863 877 881 883 887 907 911 919 929 937 941 947 953 967 971 977 983 991 997 1009 1013 1019 1021 1031 1033 1039 1049 1051 1061 1063 1069 1087 1091 1093 1097 1103 1109 1117 1123 1129 1151 1153 1163 1171 1181 1187 1193 1201 1213 1217 1223 1229 1231 1237 1249 1259 1277 1279 1283 1289 1291 1297 1301 1303 1307 1319 1321 1327 1361 1367 1373 1381 1399 1409 1423 1427 1429 1433 1439 1447 1451 1453 1459 1471 1481 1483 1487 1489 1493 1499 1511 1523 1531 1543 1549 1553 1559 1567 1571 1579 1583 1597 1601 1607 1609 1613 1619 1621 1627 1637 1657 1663 1667 1669 1693 1697 1699 1709 1721 1723 1733 1741 1747 1753 1759 1777 1783 1787 1789 1801 1811 1823 1831 1847 1861 1867 1871 1873 1877 1879 1889 1901 1907 1913 1931 1933 1949 1951 1973 1979 1987 1993 1997 1999 2003 2011 2017 2027 2029 2039 2053 2063 2069 2081 2083 2087 2089 2099 2111 2113 2129 2131 2137 2141 2143 2153 2161 2179 2203 2207 2213 2221 2237 2239 2243 2251 2267 2269 2273 2281 2287 2293 2297 2309 2311 2333 2339 2341 2347 2351 2357 2371 2377 2381 2383 2389 2393 2399 2411 2417 2423 2437 2441 2447 2459 2467 2473 2477 2503 2521 2531 2539 2543 2549 2551 2557 2579 2591 2593 2609 2617 2621 2633 2647 2657 2659 2663 2671 2677 2683 2687 2689 2693 2699 2707 2711 2713 2719 2729 2731 2741 2749 2753 2767 2777 2789 2791 2797 2801 2803 2819 2833 2837 2843 2851 2857 2861 2879 2887 2897 2903 2909 2917 2927 2939 2953 2957 2963 2969 2971 2999 3001 3011 3019 3023 3037 3041 3049 3061 3067 3079 3083 3089 3109 3119 3121 3137 3163 3167 3169 3181 3187 3191 3203 3209 3217 3221 3229 3251 3253 3257 3259 3271 3299 3301 3307 3313 3319 3323 3329 3331 3343 3347 3359 3361 3371 3373 3389 3391 3407 3413 3433 3449 3457 3461 3463 3467 3469 3491 3499 3511 3517 3527 3529 3533 3539 3541 3547 3557 3559 3571 3581 3583 3593 3607 3613 3617 3623 3631 3637 3643 3659 3671 3673 3677 3691 3697 3701 3709 3719 3727 3733 3739 3761 3767 3769 3779 3793 3797 3803 3821 3823 3833 3847 3851 3853 3863 3877 3881 3889 3907 3911 3917 3919 3923 3929 3931 3943 3947 3967 3989 4001 4003 4007 4013 4019 4021 4027 4049 4051 4057 4073 4079 4091 4093 4099 4111 4127 4129 4133 4139 4153 4157 4159 4177 4201 4211 4217 4219 4229 4231 4241 4243 4253 4259 4261 4271 4273 4283 4289 4297 4327 4337 4339 4349 4357 4363 4373 4391 4397 4409 4421 4423 4441 4447 4451 4457 4463 4481 4483 4493 4507 4513 4517 4519 4523 4547 4549 4561 4567 4583 4591 4597 4603 4621 4637 4639 4643 4649 4651 4657 4663 4673 4679 4691 4703 4721 4723 4729 4733 4751 4759 4783 4787 4789 4793 4799 4801 4813 4817 4831 4861 4871 4877 4889 4903 4909 4919 4931 4933 4937 4943 4951 4957 4967 4969 4973 4987 4993 4999 real 0m0.034s user 0m0.028s sys 0m0.004s jrs@laptop:~/sb/sb22/test$

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 12:13:02 PM

@Tony -

Q. What is the best way to print a new line? I noticed that if I use PRINT alone on a line, MY-BASIC complains.

A. If you end the PRINT line with a comma, a newline will be generated.

Q. I'm assuming at this point that MY-BASIC doesn't support FUNCTION/SUB ?

Comment: I had to get use to the older style IF statement. Script BASIC doesn't support multiple statements separated by :'s.

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 03:45:50 PM

I added the mb_load_file and mb_reset functions to the extension module.

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
static struct mb_interpreter_t* bas = 0;
 
besFUNCTION(mbas_init)
  besRETURN_LONG(mb_init());
besEND
 
besFUNCTION(mbas_dispose)
  besRETURN_LONG(mb_dispose());
besEND
 
besFUNCTION(mbas_open)
  besRETURN_LONG(mb_open(AT bas));
besEND
 
besFUNCTION(mbas_close)
  besRETURN_LONG(mb_close(AT bas));
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_string(bas, pgm));
besEND
 
besFUNCTION(mbas_load_file)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_file(bas, pgm));
besEND
 
besFUNCTION(mbas_run)
  besRETURN_LONG(mb_run(bas));
besEND
 
besFUNCTION(mbas_reset)
  besRETURN_LONG(mb_reset(bas, false));
besEND
 

mbprime.sb

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
 
mb_init()
mb_open()
mb_load_file("mbprime.bas")
mb_run()
mb_close()
mb_dispose()
 

mbprime.bas (MY-BASIC)

Code: [Select]

FOR i = 3 TO 5000
  f = 1
  FOR j = 2 TO SQR(i)
    IF i MOD j = 0 THEN f = 0 : EXIT
  NEXT j
  IF f = 1 THEN PRINT i," "
NEXT i
PRINT ,

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 04:08:04 PM

If this is going to be of any use, Script BASIC needs to be able to at the minimum retrieve MY-BASIC variables. Can someone post a C example of doing this?

Is there a way I could return back to Script BASIC the current program in MY-BASIC workspace? (LIST to string variable)

Title: Re: MY-BASIC
Post by: wangrenxin on April 21, 2015, 07:17:44 PM

@John

1. In MY-BAIC use semicolon like 'PRINT ;' to generate a new line.
2. MB supports GOTO/GOSUB/RETURN, doesn't support FUNCTION/SUB routine yet.
3. Use mb_pop_XXX to retrieve values, and mb_push_XXX to return values, see the file extension https://github.com/paladin-t/my_basic/wiki/File-module (https://github.com/paladin-t/my_basic/wiki/File-module) for demo; search for 'mb_pop_'.

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 07:28:46 PM

Quote

3. Use mb_pop_XXX to retrieve values, and mb_push_XXX to return values, see the file extension https://github.com/paladin-t/my_basic/wiki/File-module for demo; search for 'mb_pop_'.

Lets say I run a MY-BASIC script which sets an integer variable called myint. Once SB gets control again after the mb_run, I would like to get the value of myint from Script BASIC.

Can you post a C code snippet showing how to do the above?

I see no reference showing a script being run and getting a variable by name.

Title: Re: MY-BASIC
Post by: wangrenxin on April 21, 2015, 09:21:53 PM

You can't get a specific variable in C, but you can pass a variable from script.

Step 1. Write a C function:

Code: C

        int watch(struct mb_interpreter_t* s, void** l) {
                int result = MB_FUNC_OK;
                int_t arg = 0;
 
                mb_assert(s && l);
 
                mb_check(mb_attempt_open_bracket(s, l));
 
                mb_check(mb_pop_int(s, l, &arg)); // That's it!
 
                mb_check(mb_attempt_close_bracket(s, l));
 
                // arg is what you want.
 
                return result;
        }

Step 2. Register it: mb_reg_fun(bas, watch);

Step 3. Now call it wherever in your script to watch a value of an expression:

Code: Text

        WATCH(FOO)
        WATCH(A + B * C)
        WATCH(123)
        ...
 

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 09:40:50 PM

void** l

What is l?

From Script BASIC I assume I'm passing a string constant to my watch wrapped function which I assume is void** l.

You have seen the source to the Script BASIC MY-BASIC extension module. Can cobble together a function that would work within that environment? This is a surprise. I would of thought getting and setting of variables is core functionality when offering an embedded solution.

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 09:58:23 PM

@Tony - Are the functions in the PDF for the C programmer to create, set, read MY-BASIC variables from the host language? If that is true, can't I create these variables first and assign them with the MY-BASIC script? I find it hard to believe you would create an embeddable BASIC and not allow the host and MY-BASIC to communicate. (passing variables between them) Remember you have no IO functionality to fall back on.

Title: Re: MY-BASIC
Post by: John on April 21, 2015, 10:30:41 PM

I gave it a shot trying to create a mb_getint() function but I'm back to the assert issue.

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
static struct mb_interpreter_t* bas = 0;
 
static int watch(struct mb_interpreter_t* s, void** l) {
  int result = MB_FUNC_OK;
  int_t arg = 0;
  mb_assert(s && l);
  mb_check(mb_attempt_open_bracket(s, l));
  mb_check(mb_pop_int(s, l, &arg)); // That's it!
  mb_check(mb_attempt_close_bracket(s, l));
  // arg is what you want.
  return result;
}
 
besFUNCTION(mbas_init)
  besRETURN_LONG(mb_init());
besEND
 
besFUNCTION(mbas_dispose)
  besRETURN_LONG(mb_dispose());
besEND
 
besFUNCTION(mbas_open)
  besRETURN_LONG(mb_open(AT bas));
besEND
 
besFUNCTION(mbas_close)
  besRETURN_LONG(mb_close(AT bas));
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_string(bas, pgm));
besEND
 
besFUNCTION(mbas_load_file)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_file(bas, pgm));
besEND
 
besFUNCTION(mbas_run)
  besRETURN_LONG(mb_run(bas));
besEND
 
besFUNCTION(mbas_reset)
  besRETURN_LONG(mb_reset(bas, false));
besEND
 
besFUNCTION(mbas_getint)
  DIM AS const char PTR expr;
  besARGUMENTS("z")
    AT expr
  besARGEND
  mb_reg_fun(bas, watch);
  besRETURN_LONG(watch(bas, expr));
besEND
 

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
DECLARE SUB mb_getint ALIAS "mbas_getint" LIB "mb"
 
mb_init()
mb_open()
mb_load_file("mbprime.bas")
mb_run()
PRINT mb_getint("i"),"\n"
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbprime.sb 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401 409 419 421 431 433 439 443 449 457 461 463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571 577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661 673 677 683 691 701 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821 823 827 829 839 853 857 859 863 877 881 883 887 907 911 919 929 937 941 947 953 967 971 977 983 991 997 1009 1013 1019 1021 1031 1033 1039 1049 1051 1061 1063 1069 1087 1091 1093 1097 1103 1109 1117 1123 1129 1151 1153 1163 1171 1181 1187 1193 1201 1213 1217 1223 1229 1231 1237 1249 1259 1277 1279 1283 1289 1291 1297 1301 1303 1307 1319 1321 1327 1361 1367 1373 1381 1399 1409 1423 1427 1429 1433 1439 1447 1451 1453 1459 1471 1481 1483 1487 1489 1493 1499 1511 1523 1531 1543 1549 1553 1559 1567 1571 1579 1583 1597 1601 1607 1609 1613 1619 1621 1627 1637 1657 1663 1667 1669 1693 1697 1699 1709 1721 1723 1733 1741 1747 1753 1759 1777 1783 1787 1789 1801 1811 1823 1831 1847 1861 1867 1871 1873 1877 1879 1889 1901 1907 1913 1931 1933 1949 1951 1973 1979 1987 1993 1997 1999 2003 2011 2017 2027 2029 2039 2053 2063 2069 2081 2083 2087 2089 2099 2111 2113 2129 2131 2137 2141 2143 2153 2161 2179 2203 2207 2213 2221 2237 2239 2243 2251 2267 2269 2273 2281 2287 2293 2297 2309 2311 2333 2339 2341 2347 2351 2357 2371 2377 2381 2383 2389 2393 2399 2411 2417 2423 2437 2441 2447 2459 2467 2473 2477 2503 2521 2531 2539 2543 2549 2551 2557 2579 2591 2593 2609 2617 2621 2633 2647 2657 2659 2663 2671 2677 2683 2687 2689 2693 2699 2707 2711 2713 2719 2729 2731 2741 2749 2753 2767 2777 2789 2791 2797 2801 2803 2819 2833 2837 2843 2851 2857 2861 2879 2887 2897 2903 2909 2917 2927 2939 2953 2957 2963 2969 2971 2999 3001 3011 3019 3023 3037 3041 3049 3061 3067 3079 3083 3089 3109 3119 3121 3137 3163 3167 3169 3181 3187 3191 3203 3209 3217 3221 3229 3251 3253 3257 3259 3271 3299 3301 3307 3313 3319 3323 3329 3331 3343 3347 3359 3361 3371 3373 3389 3391 3407 3413 3433 3449 3457 3461 3463 3467 3469 3491 3499 3511 3517 3527 3529 3533 3539 3541 3547 3557 3559 3571 3581 3583 3593 3607 3613 3617 3623 3631 3637 3643 3659 3671 3673 3677 3691 3697 3701 3709 3719 3727 3733 3739 3761 3767 3769 3779 3793 3797 3803 3821 3823 3833 3847 3851 3853 3863 3877 3881 3889 3907 3911 3917 3919 3923 3929 3931 3943 3947 3967 3989 4001 4003 4007 4013 4019 4021 4027 4049 4051 4057 4073 4079 4091 4093 4099 4111 4127 4129 4133 4139 4153 4157 4159 4177 4201 4211 4217 4219 4229 4231 4241 4243 4253 4259 4261 4271 4273 4283 4289 4297 4327 4337 4339 4349 4357 4363 4373 4391 4397 4409 4421 4423 4441 4447 4451 4457 4463 4481 4483 4493 4507 4513 4517 4519 4523 4547 4549 4561 4567 4583 4591 4597 4603 4621 4637 4639 4643 4649 4651 4657 4663 4673 4679 4691 4703 4721 4723 4729 4733 4751 4759 4783 4787 4789 4793 4799 4801 4813 4817 4831 4861 4871 4877 4889 4scriba: symbol lookup error: /home/jrs/sb/sb22/modules/mb.so: undefined symbol: assert jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: wangrenxin on April 22, 2015, 02:16:02 AM

@John

You need only register once when open an interpreter structure, see the registering of 'beep' in '_on_startup' at 'main.c' for example.

Of course you could declare and assign variables in MY-BASIC script and communicate between MB and host; but you couldn't get or set it with the variable identifier. The way in MB to do script -> host is mb_pop_XXX functions, and host -> script with mb_push_XXX.

Eg. somehow in script like this:

Code: Text

A = 0 ' Create and assign a variable.
A = WATCH(A) ' Send it to host and assign with a new value sent from host.
 

Add mb_push_XXX in 'watch' to send values from host to script.

Title: Re: MY-BASIC
Post by: wangrenxin on April 22, 2015, 04:21:17 AM

'watch' should be like:

Code: C

int watch(struct mb_interpreter_t* s, void** l) {
        int result = MB_FUNC_OK;
        int_t arg = 0;
 
        mb_assert(s && l);
 
        mb_check(mb_attempt_open_bracket(s, l));
 
        mb_check(mb_pop_int(s, l, &arg)); // That's it!
 
        mb_check(mb_attempt_close_bracket(s, l));
 
        // do what ever you want with 'arg'.
 
        mb_check(mb_push_int(s, l, arg));
 
        return result;
}

Title: Re: MY-BASIC
Post by: John on April 22, 2015, 08:31:32 AM

This solution looks like I can only communicate with one variable at a time. :-\ To be honest, this is a kludge and you need a better way for the host and MY-BASIC to share its variables. I would like to be able to do something like the Perl extension module for SB.

Code: ScriptBasic

DECLARE SUB pl_Init ALIAS "pl_Init" LIB "sbperl"
DECLARE SUB pl_Eval ALIAS "pl_Eval" LIB "sbperl"
DECLARE SUB pl_GetInt ALIAS "pl_GetInt" LIB "sbperl"
DECLARE SUB pl_GetDbl ALIAS "pl_GetDbl" LIB "sbperl"
DECLARE SUB pl_GetStr ALIAS "pl_GetStr" LIB "sbperl"
DECLARE SUB pl_Destroy ALIAS "pl_Destroy" LIB "sbperl"
 
pl_Init
 
pl_code = """
sub Average{
   # get total number of arguments passed.
   $n = scalar(@_);
   $sum = 0;
 
   foreach $item (@_){
      $sum += $item;
   }
   $average = $sum / $n;
 
   return $average;
}
"""
pl_Eval pl_code
pl_Eval "$num = Average(10, 20, 30);"
PRINT pl_GetInt("num"),"\n"
 
pl_Destroy
 

jrs@laptop:~/sb/sb22/test$ scriba perlfunc.sb 20 jrs@laptop:~/sb/sb22/test$

Here is an example of embedding Script BASIC in BaCon and using the SQLite3 extension module and passing the resulting record set back to BaCon.

Code: [Select]

PRAGMA OPTIONS -I/home/jrs/sb/source
PRAGMA LDFLAGS scriba pthread
PRAGMA INCLUDE scriba.h getopt.h

PROTO scriba_destroy

DECLARE pProgram TYPE pSbProgram
DECLARE pVariable TYPE pSbData

pProgram = scriba_new(malloc,free)
ok = scriba_LoadConfiguration(pProgram,"/etc/scriba/basic.conf")
ok = scriba_SetFileName(pProgram, "E05.sb")
ok = scriba_LoadSourceProgram(pProgram)
ok = scriba_Run(pProgram,"")

vsn = scriba_LookupVariableByName(pProgram, "main::dbstr")
ok = scriba_GetVariable(pProgram, vsn, &pVariable)

dbstr$ = pVariable[0].v.s
SPLIT dbstr$ BY "|" TO row$ SIZE cnt

FOR x = 0 TO cnt-1
PRINT row$[x]
NEXT x

jrs@laptop:~/BaCon/B29$ ./bacon sqlext.bac
Converting 'sqlext.bac'... done.
Compiling 'sqlext.bac'... done.
Program 'sqlext' ready.
jrs@laptop:~/BaCon/B29$ ./sqlext
123-hello
234-cruel
345-world

jrs@laptop:~/BaCon/B29$

E05.sb

Code: ScriptBasic

IMPORT sqlite.bas
 
db = sqlite::open("testsql")
 
sqlite::execute(db,"CREATE TABLE demo (someval integer, sometxt text);")
sqlite::execute(db,"INSERT INTO demo VALUES (123,'hello');")
sqlite::execute(db, "INSERT INTO demo VALUES (234, 'cruel');")
sqlite::execute(db, "INSERT INTO demo VALUES (345, 'world');")
 
stmt = sqlite::query(db,"SELECT * FROM demo")
 
WHILE (sqlite::row(stmt) = sqlite::SQLITE3_ROW)
  IF sqlite::fetchhash(stmt,column) THEN
    dbstr &= column{"someval"} & "-" & column{"sometxt"} & "|"
  END IF
WEND
 
sqlite::close(db)
 

Title: Re: MY-BASIC
Post by: wangrenxin on April 22, 2015, 07:15:26 PM

Ability of retrieving variables from host is useful in some case. I consider to implement not only retrieving, but also setting break point and single step evaluating; that will make up a debug API set.

Title: Re: MY-BASIC
Post by: John on April 22, 2015, 07:23:26 PM

Quote from: wangrenxin on April 22, 2015, 07:15:26 PM

Ability of retrieving variables from host is useful in some case. I consider to implement not only retrieving, but also setting break point and single step evaluating; that will make up a debug API set.

Script BASIC has a debugging mode (internal preprocessor) that Dave (SB VB/COM contributor) took advantage of in the IDE/Debugger he wrote.

(http://www.scriptbasic.org/forum/index.php?action=dlattach;topic=323.0;attach=364;image)

Title: Re: MY-BASIC
Post by: wangrenxin on April 22, 2015, 07:29:14 PM

Quote from: John on April 22, 2015, 07:23:26 PM

Script BASIC has a debugging mode (internal preprocessor) that Dave (SB VB/COM contributor) took advantage of in the IDE/Debugger he wrote.

Interesting, that's considerable.

Title: Re: MY-BASIC
Post by: wangrenxin on April 23, 2015, 07:58:50 AM

@John
I wrote some debug APIs, you can retrieve and set variable value with identifier now:
https://github.com/paladin-t/my_basic/wiki/Write-a-debugger (https://github.com/paladin-t/my_basic/wiki/Write-a-debugger)

Title: Re: MY-BASIC
Post by: John on April 23, 2015, 08:20:06 AM

Looks like you're on the road to a great debugger for MY-BASIC. I think it would be easier to follow along if you can create a C program like AIR did initially to help me get your BASIC going. I can try your new code in SB as an extension module as it unfolds.

Markus (admin / CM on BP.org) is interested in embedding your BASIC in his Pascal based interpreter. Maybe you can get him to join us here.

Title: Re: MY-BASIC
Post by: John on April 23, 2015, 12:19:03 PM

Hi Tony,

I took a shot at getting the mb_debug_get functions working with Script BASIC. It works GREAT!

interface.c

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
static struct mb_interpreter_t* bas = 0;
 
static int watch(struct mb_interpreter_t* s, void** l) {
  int result = MB_FUNC_OK;
  int_t arg = 0;
  mb_assert(s && l);
  mb_check(mb_attempt_open_bracket(s, l));
  mb_check(mb_pop_int(s, l, &arg)); // That's it!
  mb_check(mb_attempt_close_bracket(s, l));
  // arg is what you want.
  return result;
}
 
besFUNCTION(mbas_init)
  besRETURN_LONG(mb_init());
besEND
 
besFUNCTION(mbas_dispose)
  besRETURN_LONG(mb_dispose());
besEND
 
besFUNCTION(mbas_open)
  besRETURN_LONG(mb_open(AT bas));
besEND
 
besFUNCTION(mbas_close)
  besRETURN_LONG(mb_close(AT bas));
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_string(bas, pgm));
besEND
 
besFUNCTION(mbas_load_file)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_file(bas, pgm));
besEND
 
besFUNCTION(mbas_run)
  besRETURN_LONG(mb_run(bas));
besEND
 
besFUNCTION(mbas_reset)
  besRETURN_LONG(mb_reset(bas, false));
besEND
 
besFUNCTION(mbas_getint)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_INT;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_LONG(mbval.value.integer);
besEND
 
besFUNCTION(mbas_getdbl)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_REAL;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_DOUBLE(mbval.value.float_point);
besEND
 
besFUNCTION(mbas_getstr)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_STRING;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_STRING(mbval.value.string);
besEND
 

mbvars.sb

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_getint ALIAS "mbas_getint" LIB "mb"
DECLARE SUB mb_getdbl ALIAS "mbas_getdbl" LIB "mb"
DECLARE SUB mb_getstr ALIAS "mbas_getstr" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
 
mb_init()
mb_open()
mb_load_file("testvars.bas")
mb_run()
PRINT mb_getint("A"),"\n"
PRINT FORMAT("%g\n",mb_getdbl("B"))
PRINT mb_getstr("C$"),"\n"
mb_close()
mb_dispose()
 

testvars.bas (MY-BASIC test script)

Code: [Select]

a = 123
b = 1.23
c$ = "One,Two,Three"

Output
jrs@laptop:~/sb/sb22/mybasic$ time scriba mbvars.sb 123 1.23 One,Two,Three real 0m0.007s user 0m0.000s sys 0m0.005s jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: John on April 23, 2015, 01:57:43 PM

I'm not having as good of luck with the mb_debug_set. (core dump)

Code: C

besFUNCTION(mbas_setint)
  DIM AS mb_value_t mbval;
  DIM AS int usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zi")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_INT;
  mbval.value.integer = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 
besFUNCTION(mbas_setdbl)
  DIM AS mb_value_t mbval;
  DIM AS double usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zr")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_REAL;
  mbval.value.float_point = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 
besFUNCTION(mbas_setstr)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zz")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_STRING;
  mbval.value.string = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_getint ALIAS "mbas_getint" LIB "mb"
DECLARE SUB mb_getdbl ALIAS "mbas_getdbl" LIB "mb"
DECLARE SUB mb_getstr ALIAS "mbas_getstr" LIB "mb"
DECLARE SUB mb_setint ALIAS "mbas_setint" LIB "mb"
DECLARE SUB mb_setdbl ALIAS "mbas_setdbl" LIB "mb"
DECLARE SUB mb_setstr ALIAS "mbas_setstr" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
 
mb_init()
mb_open()
mb_load_file("setvars.bas")
mb_run()
mb_setint("A", 123)
mb_setdbl("B", 1.23)
mb_setstr("C$", "One,Two,Three")
mb_run()
mb_close()
mb_dispose()
 

setvars.bas

Code: [Select]

PRINT a;
PRINT b;
PRINT c$;

jrs@laptop:~/sb/sb22/mybasic$ scriba mbvars.sb 0 0 (empty) scriba: my_basic.c:3977: mb_debug_set: Assertion `s && n' failed. Aborted (core dumped) jrs@laptop:~/sb/sb22/mybasic$

At this point I don't plan to add any of the debugging (single step) features to the SB MY-BASIC extension module version.

Can you show us some examples of your IF enhancements with this release?

Title: Re: MY-BASIC
Post by: John on April 23, 2015, 06:38:49 PM

Tony,

I just noticed your profile on Github.

(https://avatars3.githubusercontent.com/u/2062224?v=3&s=460)

Wang Renxin

Chengdu City, China

Title: Re: MY-BASIC
Post by: John on April 23, 2015, 10:37:43 PM

I was able to compile the Script BASIC MY-BASIC extension module for Windows 32 bit. I have attached the DLL and this example in a zip.

mbvars.sb

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_getint ALIAS "mbas_getint" LIB "mb"
DECLARE SUB mb_getdbl ALIAS "mbas_getdbl" LIB "mb"
DECLARE SUB mb_getstr ALIAS "mbas_getstr" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
 
mb_init()
mb_open()
mb_load_file("testvars.bas")
mb_run()
PRINT mb_getint("A"),"\n"
PRINT FORMAT("%g\n",mb_getdbl("B"))
PRINT mb_getstr("C$"),"\n"
mb_close()
mb_dispose()
 

testvars.bas

Code: [Select]

a = 123
b = 1.23
c$ = "One,Two,Three"

Output
C:\scriptbasic32\mybasic>scriba mbvars.sb 123 1.23 One,Two,Three C:\scriptbasic32\mybasic>

Title: Re: MY-BASIC
Post by: wangrenxin on April 23, 2015, 11:13:42 PM

Quote from: John on April 23, 2015, 06:38:49 PM

I just noticed your profile on Github.

Haw haw, you found me :)

I polished my_basic.c, or it will trigger an assertion when you write sequenced mb_run.

The set function works fine for me, eg. code:

Code: Text

PRINT A;
 

Code: C

mb_value_t val;
val.type = MB_DT_INT;
val.value.integer = 12345;
mb_run(bas);
mb_debug_set(bas, "A", val);
mb_run(bas);
 

I guess there maybe something wrong in besFUNCTION(mbas_setXXX)

An eg. for enhanced multi line IF:

Code: Text

INPUT n
IF n = 1 THEN
        PRINT "Uno"
ELSEIF n = 2 THEN
        PRINT "Dos"
ELSEIF n = 3 THEN
        PRINT "Thres"
ELSE
        PRINT "Many"
ENDIF
 

Title: Re: MY-BASIC
Post by: John on April 23, 2015, 11:16:20 PM

Tony,

I'm getting a little farther with the Windows 32 bit version of mb.dll.

Do I need to download another version since you added the debug functions?

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_getint ALIAS "mbas_getint" LIB "mb"
DECLARE SUB mb_getdbl ALIAS "mbas_getdbl" LIB "mb"
DECLARE SUB mb_getstr ALIAS "mbas_getstr" LIB "mb"
DECLARE SUB mb_setint ALIAS "mbas_setint" LIB "mb"
DECLARE SUB mb_setdbl ALIAS "mbas_setdbl" LIB "mb"
DECLARE SUB mb_setstr ALIAS "mbas_setstr" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
 
mb_init()
mb_open()
mb_load_file("setvars.bas")
mb_run()
mb_setint("A", 123)
PRINT "Got Here\n"
mb_setdbl("B", 1.23)
mb_setstr("C$", "One,Two,Three")
mb_close()
mb_dispose()
 

Code: [Select]

a = 0
b = 0.0
c$ = ""

C:\sb22\mybasic>scriba mbvarset.sb Got Here Assertion failed! Program: c:\scriptbasic\bin\scriba.exe File: my_basic.c, Line 3889 Expression: 0 && "Memory already released" This application has requested the Runtime to terminate it in an unusual way. Please contact the application's support team for more information. C:\sb22\mybasic>

Title: Re: MY-BASIC
Post by: wangrenxin on April 23, 2015, 11:25:50 PM

Use mb_memdup when setting a string like:

Code: C

const char* str = "One,Two,Three";
mb_setstr("C$", mb_memdup(str, strlen(str) + 1);
 

Or it will trigger the assertion.

Title: Re: MY-BASIC
Post by: John on April 23, 2015, 11:33:06 PM

I'm able to set integers and real/double/float but it fails on the string. I'll try your suggestion.

That still doesn't solve the Linux 64 bit version failing on all mb_set operations. :-[

Title: Re: MY-BASIC
Post by: wangrenxin on April 23, 2015, 11:48:41 PM

Quote from: John on April 23, 2015, 11:33:06 PM

That still doesn't solve the Linux 64 bit version failing on all mb_set operations. :-[

It runs ok in 64 bit mode with Win/VS, I don't have a Linux environment on hand now. Could you post your full code again?

Title: Re: MY-BASIC
Post by: John on April 23, 2015, 11:57:29 PM

This code sets integer and double on Windows 32 but fails on Linux 64 bit.

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
static struct mb_interpreter_t* bas = 0;
 
static int watch(struct mb_interpreter_t* s, void** l) {
  int result = MB_FUNC_OK;
  int_t arg = 0;
  mb_assert(s && l);
  mb_check(mb_attempt_open_bracket(s, l));
  mb_check(mb_pop_int(s, l, &arg)); // That's it!
  mb_check(mb_attempt_close_bracket(s, l));
  // arg is what you want.
  return result;
}
 
besFUNCTION(mbas_init)
  besRETURN_LONG(mb_init());
besEND
 
besFUNCTION(mbas_dispose)
  besRETURN_LONG(mb_dispose());
besEND
 
besFUNCTION(mbas_open)
  besRETURN_LONG(mb_open(AT bas));
besEND
 
besFUNCTION(mbas_close)
  besRETURN_LONG(mb_close(AT bas));
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_string(bas, pgm));
besEND
 
besFUNCTION(mbas_load_file)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_file(bas, pgm));
besEND
 
besFUNCTION(mbas_run)
  besRETURN_LONG(mb_run(bas));
besEND
 
besFUNCTION(mbas_reset)
  besRETURN_LONG(mb_reset(bas, false));
besEND
 
besFUNCTION(mbas_getint)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_INT;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_LONG(mbval.value.integer);
besEND
 
besFUNCTION(mbas_getdbl)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_REAL;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_DOUBLE(mbval.value.float_point);
besEND
 
besFUNCTION(mbas_getstr)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_STRING;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_STRING(mbval.value.string);
besEND
 
besFUNCTION(mbas_setint)
  DIM AS mb_value_t mbval;
  DIM AS int usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zi")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_INT;
  mbval.value.integer = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 
besFUNCTION(mbas_setdbl)
  DIM AS mb_value_t mbval;
  DIM AS double usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zr")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_REAL;
  mbval.value.float_point = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 
besFUNCTION(mbas_setstr)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zz")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_STRING;
  mbval.value.string = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_getint ALIAS "mbas_getint" LIB "mb"
DECLARE SUB mb_getdbl ALIAS "mbas_getdbl" LIB "mb"
DECLARE SUB mb_getstr ALIAS "mbas_getstr" LIB "mb"
DECLARE SUB mb_setint ALIAS "mbas_setint" LIB "mb"
DECLARE SUB mb_setdbl ALIAS "mbas_setdbl" LIB "mb"
DECLARE SUB mb_setstr ALIAS "mbas_setstr" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
 
mb_init()
mb_open()
mb_load_file("setvars.bas")
mb_run()
mb_setint("A", 123)
mb_setdbl("B", 1.23)
PRINT "Got Here\n"
mb_close()
mb_dispose()
 

setvars.bas

Code: [Select]

a = 0
b = 0.0
c$ = ""

jrs@laptop:~/sb/sb22/mybasic$ scriba mbvars.sb scriba: my_basic.c:3977: mb_debug_set: Assertion `s && n' failed. Aborted (core dumped) jrs@laptop:~/sb/sb22/mybasic$

I'm recompiling the Windows 32 bit version with your string function change. I will report my finding shortly.

Title: Re: MY-BASIC
Post by: John on April 24, 2015, 12:22:37 AM

No luck with your change to fix the Windows mb_setstr() function. Here is my change to the function per your suggestion.

Code: C

besFUNCTION(mbas_setstr)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zz")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_STRING;
  usrval = mb_memdup(usrval, strlen(usrval) + 1);
  mbval.value.string = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 

C:\sb22\mybasic>scriba mbvarset.sb Got Here Assertion failed: 0 && "Memory already released", file my_basic.c, line 3889 This application has requested the Runtime to terminate it in an unusual way. Please contact the application's support team for more information. C:\sb22\mybasic>

Title: Re: MY-BASIC
Post by: wangrenxin on April 24, 2015, 12:27:29 AM

Try add a debugging printf. Neither bas nor varname shouldn't be NULL under 64 bit.

Code: C

besFUNCTION(mbas_setint)
  DIM AS mb_value_t mbval;
  DIM AS int usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zi")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_INT;
  mbval.value.integer = usrval;
  printf("0x%08x, 0x%08x\n", bas, varname);
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 
besFUNCTION(mbas_setdbl)
  DIM AS mb_value_t mbval;
  DIM AS double usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zr")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_REAL;
  mbval.value.float_point = usrval;
  printf("0x%08x, 0x%08x\n", bas, varname);
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 

Title: Re: MY-BASIC
Post by: wangrenxin on April 24, 2015, 12:31:40 AM

Quote from: John on April 24, 2015, 12:22:37 AM

No luck with your change to fix the Windows mb_setstr() function. Here is my change to the function per your suggestion.

Code: C
besFUNCTION(mbas_setstr)
DIM AS mb_value_t mbval;
DIM AS const char PTR usrval;
DIM AS const char PTR varname;
besARGUMENTS("zz")
AT varname, AT usrval
besARGEND
mbval.type = MB_DT_STRING;
usrval = mb_memdup(usrval, strlen(usrval) + 1);
mbval.value.string = usrval;
besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND

C:\sb22\mybasic>scriba mbvarset.sb Got Here Assertion failed: 0 && "Memory already released", file my_basic.c, line 3889 This application has requested the Runtime to terminate it in an unusual way. Please contact the application's support team for more information. C:\sb22\mybasic>

Have you updated to latest revision including a change:

Code: C

int mb_run(struct mb_interpreter_t* s) {
        /* Run loaded and parsed script */
        int result = MB_FUNC_OK;
        _ls_node_t* ast = 0;
        _running_context_t* running = 0;
 
        running = s->running_context;
 
        if(s->parsing_context)                <- added this line!!!
                safe_free(s->parsing_context);
        ...
 

Title: Re: MY-BASIC
Post by: John on April 24, 2015, 12:54:30 AM

I have no clue why the varname isn't being passed. :o

Code: C

besFUNCTION(mbas_setint)
  DIM AS mb_value_t mbval;
  DIM AS int usrval;
  DIM AS const char PTR varname;
  besARGUMENTS("zi")
    AT varname, AT usrval
  besARGEND
  mbval.type = MB_DT_INT;
  printf("|%s|\n", varname);
  printf("0x%08x, 0x%08x\n", bas, varname);
  mbval.value.integer = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbvars.sb |(null)| 0x00820808, 0x00000000 scriba: my_basic.c:3977: mb_debug_set: Assertion `s && n' failed. Aborted (core dumped) jrs@laptop:~/sb/sb22/mybasic$

I'll redownload your code but I have to figure out why the varname isn't being passed in the m_setxxx but works fine with the mb_getxxx routines. I can't see anything obvious.

Title: Re: MY-BASIC
Post by: wangrenxin on April 24, 2015, 01:16:47 AM

Seems like something wrong in besARGUMENTS. It's defined in your attachment as:

Code: C

#define besARGUMENTS(X) int iError; iError = pSt->basext_GetArgsF(pSt,pParameters,(X),
#define besARGEND ); if( iError )return iError;
 

So there might be some clue in basext_GetArgsF if you step into it to see where does the char* become NULL.

Title: Re: MY-BASIC
Post by: John on April 24, 2015, 01:22:34 AM

I'm passing varname the same way in mb_getxxx and it works fine.

Title: Re: MY-BASIC
Post by: John on April 24, 2015, 01:40:19 AM

There seems to be a bug in SB using the "zi" combo. If I reverse them it works. >:(

Title: Re: MY-BASIC
Post by: wangrenxin on April 24, 2015, 01:48:51 AM

Quote from: John on April 24, 2015, 01:40:19 AM

There seems to be a bug in SB using the "zi" combo. If I reverse them it works. >:(

Unusual indeed.

Title: Re: MY-BASIC
Post by: John on April 24, 2015, 02:06:33 AM

This method (macro) also has a 5 argument limit. I'll go back to the old way which has a few more steps but rock solid.

Title: Re: MY-BASIC
Post by: John on April 24, 2015, 11:53:34 AM

Success!

Linux 64 (mb.so) and Window 32 (mb.dll) versions of the MY-BASIC Script BASIC extension module is attached.

interface.c

Code: C

// MY-BASIC - Script BASIC extension module
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <math.h>
#include <time.h>
#include "../../basext.h"
#include "cbasic.h"
 
#include "my_basic.h"
 
 
/****************************
 Extension Module Functions
****************************/
 
besVERSION_NEGOTIATE
  RETURN_FUNCTION((int)INTERFACE_VERSION);
besEND
 
besSUB_START
  DIM AS long PTR p;
  besMODULEPOINTER = besALLOC(sizeof(long));
  IF (besMODULEPOINTER EQ NULL) THEN_DO RETURN_FUNCTION(0);
  p = (long PTR)besMODULEPOINTER;
  RETURN_FUNCTION(0);
besEND
 
besSUB_FINISH
  DIM AS long PTR p;
  p = (long PTR)besMODULEPOINTER;
  IF (p EQ NULL) THEN_DO RETURN_FUNCTION(0);
  RETURN_FUNCTION(0);
besEND
 
 
/********************
 MY-BASIC Functions
********************/
 
static struct mb_interpreter_t* bas = 0;
 
static int watch(struct mb_interpreter_t* s, void** l) {
  int result = MB_FUNC_OK;
  int_t arg = 0;
  mb_assert(s && l);
  mb_check(mb_attempt_open_bracket(s, l));
  mb_check(mb_pop_int(s, l, &arg)); // That's it!
  mb_check(mb_attempt_close_bracket(s, l));
  // arg is what you want.
  return result;
}
 
besFUNCTION(mbas_init)
  besRETURN_LONG(mb_init());
besEND
 
besFUNCTION(mbas_dispose)
  besRETURN_LONG(mb_dispose());
besEND
 
besFUNCTION(mbas_open)
  besRETURN_LONG(mb_open(AT bas));
besEND
 
besFUNCTION(mbas_close)
  besRETURN_LONG(mb_close(AT bas));
besEND
 
besFUNCTION(mbas_load_str)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_string(bas, pgm));
besEND
 
besFUNCTION(mbas_load_file)
  DIM AS const char PTR pgm;
  besARGUMENTS("z")
    AT pgm
  besARGEND
  besRETURN_LONG(mb_load_file(bas, pgm));
besEND
 
besFUNCTION(mbas_run)
  besRETURN_LONG(mb_run(bas));
besEND
 
besFUNCTION(mbas_reset)
  besRETURN_LONG(mb_reset(bas, false));
besEND
 
besFUNCTION(mbas_getint)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_INT;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_LONG(mbval.value.integer);
besEND
 
besFUNCTION(mbas_getdbl)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_REAL;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_DOUBLE(mbval.value.float_point);
besEND
 
besFUNCTION(mbas_getstr)
  DIM AS mb_value_t mbval;
  DIM AS const char PTR varname;
  besARGUMENTS("z")
    AT varname
  besARGEND
  mbval.type = MB_DT_STRING;
  mb_debug_get(bas, varname, &mbval);
  besRETURN_STRING(mbval.value.string);
besEND
 
besFUNCTION(mbas_setint)
  DIM AS VARIABLE Argument;
  DIM AS mb_value_t mbval;
  DIM AS int usrval, i, rtnval;
  DIM AS const char PTR varname;
  IF (besARGNR < 2) THEN_DO RETURN_FUNCTION(EX_ERROR_TOO_FEW_ARGUMENTS);
  DEF_FOR (i = 1 TO i <= 2 STEP INCR i)
  BEGIN_FOR
    Argument = besARGUMENT(i);
    besDEREFERENCE(Argument);
    IF (i EQ 1) THEN_DO varname = STRINGVALUE(Argument);
    IF (i EQ 2) THEN_DO usrval = LONGVALUE(Argument);
  NEXT
  mbval.type = MB_DT_INT;
  mbval.value.integer = usrval;
  rtnval = mb_debug_set(bas, varname, mbval);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_setdbl)
  DIM AS VARIABLE Argument;
  DIM AS mb_value_t mbval;
  DIM AS int i, rtnval;
  DIM AS double usrval;
  DIM AS const char PTR varname;
  IF (besARGNR < 2) THEN_DO RETURN_FUNCTION(EX_ERROR_TOO_FEW_ARGUMENTS);
  DEF_FOR (i = 1 TO i <= 2 STEP INCR i)
  BEGIN_FOR
    Argument = besARGUMENT(i);
    besDEREFERENCE(Argument);
    IF (i EQ 1) THEN_DO varname = STRINGVALUE(Argument);
    IF (i EQ 2) THEN_DO usrval = DOUBLEVALUE(Argument);
  NEXT
  mbval.type = MB_DT_REAL;
  mbval.value.float_point = usrval;
  rtnval = mb_debug_set(bas, varname, mbval);
  besRETURN_LONG(rtnval);
besEND
 
besFUNCTION(mbas_setstr)
  DIM AS VARIABLE Argument;
  DIM AS mb_value_t mbval;
  DIM AS int i, rtnval;
  DIM AS const char PTR varname;
  DIM AS const char PTR usrval;
  IF (besARGNR < 2) THEN_DO RETURN_FUNCTION(EX_ERROR_TOO_FEW_ARGUMENTS);
  DEF_FOR (i = 1 TO i <= 2 STEP INCR i)
  BEGIN_FOR
    Argument = besARGUMENT(i);
    besDEREFERENCE(Argument);
    IF (i EQ 1) THEN_DO varname = STRINGVALUE(Argument);
    IF (i EQ 2) THEN_DO usrval = STRINGVALUE(Argument);
  NEXT
  mbval.type = MB_DT_STRING;
  usrval = mb_memdup(usrval, strlen(usrval) + 1);
  mbval.value.string = usrval;
  besRETURN_LONG(mb_debug_set(bas, varname, mbval));
besEND
 

mbvars.sb

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_getint ALIAS "mbas_getint" LIB "mb"
DECLARE SUB mb_getdbl ALIAS "mbas_getdbl" LIB "mb"
DECLARE SUB mb_getstr ALIAS "mbas_getstr" LIB "mb"
DECLARE SUB mb_setint ALIAS "mbas_setint" LIB "mb"
DECLARE SUB mb_setdbl ALIAS "mbas_setdbl" LIB "mb"
DECLARE SUB mb_setstr ALIAS "mbas_setstr" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
 
mb_init
mb_open
mb_load_file "setvars.bas"
mb_run
mb_setint "A", 123
mb_setdbl "B", 1.23
mb_setstr "C$", "One,Two,Three"
PRINT mb_getint("A"),"\n"
PRINT FORMAT("%g\n", mb_getdbl("B"))
PRINT mb_getstr("C$"),"\n"
mb_close
mb_dispose
 

setvars.bas

Code: [Select]

a = 0
b = 0.0
c$ = ""

Output - Linux 64 bit
jrs@laptop:~/sb/sb22/mybasic$ time scriba mbvars.sb 123 1.23 One,Two,Three real 0m0.006s user 0m0.005s sys 0m0.005s jrs@laptop:~/sb/sb22/mybasic$

Output - Windows 32 bit
C:\sb22\mybasic>scriba mbvars.sb 123 1.23 One,Two,Three C:\sb22\mybasic>

Title: Re: MY-BASIC
Post by: John on April 24, 2015, 03:04:58 PM

Tony,

Can you export a function like LIST but the return value would be a multi-line string version of the the program? If we had this ability, one could retrieve the current program into a SB string, mb_reset the MY-BASIC workspace and mb_load_str an edited version of the script.

Code: C

static void _list_program(const char* sn, const char* cn) {
        long lsn = 0;
        long lcn = 0;
        mb_assert(sn && cn);
        lsn = atoi(sn);
        lcn = atoi(cn);
        if(lsn == 0 && lcn == 0) {
                long i = 0;
                for(i = 0; i < c->count; ++i) {
                        printf("%d]%s\n", i + 1, c->lines[i]);
                }
        } else {
                long i = 0;
                long e = 0;
                if(lsn < 1 || lsn > c->count) {
                        printf("Line number %ld out of bound.\n", lsn);
 
                        return;
                }
                if(lcn < 0) {
                        printf("Invalid line count %ld.\n", lcn);
 
                        return;
                }
                --lsn;
                e = lcn ? lsn + lcn : c->count;
                for(i = lsn; i < e; ++i) {
                        if(i >= c->count)
                                break;
 
                        printf("%d]%s\n", i + 1, c->lines[i]);
                }
        }
}
 

Title: Re: MY-BASIC
Post by: wangrenxin on April 24, 2015, 10:54:26 PM

Quote from: John on April 24, 2015, 03:04:58 PM

Can you export a function like LIST but the return value would be a multi-line string version of the the program? If we had this ability, one could retrieve the current program into a SB string, mb_reset the MY-BASIC workspace and mb_load_str an edited version of the script.

_get_code is exactly what you are looking for. Note you need to free the return value if it's no longer in use.

Title: Re: MY-BASIC
Post by: John on April 25, 2015, 01:04:30 AM

There is no _get_code in the my_basic.h, my_basic.c or a dump of the shared object.

Code: [Select]

jrs@laptop:~/sb/sb22/modules$ nm mb.so
                 U acosf@@GLIBC_2.2.5
0000000000006f10 t _append_char_to_symbol
                 U asinf@@GLIBC_2.2.5
                 U __assert_fail
                 U atanf@@GLIBC_2.2.5
0000000000214940 b bas
0000000000003010 T bootmodu
0000000000214938 B __bss_start
0000000000214960 b buf.6267
0000000000009340 t _calc_expression
                 U ceilf@@GLIBC_2.2.5
0000000000006fc0 t _clear_array
0000000000003a20 t _compare_numbers
00000000000079a0 t _core_add
0000000000003de0 t _core_and
0000000000003fe0 t _core_close_bracket
000000000000bb30 t _core_dim
0000000000004ef0 t _core_div
000000000000ac40 t _core_do
0000000000003930 t _core_dummy_assign
0000000000003b60 t _core_else
0000000000003b90 t _core_elseif
0000000000004910 t _core_end
0000000000003b30 t _core_endif
0000000000006a40 t _core_equal
0000000000005440 t _core_exit
000000000000b0c0 t _core_for
0000000000007d80 t _core_gosub
00000000000052f0 t _core_goto
0000000000006390 t _core_greater
0000000000005cd0 t _core_greater_equal
000000000000b630 t _core_if
00000000000066f0 t _core_less
0000000000006030 t _core_less_equal
000000000000a5a0 t _core_let
00000000002141a0 d _core_libs
000000000000e8d0 t _core_mem
00000000000041e0 t _core_min
0000000000004be0 t _core_mod
0000000000004040 t _core_mul
000000000000d7b0 t _core_neg
0000000000006df0 t _core_next
000000000000e950 t _core_not
0000000000005990 t _core_not_equal
0000000000004010 t _core_open_bracket
0000000000003bf0 t _core_or
00000000000043a0 t _core_pow
0000000000007250 t _core_return
00000000000039c0 t _core_step
0000000000003bc0 t _core_then
00000000000039f0 t _core_to
0000000000003960 t _core_until
0000000000003990 t _core_wend
000000000000af00 t _core_while
                 U cosf@@GLIBC_2.2.5
                 U __ctype_b_loc
                 U __ctype_toupper_loc
0000000000007fe0 t _cut_symbol
00000000000076c0 t _destroy_object
0000000000007700 t _destroy_object_non_syntax
00000000000073b0 t _dispose_object
0000000000214598 d _DYNAMIC
0000000000214938 D _edata
00000000002149a0 B _end
0000000000214420 d _ERR_DESC
000000000000a9b0 t _execute_statement
                 U exit
0000000000214988 b _exp_assign
                 U exp@@GLIBC_2.2.5
0000000000005930 t _extract_string
                 U fclose
                 U fgets
0000000000003030 T finimodu
                 U floorf@@GLIBC_2.2.5
                 U fopen
                 U fread
                 U free
                 U fseek
                 U ftell
                 U fwrite
0000000000008fd0 t _get_array_index
0000000000002eb0 t _get_inputer.part.23
0000000000002ed0 t _get_printer.part.24
0000000000005660 t _get_priority_index
0000000000005480 t _get_size_of.part.11
0000000000214728 d _GLOBAL_OFFSET_TABLE_
0000000000007340 t _ht_clear
0000000000003910 t _ht_cmp_int
0000000000004380 t _ht_cmp_string
0000000000008ee0 t _ht_create.constprop.74
00000000000078a0 t _ht_destroy
0000000000005270 t _ht_find
0000000000007800 t _ht_foreach
00000000000048e0 t _ht_hash_int
0000000000004890 t _ht_hash_string
0000000000007de0 t _ht_set_or_insert
0000000000006e50 t _internal_object_to_public_value
00000000000054e0 t _is_expression_terminal
0000000000004700 t _is_flow
0000000000004810 t _is_identifier_char
0000000000004600 t _is_operator
0000000000004850 t _is_operator_char
00000000000058d0 t _is_string
                 U logf@@GLIBC_2.2.5
00000000000072e0 t _ls_clear
00000000000038f0 t _ls_cmp_data
0000000000003900 t _ls_cmp_extra
0000000000004390 t _ls_cmp_extra_string
0000000000007ce0 t _ls_create_node
0000000000007860 t _ls_destroy
0000000000002e90 t _ls_empty.part.22
0000000000007760 t _ls_foreach
0000000000007190 t _ls_free_extra
00000000000071d0 t _ls_popback
0000000000007d30 t _ls_pushback
00000000000070b0 t _ls_try_remove
0000000000002ef0 T ltrim
                 U malloc
0000000000214980 b _mb_allocated
0000000000003130 T mbas_close
0000000000003090 T mbas_dispose
00000000000033c0 T mbas_getdbl
0000000000003320 T mbas_getint
0000000000003460 T mbas_getstr
0000000000003040 T mbas_init
0000000000003200 T mbas_load_file
0000000000003180 T mbas_load_str
00000000000030e0 T mbas_open
00000000000032d0 T mbas_reset
0000000000003280 T mbas_run
0000000000003660 T mbas_setdbl
0000000000003530 T mbas_setint
00000000000037a0 T mbas_setstr
000000000000d280 T mb_attempt_close_bracket
000000000000ce10 T mb_attempt_func_begin
000000000000cea0 T mb_attempt_func_end
000000000000d1e0 T mb_attempt_open_bracket
000000000000c940 T mb_close
000000000000f820 T mb_debug_get
000000000000f8f0 T mb_debug_set
000000000000f980 T mb_debug_set_stepped_handler
000000000000c340 T mb_dispose
000000000000bfd0 T mb_dispose_value
0000000000006f80 t mb_free
000000000000f9e0 T mb_get_error_desc
000000000000f9b0 T mb_get_last_error
00000000000045a0 T mb_gets
000000000000d350 T mb_has_arg
000000000000c090 T mb_init
000000000000fbf0 T mb_load_file
000000000000fa20 T mb_load_string
0000000000007950 t mb_malloc
000000000000ff60 T mb_memdup
000000000000c5f0 T mb_open
000000000000d580 T mb_pop_int
000000000000d600 T mb_pop_real
000000000000d680 T mb_pop_string
000000000000d6f0 T mb_pop_usertype
000000000000d3c0 T mb_pop_value
000000000000e870 T mb_push_int
000000000000f120 T mb_push_real
000000000000f220 T mb_push_string
000000000000f770 T mb_push_usertype
000000000000d760 T mb_push_value
000000000000cde0 T mb_register_func
000000000000cdf0 T mb_remove_func
000000000000ce00 T mb_remove_reserved_func
000000000000cb40 T mb_reset
000000000000fd20 T mb_run
000000000000fed0 T mb_set_error_handler
000000000000ff30 T mb_set_inputer
000000000000ff00 T mb_set_printer
0000000000004560 t mb_strupr
000000000000f7d0 T mb_suspend
000000000000c020 T mb_ver
000000000000c030 T mb_ver_string
                 U memcpy
                 U memmove
                 U memset
0000000000214990 b _OBJ_BOOL_FALSE
0000000000214998 b _OBJ_BOOL_TRUE
0000000000011550 r _OBJ_INT_ZERO
0000000000007e80 t _open_constant
0000000000008940 t _parse_char
                 U pow@@GLIBC_2.2.5
00000000000113e0 r _PRECEDE_TABLE
0000000000011320 r __PRETTY_FUNCTION__.5458
00000000000112a7 r __PRETTY_FUNCTION__.5473
00000000000112e3 r __PRETTY_FUNCTION__.5479
000000000001109e r __PRETTY_FUNCTION__.5488
0000000000011056 r __PRETTY_FUNCTION__.5499
0000000000010ec4 r __PRETTY_FUNCTION__.5507
00000000000110cb r __PRETTY_FUNCTION__.5512
000000000001104a r __PRETTY_FUNCTION__.5519
0000000000011350 r __PRETTY_FUNCTION__.5525
0000000000011340 r __PRETTY_FUNCTION__.5534
0000000000011330 r __PRETTY_FUNCTION__.5545
0000000000011293 r __PRETTY_FUNCTION__.5588
0000000000010e30 r __PRETTY_FUNCTION__.5600
0000000000010cb0 r __PRETTY_FUNCTION__.5609
0000000000010c66 r __PRETTY_FUNCTION__.5624
0000000000010c90 r __PRETTY_FUNCTION__.5632
0000000000011372 r __PRETTY_FUNCTION__.5641
000000000001139b r __PRETTY_FUNCTION__.5645
0000000000011114 r __PRETTY_FUNCTION__.5681
0000000000011100 r __PRETTY_FUNCTION__.5686
00000000000110e0 r __PRETTY_FUNCTION__.5698
00000000000111b0 r __PRETTY_FUNCTION__.5704
0000000000011240 r __PRETTY_FUNCTION__.5733
0000000000010de0 r __PRETTY_FUNCTION__.5780
00000000000112d0 r __PRETTY_FUNCTION__.5785
0000000000010dd2 r __PRETTY_FUNCTION__.5789
0000000000010dfe r __PRETTY_FUNCTION__.5793
0000000000010ab0 r __PRETTY_FUNCTION__.5824
0000000000010aff r __PRETTY_FUNCTION__.5836
0000000000010af0 r __PRETTY_FUNCTION__.5851
0000000000010ae1 r __PRETTY_FUNCTION__.5875
0000000000010ad0 r __PRETTY_FUNCTION__.5907
0000000000010b0b r __PRETTY_FUNCTION__.5937
00000000000112c0 r __PRETTY_FUNCTION__.5945
00000000000111e6 r __PRETTY_FUNCTION__.5950
0000000000011180 r __PRETTY_FUNCTION__.5957
0000000000011190 r __PRETTY_FUNCTION__.5972
0000000000011170 r __PRETTY_FUNCTION__.5988
0000000000010f70 r __PRETTY_FUNCTION__.6000
0000000000010f8a r __PRETTY_FUNCTION__.6006
00000000000111f3 r __PRETTY_FUNCTION__.6015
0000000000011200 r __PRETTY_FUNCTION__.6022
00000000000110c0 r __PRETTY_FUNCTION__.6028
00000000000110b0 r __PRETTY_FUNCTION__.6033
0000000000011210 r __PRETTY_FUNCTION__.6044
0000000000011070 r __PRETTY_FUNCTION__.6065
0000000000011220 r __PRETTY_FUNCTION__.6073
00000000000111d0 r __PRETTY_FUNCTION__.6080
0000000000010ff0 r __PRETTY_FUNCTION__.6086
0000000000011140 r __PRETTY_FUNCTION__.6092
0000000000010b80 r __PRETTY_FUNCTION__.6104
0000000000011080 r __PRETTY_FUNCTION__.6118
0000000000011260 r __PRETTY_FUNCTION__.6134
0000000000011041 r __PRETTY_FUNCTION__.6154
0000000000010fa0 r __PRETTY_FUNCTION__.6166
0000000000011251 r __PRETTY_FUNCTION__.6181
0000000000010e42 r __PRETTY_FUNCTION__.6195
0000000000010cbb r __PRETTY_FUNCTION__.6206
0000000000010ce0 r __PRETTY_FUNCTION__.6213
0000000000010c80 r __PRETTY_FUNCTION__.6218
0000000000011310 r __PRETTY_FUNCTION__.6224
0000000000010ca0 r __PRETTY_FUNCTION__.6233
0000000000010e16 r __PRETTY_FUNCTION__.6242
0000000000010cc8 r __PRETTY_FUNCTION__.6251
00000000000113b0 r __PRETTY_FUNCTION__.6260
0000000000011393 r __PRETTY_FUNCTION__.6272
0000000000011367 r __PRETTY_FUNCTION__.6277
000000000001135f r __PRETTY_FUNCTION__.6287
0000000000010cd7 r __PRETTY_FUNCTION__.6297
0000000000010c70 r __PRETTY_FUNCTION__.6307
0000000000010c50 r __PRETTY_FUNCTION__.6329
0000000000010c30 r __PRETTY_FUNCTION__.6337
0000000000010c10 r __PRETTY_FUNCTION__.6345
0000000000010bf0 r __PRETTY_FUNCTION__.6354
0000000000010be5 r __PRETTY_FUNCTION__.6363
0000000000010bda r __PRETTY_FUNCTION__.6372
0000000000010bce r __PRETTY_FUNCTION__.6387
0000000000010bc0 r __PRETTY_FUNCTION__.6402
0000000000010bb0 r __PRETTY_FUNCTION__.6416
0000000000010ba1 r __PRETTY_FUNCTION__.6433
0000000000010b6d r __PRETTY_FUNCTION__.6442
0000000000010b60 r __PRETTY_FUNCTION__.6451
0000000000010b51 r __PRETTY_FUNCTION__.6460
0000000000010b40 r __PRETTY_FUNCTION__.6469
0000000000010b26 r __PRETTY_FUNCTION__.6478
0000000000010b17 r __PRETTY_FUNCTION__.6493
0000000000010a99 r __PRETTY_FUNCTION__.6508
0000000000010a92 r __PRETTY_FUNCTION__.6516
0000000000010a87 r __PRETTY_FUNCTION__.6526
0000000000010a7a r __PRETTY_FUNCTION__.6536
0000000000010a6d r __PRETTY_FUNCTION__.6545
0000000000010a50 r __PRETTY_FUNCTION__.6551
0000000000010a30 r __PRETTY_FUNCTION__.6556
0000000000010a10 r __PRETTY_FUNCTION__.6560
00000000000109f0 r __PRETTY_FUNCTION__.6566
00000000000109df r __PRETTY_FUNCTION__.6572
00000000000109d0 r __PRETTY_FUNCTION__.6578
0000000000011380 r __PRETTY_FUNCTION__.6594
0000000000010e51 r __PRETTY_FUNCTION__.6601
0000000000010e5b r __PRETTY_FUNCTION__.6620
0000000000010e65 r __PRETTY_FUNCTION__.6632
0000000000010e6f r __PRETTY_FUNCTION__.6644
0000000000010e79 r __PRETTY_FUNCTION__.6663
0000000000010e83 r __PRETTY_FUNCTION__.6682
0000000000010e90 r __PRETTY_FUNCTION__.6694
0000000000010eb0 r __PRETTY_FUNCTION__.6701
0000000000010ece r __PRETTY_FUNCTION__.6711
0000000000010ed8 r __PRETTY_FUNCTION__.6727
0000000000010ee4 r __PRETTY_FUNCTION__.6757
0000000000010eef r __PRETTY_FUNCTION__.6788
0000000000010f00 r __PRETTY_FUNCTION__.6819
0000000000010f20 r __PRETTY_FUNCTION__.6850
0000000000010f40 r __PRETTY_FUNCTION__.6881
0000000000010f50 r __PRETTY_FUNCTION__.6910
0000000000010f5a r __PRETTY_FUNCTION__.6922
0000000000010f63 r __PRETTY_FUNCTION__.6935
0000000000010f80 r __PRETTY_FUNCTION__.6955
0000000000010f96 r __PRETTY_FUNCTION__.6983
0000000000010faf r __PRETTY_FUNCTION__.6998
0000000000010fb8 r __PRETTY_FUNCTION__.7013
0000000000010fc3 r __PRETTY_FUNCTION__.7020
0000000000010fd0 r __PRETTY_FUNCTION__.7027
0000000000010fdb r __PRETTY_FUNCTION__.7034
0000000000011001 r __PRETTY_FUNCTION__.7052
000000000001100b r __PRETTY_FUNCTION__.7069
0000000000011014 r __PRETTY_FUNCTION__.7076
000000000001101f r __PRETTY_FUNCTION__.7086
000000000001102a r __PRETTY_FUNCTION__.7097
0000000000011036 r __PRETTY_FUNCTION__.7108
0000000000011273 r __PRETTY_FUNCTION__.7120
000000000001127c r __PRETTY_FUNCTION__.7131
0000000000011288 r __PRETTY_FUNCTION__.7138
000000000001129c r __PRETTY_FUNCTION__.7148
00000000000112b4 r __PRETTY_FUNCTION__.7157
00000000000112ef r __PRETTY_FUNCTION__.7165
00000000000112fc r __PRETTY_FUNCTION__.7172
0000000000011306 r __PRETTY_FUNCTION__.7181
0000000000010cef r __PRETTY_FUNCTION__.7188
0000000000010cf8 r __PRETTY_FUNCTION__.7204
0000000000010d01 r __PRETTY_FUNCTION__.7220
0000000000010d0a r __PRETTY_FUNCTION__.7236
0000000000010d15 r __PRETTY_FUNCTION__.7252
0000000000010d1f r __PRETTY_FUNCTION__.7268
0000000000010d28 r __PRETTY_FUNCTION__.7284
0000000000010d33 r __PRETTY_FUNCTION__.7300
0000000000010d3c r __PRETTY_FUNCTION__.7310
0000000000010d45 r __PRETTY_FUNCTION__.7326
0000000000010d4e r __PRETTY_FUNCTION__.7342
0000000000010d57 r __PRETTY_FUNCTION__.7358
0000000000010d61 r __PRETTY_FUNCTION__.7374
0000000000010d6b r __PRETTY_FUNCTION__.7390
0000000000010d75 r __PRETTY_FUNCTION__.7406
0000000000010d7e r __PRETTY_FUNCTION__.7422
0000000000010d87 r __PRETTY_FUNCTION__.7438
0000000000010d90 r __PRETTY_FUNCTION__.7451
0000000000010d99 r __PRETTY_FUNCTION__.7464
0000000000010da3 r __PRETTY_FUNCTION__.7477
0000000000010dac r __PRETTY_FUNCTION__.7491
0000000000010db5 r __PRETTY_FUNCTION__.7507
0000000000010dc0 r __PRETTY_FUNCTION__.7521
0000000000010dc9 r __PRETTY_FUNCTION__.7535
0000000000010df3 r __PRETTY_FUNCTION__.7552
0000000000010e0b r __PRETTY_FUNCTION__.7574
                 U printf
00000000000055a0 t _public_value_to_internal_object
                 U rand
0000000000007f20 t _register_func
0000000000008da0 t _remove_func
00000000000054b0 t _remove_source_object
0000000000002f50 T rtrim
0000000000004950 t _set_current_error
0000000000002e70 t _set_error_pos.part.8
                 U sinf@@GLIBC_2.2.5
0000000000004990 t _skip_struct
0000000000004ad0 t _skip_to
                 U __sprintf_chk
                 U sqrtf@@GLIBC_2.2.5
                 U __stack_chk_fail
000000000000e710 t _std_abs
000000000000deb0 t _std_acos
000000000000eaa0 t _std_asc
000000000000e010 t _std_asin
000000000000dd50 t _std_atan
000000000000ed80 t _std_ceil
000000000000f6d0 t _std_chr
000000000000e2d0 t _std_cos
                 U stderr
000000000000dbd0 t _std_exp
000000000000ec60 t _std_fix
000000000000eea0 t _std_floor
                 U stdin
000000000000cee0 t _std_input
000000000000f5f0 t _std_left
000000000000ea10 t _std_len
0000000000214000 d _std_libs
000000000000da70 t _std_log
000000000000f4a0 t _std_mid
000000000000a0e0 t _std_print
000000000000f3a0 t _std_right
000000000000f180 t _std_rnd
000000000000eb30 t _std_round
000000000000efc0 t _std_sgn
000000000000e430 t _std_sin
000000000000e590 t _std_sqr
000000000000f280 t _std_str
000000000000e170 t _std_tan
000000000000d960 t _std_val
                 U strcat
                 U strcmp
                 U strcpy
                 U strlen
                 U strtod
                 U strtol
                 U tanf@@GLIBC_2.2.5
0000000000002fe0 T trim
0000000000006da0 t _try_clear_intermediate_value.isra.19
0000000000008f60 t _try_get_value.constprop.75
0000000000003000 T versmodu
jrs@laptop:~/sb/sb22/modules$

Title: Re: MY-BASIC
Post by: wangrenxin on April 25, 2015, 02:47:31 AM

It's in main.c as well as _list_program.

Title: Re: MY-BASIC
Post by: John on April 25, 2015, 07:38:35 AM

Quote from: wangrenxin on April 25, 2015, 02:47:31 AM

It's in main.c as well as _list_program.

Can you make an exported - CORE version of this? The mb_assert() seems MIA if I try to use it.

Code: C

static char* _get_code(_code_line_t* code) {
        char* result = 0;
        int i = 0;
        mb_assert(code);
        result = (char*)malloc((_MAX_LINE_LENGTH + 2) * code->count + 1);
        result[0] = '\0';
        for(i = 0; i < code->count; ++i) {
                result = strcat(result, code->lines[i]);
                if(i != code->count - 1)
                        result = strcat(result, "\n");
        }
 
        return result;
}
 

Title: Re: MY-BASIC
Post by: wangrenxin on April 25, 2015, 11:47:40 PM

Well, as you see, it's not a part of core, but a part of shell. The source code is only manipulatable at the shell layer, the core layer doesn't know what the source text is, it's not possible and doesn't make any sence to export _get_code only, the proper way to manipulate source code is maintain it yourself, maybe port some functions from main.c.

Title: Re: MY-BASIC
Post by: John on April 26, 2015, 12:10:50 AM

That makes sense. This means the posted binaries are the MY-BASIC Script BASIC extension modules for Windows 32 bit and Lunux (Ubuntu) 64 bit.

Thanks Tony for your help and additions to your code to make this a worth while adventure.

I'm glad to see Markus (http://forum.basicprogramming.org/index.php/topic,4855.0.html) (Cybermonkey) adding graphics primitives to My-BASIC. This might be a good project to generate a spark to ignite your Retro BASIC Gaming (http://retrogamecoding.org/board/index.php) forum/site. I would like to see MY-BASIC be the BASM (tutorial compiler) of interpreters.

(http://forum.basicprogramming.org/index.php?action=dlattach;topic=4855.0;attach=2337)

Code: [Select]

screen (512,512,"Fractal")

bx=0
by=0
bw=256*2
bh=256*2

sx=-2.2
sy=-1.7
sw=3.4
sh=3.4

cls

for x=bx to bx+bw
 for y=by to by+bh 
   gx=(x-bx)/bw*sw+sx
   gy=(y-by)/bh*sh+sy
   zx=gx
   zy=gy
   for c=0 to 255
    col = c
    nzx=zx*zx - zy*zy + gx
    zy=2*zx*zy+gy
    zx=nzx
    if zx*zx + zy*zy > 4 then  col = c:  exit
  next
  r = col*256+col
  v = col*256+col*32
  b = col*256+col*64          
  ink (r,v,b)
  pset (x,y)
sync
 next
next

sync
do
sleep (15)
until keypressed=true

Title: Re: MY-BASIC
Post by: wangrenxin on April 26, 2015, 07:52:29 PM

Sounds great. I'll add a wiki page on linking with MY-BASIC as a lib later.

It seems guys at BP have made a lot of dedication with MB these days.

Title: Re: MY-BASIC
Post by: John on April 26, 2015, 07:56:49 PM

Markus is a smart guy and great programmer. I'm sure he will make you proud with his accomplishments.

Title: Re: MY-BASIC
Post by: wangrenxin on April 27, 2015, 12:11:59 AM

@John

See Link with MY-BASIC (https://github.com/paladin-t/my_basic/wiki/Link-with-MY_BASIC).

Title: Re: MY-BASIC
Post by: John on April 30, 2015, 03:08:27 PM

Here is an MY-BASIC / AllegroBASIC example from Markus (Cybermonkey) on the BP.org forum.

(http://forum.basicprogramming.org/index.php?action=dlattach;topic=4868.0;attach=2371;image)

Code: Text

screen (800,600,"CircleTrap")
KEY_ESC          = 59   
 
h = screenheight/2
w = screenwidth/2
paper (0,0,0)
do
cls
t = tickcount/1000
for i=1 to 360 
    ink (255-i,255,255)
    circle (w+sin(i*90+t)*200,h+cos(i*90+t)*200,20+i)
next
sync
sleep (12)
until keystate (KEY_ESC) = true
end
 

Title: Re: MY-BASIC
Post by: Cybermonkey342 on May 01, 2015, 10:30:09 AM

Hi, I just registered ar Allbasic.info.
I think I can offer you a download of AllegroBASIC soon ... just have a little patience.
I just implemented loading and displaying bitmaps and sprites. (In Allegro4 a sprite is also a bitmap but the colour 255,0,255 isn't drawn).

Title: Re: MY-BASIC
Post by: John on May 01, 2015, 10:36:24 AM

Welcome Markus!

I'm glad you decided to join the rest of the BASIC developer that hang out here. I added you to the BASIC Developer's group so we are now a band of 13.

Looking forward to seeing the extension code you added to MY-BASIC. I'm hoping to pickup some tips for the SB SDL_gfx extension module.

John

Title: Re: MY-BASIC
Post by: wangrenxin on May 04, 2015, 01:40:08 AM

Welcome Markus!

Nice to hear that!

WRX.

Title: Re: MY-BASIC
Post by: John on May 17, 2015, 01:58:09 PM

Markus,

How are things going with AllegroBASIC? How about some news? :)

Title: Re: MY-BASIC
Post by: wangrenxin on September 17, 2015, 12:46:52 AM

After several spare weekends passed, I'd be happy to tell you that MY-BASIC supports user defined sub routine now. A more elegant hello-world in MB is something like this:

Code: PHP

def foo(a, b)
    print a + " " + b;
enddef
 
foo("Hello", "world!")
 

Definitely you can return value in a sub routine as:

Code: PHP

def bar(a, b)
    return a + b
enddef
 
c = bar(1, 2)
print c
 

Title: Re: MY-BASIC
Post by: John on September 17, 2015, 09:48:08 AM

Great news!

I would call them SUBs / FUNCTIONs rather than subroutines which in BASIC refers to a GOSUB routines.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on September 17, 2015, 11:24:34 AM

Wow, that's great. i just made a new compile of AllegroBASIC and that works fine. I had not much time to code on that project since I am at the moment finalizing Pulsar2D. After that I might start over with AllegroBASIC again.

Oh, I found one issue: you can't assign real numbers to variables anymore. Is that intended? The following code fails e.g.:

Code: [Select]

pi = 3.141
The error tells something about an invalid character ...

Title: Re: MY-BASIC
Post by: John on September 17, 2015, 06:35:33 PM

I'm glad you haven't given up on AllegroBASIC. I plan to update the Script BASIC extension module of My-BASIC when you guys feel it's stable.

Title: Re: MY-BASIC
Post by: wangrenxin on September 17, 2015, 07:22:08 PM

Quote from: Cybermonkey342 on September 17, 2015, 11:24:34 AM

Oh, I found one issue: you can't assign real numbers to variables anymore.

Quite a bug... Fixed in latest revision. Thanks for telling me.

Quote from: John on September 17, 2015, 06:35:33 PM

I'm glad you haven't given up on AllegroBASIC. I plan to update the Script BASIC extension module of My-BASIC when you guys feel it's stable.

I believe it needs some time to test it and make this new feature robust. I plan to implement an OOP paradigm also, but won't start until exist mechanism stable, considering it takes about two years to decide to make sub routine (or function) from an idea... Keep going guys.

Title: Re: MY-BASIC
Post by: John on September 17, 2015, 09:53:43 PM

Thanks for the fix Tony and I'll generate a new set of share objects (SB ext. mod) of My-BASIC for folks to try.

Title: Re: MY-BASIC
Post by: John on September 18, 2015, 12:14:25 AM

Tony,

Your latest code seems to work for me. (Ubuntu 64 bit)

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
def bar(a, b)
    return a + b
enddef
 
c = bar(1, 2.5)
print c,"\n"
"""
mb_init()
mb_open()
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ scriba testmb.sb 3.5 jrs@laptop:~/sb/sb22/mybasic$

Does your new subs & functions support recursive use?

Title: Re: MY-BASIC
Post by: wangrenxin on September 18, 2015, 01:11:38 AM

It's wonderful, John.

Title: Re: MY-BASIC
Post by: John on September 18, 2015, 02:23:50 AM

I'll give it a try running in a thread tomorrow. 8)

Title: Re: MY-BASIC
Post by: Cybermonkey342 on September 18, 2015, 08:24:52 AM

Quote from: wangrenxin on September 17, 2015, 07:22:08 PM

Quote from: Cybermonkey342 on September 17, 2015, 11:24:34 AM
Oh, I found one issue: you can't assign real numbers to variables anymore.
Quite a bug... Fixed in latest revision. Thanks for telling me.

Thanks for fixing the bug. It works again as expected.

Title: Re: MY-BASIC
Post by: John on September 19, 2015, 08:55:34 PM

Tony,

I tried a simple SUB recursion test and it didn't work and segmentation faulted.

Code: [Select]

def plusone(a)
    if a <= 10 then
      a = a + 1
      print a, "\n"
      plusone(a)
    endif
enddef
 
plusone(1)

This works in Script BASIC.

Code: ScriptBasic

sub plusone(a)
  if a <= 10 then
    a = a + 1
    print a, "\n"
    plusone(a)
  end if
end sub
 
plusone(1)
 

jrs@laptop:~/sb/sb22/test$ scriba plusone.sb 2 3 4 5 6 7 8 9 10 11 jrs@laptop:~/sb/sb22/test$

Title: Re: MY-BASIC
Post by: wangrenxin on September 19, 2015, 11:04:35 PM

Quote from: John on September 19, 2015, 08:55:34 PM

I tried a simple SUB recursion test and it didn't work and segmentation faulted.

I'll look over to fix it, and post it when it's done. Thanks for report.

Title: Re: MY-BASIC
Post by: wangrenxin on September 20, 2015, 06:41:42 AM

Hi John,

I've added recursive sub routine support in the latest revision.

Further more, I plan to implement tail recursion optimization later.

Title: Re: MY-BASIC
Post by: John on September 22, 2015, 06:38:52 PM

Seems to work. Have you also tested it with FUNCTIONs returning a value in a recursive mode?

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
def plusone(a)
    if a <= 10 then
      a = a + 1
      print a, "\n"
      plusone(a)
    endif
enddef
 
plusone(1)
"""
mb_init
mb_open
mb_load_str mb_code
mb_run
mb_close
mb_dispose
 
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbrecur.sb 2 3 4 5 6 7 8 9 10 11 jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: wangrenxin on September 23, 2015, 10:33:25 PM

Quote from: John on September 22, 2015, 06:38:52 PM

Seems to work. Have you also tested it with FUNCTIONs returning a value in a recursive mode?

I've fixed some bugs with sub routines in latest revision.

Now sub routines return a value in a recursive mode work fine, eg:

Code: ScriptBasic

def fac(a)
    if a = 0 then
        return 1
    endif
 
    return a * fac(a - 1)
enddef
 
print fac(6);
 

Title: Re: MY-BASIC
Post by: John on September 24, 2015, 12:52:07 AM

Tony,

No errors and I assume the value returned is correct. Can you show an example of CLASS/ENDCLASS? I couldn't find anything about it in the docs. It looks like you implemented the optimize tail recursion based on your Github readme.

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
def fac(a)
    if a = 0 then
        return 1
    endif
 
    return a * fac(a - 1)
enddef
 
print fac(6);
"""
mb_init
mb_open
mb_load_str mb_code
mb_run
mb_close
mb_dispose
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbfac.sb 720 jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: John on September 24, 2015, 01:08:16 AM

I thought I would give your precompiled Windows version a try in Wine and notice this error with a simple FOR/NEXT structure.

Interestingly it works fine in Script BASIC using your latest code base.

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
for x = 1 to 5
print x;
next x
"""
mb_init
mb_open
mb_load_str mb_code
mb_run
mb_close
mb_dispose
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbfornext.sb 1 2 3 4 5 jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: wangrenxin on September 24, 2015, 01:23:23 AM

Quote from: John on September 24, 2015, 12:52:07 AM

Can you show an example of CLASS/ENDCLASS?

It's not implemented yet, I just reserved those keywords.

Quote from: John on September 24, 2015, 01:08:16 AM

I thought I would give your precompiled Windows version a try in Wine and notice this error with a simple FOR/NEXT structure.

Sounds odd and interesting, I'll take a look on Linux natively and on Wine.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on September 26, 2015, 02:21:20 PM

Sorry to tell you that I can't use the latest update. I can compile AllegroBASIC but it won't even start it gives me just a memory access error. The version before that update works fine, though. Seems to be the recursive subroutine support ...

EDIT: Hm, I tried compiling with GCC and it works, seems only TCC to be affected ...

Title: Re: MY-BASIC
Post by: John on September 26, 2015, 02:45:28 PM

Quote

EDIT: Hm, I tried compiling with GCC and it works, seems only TCC to be affected ...

That sure adds an interesting spin.

I wonder what Tony used to compile the .exe version he includes in the distribution?

Title: Re: MY-BASIC
Post by: wangrenxin on September 27, 2015, 08:09:51 PM

Hi guys,

I figured out that the memory corruption was caused by character list integers (I don't know the exact English term of it):

Code: C

#define _SCOPE_META_ROOT 'ROOT'
#define _SCOPE_META_REF 'REFS'
 

VS, BCB, Clang, GCC support it properly, however, PellesC, TCC don't.

I fixed it by modifying it to:

Code: C

#define _SCOPE_META_ROOT (1 << 0)
#define _SCOPE_META_REF (1 << 1)
 

Note: precompiled binaries are not updated.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on October 19, 2015, 11:49:07 AM

Thanks for fixing that. I am working again on AllegroBASIC and actually found another issue (although I do not know, if this is intended).
Let's assume you want to use a sub without a paramater something like:

Code: [Select]

def drawbackground()
...
enddef

If you call now the sub I got a memory allocation error.
Workaround at the moment:

Code: [Select]

def drawbackground(void)
...
enddef

And this can be called like

Code: [Select]

drawbackground()without any errors.

I made another progress with AllegroBASIC - the timer works now correctly.

Best thing is that the memory leak isn't there anymore although I did nothing. Maybe because of the new version of MY-BASIC I use?

Title: Re: MY-BASIC
Post by: John on October 19, 2015, 03:04:53 PM

I can confirm.

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
def bar(nul)
  PRINT "In parameteless SUB";
enddef
 
bar()
"""
mb_init()
mb_open()
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbnoprams.sb In parameteless SUB jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: John on October 20, 2015, 01:24:26 AM

Anything that is a valid variable will work as a placeholder.

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
def bar(void)
  PRINT void;
enddef
 
bar(69)
"""
mb_init()
mb_open()
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbnoprams.sb 69 jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: wangrenxin on October 20, 2015, 05:12:32 AM

Hi guys,

I've figured out it's a bug, and fixed in latest revision. I think test coverage for new features are increasing, thank you.

I also added many new features recently, but not documented yet, such as generic LIST, DICT collections, garbage collection management for a new referenced usertype, and evaluating sub from C.

A simple LIST, DICT usage eg:

Code: [Select]

l = list(1, 2, 3)
d = dict("hah", l)
c = clone(d)
print get(get(c, "hah"), 0);
i = iterator(get(c, "hah"))
while move_next(i)
    print get(i);
wend

The memory is managed by Reference Counter and GC, so don't worry about leak or reference cycles.

Another example for referenced usertype. Assuming a FOO defined:

Code: C

static void _str_dtor(struct mb_interpreter_t* s, void* ptr) {
        char* str = (char*)ptr;
 
        mb_assert(s);
 
        free(str);
}
 
static void* _str_clone(struct mb_interpreter_t* s, void* ptr) {
        char* str = (char*)ptr;
 
        mb_assert(s);
 
        ptr = malloc(strlen(str) + 1);
        memcpy(ptr, str, strlen(str) + 1);
 
        return ptr;
}
 
static void _str_fmt(struct mb_interpreter_t* s, void* ptr, mb_print_func_t f) {
        char* str = (char*)ptr;
 
        mb_assert(s);
 
        f(str);
}
 
static int foo(struct mb_interpreter_t* s, void** l) {
        int result = MB_FUNC_OK;
        char* str = 0;
        mb_value_t ret;
 
        mb_assert(s && l);
 
        mb_check(mb_attempt_open_bracket(s, l));
        mb_check(mb_attempt_close_bracket(s, l));
 
        str = (char*)malloc(16);
        memcpy(str, "hello", 6);
        mb_check(mb_make_ref_value(s, str, &ret, _str_dtor, _str_clone, 0, 0, _str_fmt));
        mb_check(mb_push_value(s, l, ret));
 
        return result;
}
 

We could use it as:

Code: [Select]

l = list()
push(l, foo())
a = clone(l)
l = nil
print pop(a);

A referenced usertype is also benefited by RC and GC.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on October 20, 2015, 01:39:15 PM

Is there anything I have to call now additionally to the mb_close and mb_dispose functions? Now everything works fine except when the interpreter closes then I got a memory allocation error. (I think it's that, because I got a German error description: "Speicherzugriffsfehler".)

Title: Re: MY-BASIC
Post by: John on October 20, 2015, 09:51:24 PM

I'm seeing the same thing on exit. On a positive note the SUB now works without passing an argument.

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
def bar()
  PRINT "It Works!";
enddef
 
bar()
"""
mb_init()
mb_open()
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbnoprams.sb It Works! Segmentation fault (core dumped) jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: John on October 20, 2015, 10:14:19 PM

Cybermonkey342,

Will I be able to embed AllegroBASIC in Script BASIC like Tony's version?

Title: Re: MY-BASIC
Post by: wangrenxin on October 21, 2015, 12:02:11 AM

Quote from: Cybermonkey342 on October 20, 2015, 01:39:15 PM

Is there anything I have to call now additionally to the mb_close and mb_dispose functions? Now everything works fine except when the interpreter closes then I got a memory allocation error. (I think it's that, because I got a German error description: "Speicherzugriffsfehler".)

Nothing additionally is needed, I didn't change "mb_xxx" function disciplines. Try the latest revision in which I've corrected some uninitialized memory issues please, it might solve the issue. It doesn't say any error when exiting, I compiled it with VC, PellesC, TCC on Windows, I'll test it with GCC and Clang on Linux and OSX later. Did it say "Speicherzugriffsfehler" with GCC?

Title: Re: MY-BASIC
Post by: John on October 21, 2015, 03:11:04 AM

Good: It no longer errors on exit.

Bad: It no longer executes the parameterless SUB like it did in the last round.

Code: Text

def bar()
  PRINT "It Works!";
enddef
 
bar()
 

Prints nothing.

Title: Re: MY-BASIC
Post by: wangrenxin on October 21, 2015, 04:36:48 AM

John,
The parameterless SUB works fine on my machine with your sample code, have you tried to rebuild it?

Title: Re: MY-BASIC
Post by: John on October 21, 2015, 10:09:49 AM

Your lastest version doesn't execute any code for me. (SUB or not) It doesn't error on exit like the previous version though.

I don't know what to say.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on October 21, 2015, 01:44:44 PM

Quote from: wangrenxin on October 21, 2015, 12:02:11 AM

Quote from: Cybermonkey342 on October 20, 2015, 01:39:15 PM
Is there anything I have to call now additionally to the mb_close and mb_dispose functions? Now everything works fine except when the interpreter closes then I got a memory allocation error. (I think it's that, because I got a German error description: "Speicherzugriffsfehler".)

Nothing additionally is needed, I didn't change "mb_xxx" function disciplines. Try the latest revision in which I've corrected some uninitialized memory issues please, it might solve the issue. It doesn't say any error when exiting, I compiled it with VC, PellesC, TCC on Windows, I'll test it with GCC and Clang on Linux and OSX later. Did it say "Speicherzugriffsfehler" with GCC?

Ah, "segmentation fault" is the correct term. Sorry, guys. I just compiled the latest version and still got the same error message. I compiled it with TCC.
EDIT: I got the same seg fault compiling it with GCC. That's on a Linux x64.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on October 21, 2015, 01:47:21 PM

Quote from: John on October 20, 2015, 10:14:19 PM

Cybermonkey342,

Will I be able to embed AllegroBASIC in Script BASIC like Tony's version?

Hm, I don't think so. AllegroBASIC is just a programm which calls a few Allegro functions and bind them to MY-BASIC.
That's the main function:

Code: [Select]

int main(int argc, char **argv)
{
	atexit(_on_exit);
	_on_startup();
	
	if (argc>1) {
		if(mb_load_file(bas, argv[1]) == MB_FUNC_OK)
			mb_run(bas);
	}
	else {
	printf ("AllegroBASIC 0.2\nUsage: allegrobasic[.exe] script.bas.\n");
	}
	
	return 0;
}

Title: Re: MY-BASIC
Post by: wangrenxin on October 21, 2015, 06:59:52 PM

Hi guys,

I got what's going wrong, there's a difference, you are probably using standard memory "malloc" "free" function, whereas I'm using the memory pool in "main.c" which doesn't fill released memory with any value, and it won't trigger error when accessing already released memory.

I'll deal with it. For the moment uncomment the "MB_ENABLE_GC" macro in "my_basic.h" to get around it.

Title: Re: MY-BASIC
Post by: wangrenxin on October 21, 2015, 08:29:04 PM

Hi all,

Fixed the seg fault with GC now.

FYI. it's recommended to use a memory pool (or object pool) instead of raw allocator. MB will generate many small objects which could be a bottleneck and cause memory fragments. A pool will relieve this situation. With the simple code below:

Code: [Select]

t = ticks()
for i = 0 to 10000000
	s = s + i
next
t = ticks() - t
print t / 1000, "s";

On i7-4790, it takes ~4.3s with the pool in "main.c", ~11.1s without it.

Title: Re: MY-BASIC
Post by: John on October 21, 2015, 08:42:37 PM

Quote

I'll deal with it. For the moment uncomment the "MB_ENABLE_GC" macro in "my_basic.h" to get around it.

There is no such code in my_basic.h.

I will try your latest fix and see if things improve.

Title: Re: MY-BASIC
Post by: John on October 21, 2015, 08:57:07 PM

Things are back to normal again.

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
def bar()
  PRINT "It Works!";
enddef
 
bar()
"""
mb_init()
mb_open()
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbnoprams.sb It Works! jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: Cybermonkey342 on October 22, 2015, 01:42:22 AM

Yes, it works again, also with TCC.

Title: Re: MY-BASIC
Post by: wangrenxin on January 01, 2016, 09:54:09 PM

I added a Stack Implementation in script (https://github.com/paladin-t/my_basic/wiki/Stack-module) wiki page, which would explain how to use prototype-based class in MY-BASIC quickly. Prototype-based programming is what I've done during last month. I'll add more explanation and complex sample script later.

Title: Re: MY-BASIC
Post by: John on January 01, 2016, 10:19:48 PM

Looks great Tony!

Addig OOP to MyBASIC is big step forward.

Title: Re: MY-BASIC
Post by: wangrenxin on January 08, 2016, 11:01:07 PM

Lambda abstraction supported by MY-BASIC now. Have a glance (https://github.com/paladin-t/my_basic/wiki/Lambda-abstraction)?

Title: Re: MY-BASIC
Post by: John on January 09, 2016, 02:21:54 PM

Looks interesting!

I will have to embed your latest in Script BASIC as an extension module and give it a spin.

I'm happy to see you making such great progress with MyBASIC.

BTW: I'm jealous of your outstanding markup language skills. You really make your docs look great!

Update:

I compiled a new 64 bit mb.so extension module using your new code base and all seems well.

setvars.bas

Code: [Select]

a = 0
b = 0.0
c$ = ""

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_load_file ALIAS "mbas_load_file" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
DECLARE SUB mb_getint ALIAS "mbas_getint" LIB "mb"
DECLARE SUB mb_getdbl ALIAS "mbas_getdbl" LIB "mb"
DECLARE SUB mb_getstr ALIAS "mbas_getstr" LIB "mb"
DECLARE SUB mb_setint ALIAS "mbas_setint" LIB "mb"
DECLARE SUB mb_setdbl ALIAS "mbas_setdbl" LIB "mb"
DECLARE SUB mb_setstr ALIAS "mbas_setstr" LIB "mb"
DECLARE SUB mb_reset ALIAS "mbas_reset" LIB "mb"
 
mb_init
mb_open
mb_load_file "setvars.bas"
mb_run
mb_setint "A", 123
mb_setdbl "B", 1.23
mb_setstr "C$", "One,Two,Three"
PRINT mb_getint("A"),"\n"
PRINT FORMAT("%g\n", mb_getdbl("B"))
PRINT mb_getstr("C$"),"\n"
mb_close
mb_dispose
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbvars.sb 123 1.23 One,Two,Three jrs@laptop:~/sb/sb22/mybasic$

Code: [Select]

class animal
	def speak(a)
		print "default" + a;
	enddef
endclass

class cat(animal)
	def speak(a)
		print "meow" + a;
	enddef
endclass

class dog(animal)
	def speak(a)
		print "bark" + a;
	enddef
endclass

c = new(cat)
d = new(dog)

c.speak("!")
d.speak("!")

jrs@laptop:~/sb/sb22/mybasic$ scriba mbclass.sb meow! bark! jrs@laptop:~/sb/sb22/mybasic$

Code: [Select]

f = lambda (x, y) (return x * x + y * y)
print f(3, 4);

jrs@laptop:~/sb/sb22/mybasic$ scriba invoke.sb 25 jrs@laptop:~/sb/sb22/mybasic$

Code: ScriptBasic

FUNCTION f(x,y)
  f = x * x + y * y
END FUNCTION
 
PRINT f(3, 4),"\n"
 

jrs@laptop:~/sb/sb22/mybasic$ scriba lame_dah 25 jrs@laptop:~/sb/sb22/mybasic$

;D

Title: Re: MY-BASIC
Post by: wangrenxin on January 10, 2016, 02:35:53 AM

Thank you John, MY-BASIC will keep on evolving.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on January 10, 2016, 07:09:33 AM

Hi Wang I've got a question. Maybe I do something wrong but my implemation of a drawtext function gives a memory leak if I add something to the output. For example the following BASIC code gives that memory leak:

Code: [Select]

' mousetest
KEY_ESC          = 59 
screen (640,480,"Mousetest")
hidemouse
do
cls

drawtext (100,100,"MouseX: "+str(mouseX))
drawtext (100,112,"MouseY: "+str(mouseY))
drawtext (100,124,"MouseButton: "+str(mousebutton))
drawtext (100,136,"MouseWheel: "+str(mousewheel))
if mousebutton = 1 then showmouse
if mousebutton = 2 then hidemouse
sync
until keystate (KEY_ESC) = true
end

I tried another way with the same result...

Code: [Select]

' mousetest
KEY_ESC          = 59 
screen (640,480,"Mousetest")
hidemouse
do
cls
xm=str (mouseX)
drawtext (100,100,"MouseX: ")
drawtext (160,100,xm)
if mousebutton = 1 then showmouse
if mousebutton = 2 then hidemouse
sync
until keystate (KEY_ESC) = true
end

If I comment the line with str() out and do the following

Code: [Select]

xm="320"then there's no memory leak. So it seems to me that there is a problem with the str() function...?

EDIT: Seems to be confirmed. The following program which does not output anything has a memory leak:

Code: [Select]

' mousetest
KEY_ESC          = 59 
screen (640,480,"Mousetest")
hidemouse
do
cls
xm=str (mouseX) 'instead of mousex I can also use a number but the result is still the same: memory leak
sync
until keystate (KEY_ESC) = true
end

Title: Re: MY-BASIC
Post by: John on January 19, 2016, 03:47:39 PM

FYI:

The MyBASIC STR() memory leak issue has been resolved. The info on that was lost in the forum restore from Jan. 10th 2016.

@OldBasicUser - Please rejoin the forum as your prior registration was lost in the restore.

@Charles Pegge - If you are reading this, please contact me so I can get your OxygenBasic site running on the new server.

Title: Re: MY-BASIC
Post by: wangrenxin on January 20, 2016, 02:17:02 AM

Happy to get back.

Title: Re: MY-BASIC
Post by: John on January 20, 2016, 12:03:22 PM

It's good to test your disaster recovery from time to time. ::)

Title: Re: MY-BASIC
Post by: Cybermonkey342 on January 24, 2016, 08:41:26 AM

You can now download AllegroBASIC on: http://allegrobasic.pulsar2d.org/
Be sure to read the notes for Windows 10 if you are a Windows 10 user.

Title: Re: MY-BASIC
Post by: John on January 24, 2016, 10:29:47 AM

Thanks for allowing us to take your new BASIC for a test drive. It seems I had better luck than Tomaaz did. :)

(http://files.allbasic.info/AllegroBASIC/ide.png)

(http://files.allbasic.info/AllegroBASIC/mbot.png)

(http://files.allbasic.info/AllegroBASIC/sprite.png)

(http://files.allbasic.info/AllegroBASIC/planets.png)

Title: Re: MY-BASIC
Post by: John on January 25, 2016, 08:50:36 PM

Here is AllegroBASIC running on Ubuntu 14.04 64 bit.

FYI: Console only, no IDE.

(http://files.allbasic.info/AllegroBASIC/mbot_u64.png)

(http://files.allbasic.info/AllegroBASIC/2d_u64.png)

(http://files.allbasic.info/AllegroBASIC/sprite_u64.png)

Title: Re: MY-BASIC
Post by: wangrenxin on January 26, 2016, 03:00:34 AM

Hi Markus,

The mandelbrot sample code came along with AllegroBASIC takes ~63 seconds on my i7 PC. Then I modified the code by commenting all graphics related lines, it costs almost the same duration. After that I tried to port it to a MY-BASIC shell version without graphics as well, it takes only ~15 seconds. I guess you were not using the memory pool, I recommend you to add a pool to optimize the memory performance of small chucks, since a simple implementation can even improve it more than 4 times faster. You can search for _open_mem_pool, mb_set_memory_manager(_pop_mem, _push_mem), _close_mem_pool() in shell/main.c to find my implementation.

MY-BASIC shell version without graphics:

Code: [Select]

miter=128
zm=120
time1=ticks()
for y=0 to 479 
  for x=0 to 639 
    zx=0
    zy=0
    cx= (x-320)/zm
    cy= (y-240)/zm
    i = miter
  while (zx*zx+zy*zy <4) and (i >0)
    tmp = zx * zx - zy * zy + cx
    zy = 2 * zx * zy + cy
    zx = tmp
    i=i-1
  wend
  next
next
time2=ticks()
time=(time2-time1)/1000
print time, " seconds.";
input

Title: Re: MY-BASIC
Post by: John on January 26, 2016, 10:31:41 AM

Here is the Script BASIC version for reference.

FYI: The Script BASIC version is doing 510 iterations compared to the MyBASIC version only doing 128. This was run on a fairly old laptop and nowhere close to the screaming machine you ran your test on. I gave it a try at 128 iterations and execution time only dropped by 2 10ths of a second.

(http://files.allbasic.info/ScriptBasic/gfx/sbgfxu64_mandelbrot2.png)

Code: ScriptBasic

' ScriptBasic GFX - Mandelbrot
 
IMPORT gfx.inc
 
s = gfx::Window(640,480,"ScriptBasic GFX Mandelbrot")
ts = gfx::Time()
FOR y = 0 TO 479
  FOR x = 0 TO 639
    cx = (x - 320) / 120
    cy = (y - 240) / 120
    rit = gfx::Mandelbrot(cx, cy, 510)
    gfx::PixelRGBA s, x, y, rit * 12, rit * 8, rit * 4, 255
  NEXT
NEXT
te = gfx::Time()
gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0x000000ff
gfx::Update
WHILE gfx::KeyName(1) <> "+escape"
WEND
gfx::Close
 

Title: Re: MY-BASIC
Post by: wangrenxin on January 26, 2016, 06:28:41 PM

John, that sounds so attractive that I can't refuse to read the source code of SB.

Title: Re: MY-BASIC
Post by: John on January 26, 2016, 07:16:49 PM

Quote from: wangrenxin on January 26, 2016, 06:28:41 PM

John, that sounds so attractive that I can't refuse to read the source code of SB.

It's a good read. :)

Before you dig into the source, here is the same (128 iterations) but the Mandelbrot function is written in Script BASIC rather than C.

@Markus - You can drastically reduce the time if you don't update your canvas with each pixel. Just wait until the end and update it at one time, then grab your end time.

(http://files.allbasic.info/ScriptBasic/mbrot_native.png)

Code: ScriptBasic

' ScriptBasic GFX - Mandelbrot
 
IMPORT gfx.inc
 
FUNCTION Mandelbrot(cx, cy, iter)
  LOCAL zx, zy, tp
  zx = .0
  zy = .0
  tp = .0
  WHILE zx * zx + zy * zy < 4 AND iter > 0
    tp = zx * zx - zy * zy + cx
    zy = 2 * zx * zy + cy
    zx = tp
    iter = iter - 1
  WEND
  Mandelbrot = iter
END FUNCTION
 
s = gfx::Window(640,480,"Script BASIC SDL_gfx Mandelbrot")
ts = gfx::Time()
FOR y = 0 TO 479
  FOR x = 0 TO 639
    cx = (x - 320) / 120
    cy = (y - 240) / 120
    rit = Mandelbrot(cx, cy, 128)
    gfx::PixelRGBA s, x, y, rit * 32, rit * 16, rit * 8, 255
  NEXT
NEXT
te = gfx::Time()
gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0x000000ff
gfx::Update
WHILE gfx::KeyName(1) <> "+escape"
WEND
gfx::Close
 

Title: Re: MY-BASIC
Post by: Cybermonkey342 on January 28, 2016, 09:05:08 AM

Quote from: wangrenxin on January 26, 2016, 03:00:34 AM

Hi Markus,

The mandelbrot sample code came along with AllegroBASIC takes ~63 seconds on my i7 PC. Then I modified the code by commenting all graphics related lines, it costs almost the same duration. After that I tried to port it to a MY-BASIC shell version without graphics as well, it takes only ~15 seconds. I guess you were not using the memory pool, I recommend you to add a pool to optimize the memory performance of small chucks, since a simple implementation can even improve it more than 4 times faster. You can search for _open_mem_pool, mb_set_memory_manager(_pop_mem, _push_mem), _close_mem_pool() in shell/main.c to find my implementation.

MY-BASIC shell version without graphics:
Code: [Select]
miter=128 zm=120 time1=ticks() for y=0 to 479 for x=0 to 639 zx=0 zy=0 cx= (x-320)/zm cy= (y-240)/zm i = miter while (zx*zx+zy*zy <4) and (i >0) tmp = zx * zx - zy * zy + cx zy = 2 * zx * zy + cy zx = tmp i=i-1 wend next next time2=ticks() time=(time2-time1)/1000 print time, " seconds."; input

Yes, I don't use a memory pool, this looked too complicated for a C beignner ... maybe I can use your implementation of shell/main.c?

Okay, I tried your implementation, but can't compile it whether with TCC nor with GCC:

Quote

tcc: error: undefined symbol 'MB_SIZEOF_LST'
tcc: error: undefined symbol 'MB_SIZEOF_DCT'

Title: Re: MY-BASIC
Post by: John on January 28, 2016, 12:17:38 PM

Quote

Yes, I don't use a memory pool, this looked too complicated for a C beignner ...

I have to agree, memory management and garbage collection shouldn't be part the MyBASIC API and handled transparently.

Title: Re: MY-BASIC
Post by: wangrenxin on January 28, 2016, 11:21:24 PM

@Markus, I simplified it by modifying the constant part:

Code: C

 
/*
** {========================================================
** Memory manipulation
*/
 
static const size_t _SIZEOF_4BYTES = 4;
static const size_t _SIZEOF_8BYTES = 8;
static const size_t _SIZEOF_32BYTES = 32;
static const size_t _SIZEOF_64BYTES = 64;
static const size_t _SIZEOF_128BYTES = 128;
static const size_t _SIZEOF_256BYTES = 256;
static const size_t _SIZEOF_512BYTES = 512;
 
typedef unsigned _pool_chunk_size_t;
 
typedef union _pool_tag_t {
        _pool_chunk_size_t size;
        void* ptr;
} _pool_tag_t;
 
typedef struct _pool_t {
        size_t size;
        char* stack;
} _pool_t;
 
static int pool_count = 0;
 
static _pool_t* pool = 0;
 
static long alloc_count = 0;
static long alloc_bytes = 0;
static long in_pool_count = 0;
static long in_pool_bytes = 0;
 
static long _POOL_THRESHOLD_COUNT = 0;
static long _POOL_THRESHOLD_BYTES = 1024 * 1024 * 32;
 
#define _POOL_NODE_ALLOC(size) (((char*)malloc(sizeof(_pool_tag_t) + size)) + sizeof(_pool_tag_t))
#define _POOL_NODE_PTR(s) (s - sizeof(_pool_tag_t))
#define _POOL_NODE_NEXT(s) (*((void**)(s - sizeof(_pool_tag_t))))
#define _POOL_NODE_SIZE(s) (*((_pool_chunk_size_t*)(s - sizeof(_pool_tag_t))))
#define _POOL_NODE_FREE(s) do { free(_POOL_NODE_PTR(s)); } while(0)
 
static int _cmp_size_t(const void* l, const void* r) {
        size_t* pl = (size_t*)l;
        size_t* pr = (size_t*)r;
 
        if(*pl > *pr) return 1;
        else if(*pl < *pr) return -1;
        else return 0;
}
 
static void _tidy_mem_pool(bool_t force) {
        int i = 0;
        char* s = 0;
 
        if(!force) {
                if(_POOL_THRESHOLD_COUNT > 0 && in_pool_count < _POOL_THRESHOLD_COUNT)
                        return;
 
                if(_POOL_THRESHOLD_BYTES > 0 && in_pool_bytes < _POOL_THRESHOLD_BYTES)
                        return;
        }
 
        if(!pool_count)
                return;
 
        for(i = 0; i < pool_count; i++) {
                while((s = pool[i].stack)) {
                        pool[i].stack = (char*)_POOL_NODE_NEXT(s);
                        _POOL_NODE_FREE(s);
                }
        }
 
        in_pool_count = 0;
        in_pool_bytes = 0;
}
 
static void _open_mem_pool(void) {
#define N 7
        size_t szs[N];
        size_t lst[N];
        int i = 0;
        int j = 0;
        size_t s = 0;
 
        pool_count = 0;
 
        szs[i++] = _SIZEOF_4BYTES;
        szs[i++] = _SIZEOF_8BYTES;
        szs[i++] = _SIZEOF_32BYTES;
        szs[i++] = _SIZEOF_64BYTES;
        szs[i++] = _SIZEOF_128BYTES;
        szs[i++] = _SIZEOF_256BYTES;
        szs[i++] = _SIZEOF_512BYTES;
 
        mb_assert(i == N);
 
        memset(lst, 0, sizeof(lst));
 
        /* Find all unduplicated sizes */
        for(i = 0; i < N; i++) {
                s = szs[i];
                for(j = 0; j < N; j++) {
                        if(!lst[j]) {
                                lst[j] = s;
                                pool_count++;
 
                                break;
                        } else if(lst[j] == s) {
                                break;
                        }
                }
        }
        qsort(lst, pool_count, sizeof(lst[0]), _cmp_size_t);
 
        pool = (_pool_t*)malloc(sizeof(_pool_t) * pool_count);
        for(i = 0; i < pool_count; i++) {
                pool[i].size = lst[i];
                pool[i].stack = 0;
        }
#undef N
}
 
static void _close_mem_pool(void) {
        int i = 0;
        char* s = 0;
 
        if(!pool_count)
                return;
 
        for(i = 0; i < pool_count; i++) {
                while((s = pool[i].stack)) {
                        pool[i].stack = (char*)_POOL_NODE_NEXT(s);
                        _POOL_NODE_FREE(s);
                }
        }
 
        free((void*)pool);
        pool = 0;
        pool_count = 0;
}
 
static char* _pop_mem(unsigned s) {
        int i = 0;
        _pool_t* pl = 0;
        char* result = 0;
 
        ++alloc_count;
        alloc_bytes += s;
 
        if(pool_count) {
                for(i = 0; i < pool_count; i++) {
                        pl = &pool[i];
                        if(s <= pl->size) {
                                if(pl->stack) {
                                        in_pool_count--;
                                        in_pool_bytes -= (long)(_pool_chunk_size_t)s;
 
                                        /* Pop from stack */
                                        result = pl->stack;
                                        pl->stack = (char*)_POOL_NODE_NEXT(result);
                                        _POOL_NODE_SIZE(result) = (_pool_chunk_size_t)s;
 
                                        return result;
                                } else {
                                        /* Create a new node */
                                        result = _POOL_NODE_ALLOC(pl->size);
                                        if((intptr_t)result == sizeof(_pool_tag_t)) {
                                                result = 0;
                                        } else {
                                                _POOL_NODE_SIZE(result) = (_pool_chunk_size_t)s;
                                        }
 
                                        return result;
                                }
                        }
                }
        }
 
        /* Allocate directly */
        result = _POOL_NODE_ALLOC(s);
        if((intptr_t)result == sizeof(_pool_tag_t)) {
                result = 0;
        } else {
                _POOL_NODE_SIZE(result) = (_pool_chunk_size_t)s;
        }
 
        return result;
}
 
static void _push_mem(char* p) {
        int i = 0;
        _pool_t* pl = 0;
 
        if(--alloc_count < 0) {
                mb_assert(0 && "Multiple free.");
        }
        alloc_bytes -= _POOL_NODE_SIZE(p);
 
        if(pool_count) {
                for(i = 0; i < pool_count; i++) {
                        pl = &pool[i];
                        if(_POOL_NODE_SIZE(p) <= pl->size) {
                                in_pool_count++;
                                in_pool_bytes += _POOL_NODE_SIZE(p);
 
                                /* Push to stack */
                                _POOL_NODE_NEXT(p) = pl->stack;
                                pl->stack = p;
 
                                _tidy_mem_pool(false);
 
                                return;
                        }
                }
        }
 
        /* Free directly */
        _POOL_NODE_FREE(p);
}
 
/* ========================================================} */
 
 

@John, But contexts are totally different from different users with C/C++, thus there's no one-fits-all memory pool solution, that's why C/C++ libs often accept customized memory allocator.

Title: Re: MY-BASIC
Post by: John on January 28, 2016, 11:45:22 PM

Wang,

The forum has syntax highlighting for most of the popular languages. Just use a [code=c] for syntax highlighting. (see change to your above example)

Title: Re: MY-BASIC
Post by: wangrenxin on January 29, 2016, 04:12:17 AM

Quote from: John on January 28, 2016, 11:45:22 PM

The forum has syntax highlighting for most of the popular languages. Just use a [code=c] for syntax highlighting. (see change to your above example)

Wow, that is prettier and easier to read.

Title: Re: MY-BASIC
Post by: John on January 29, 2016, 08:55:08 PM

Can MyBASIC be embedded in itself?

Here (http://www.allbasic.info/forum/index.php?topic=387.msg4243#msg4243) is an example of Script BASIC being embedded in itself.
Here (http://www.allbasic.info/forum/index.php?topic=424.msg4633#msg4633) is the same but multi-threaded.

Title: Re: MY-BASIC
Post by: wangrenxin on January 30, 2016, 01:42:35 AM

Looks interesting. I shall give MB the ability to load and run nested MB code when I made a decision to introduce COROUTINE to MB.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 05, 2016, 01:57:10 PM

Quote from: wangrenxin on January 28, 2016, 11:21:24 PM

@Markus, I simplified it by modifying the constant part:

Code: C

/*
** {========================================================
** Memory manipulation
*/

static const size_t _SIZEOF_4BYTES = 4;
static const size_t _SIZEOF_8BYTES = 8;
static const size_t _SIZEOF_32BYTES = 32;
static const size_t _SIZEOF_64BYTES = 64;
static const size_t _SIZEOF_128BYTES = 128;
static const size_t _SIZEOF_256BYTES = 256;
static const size_t _SIZEOF_512BYTES = 512;

typedef unsigned _pool_chunk_size_t;

typedef union _pool_tag_t {
_pool_chunk_size_t size;
void* ptr;
} _pool_tag_t;

typedef struct _pool_t {
size_t size;
char* stack;
} _pool_t;

static int pool_count = 0;

static _pool_t* pool = 0;

static long alloc_count = 0;
static long alloc_bytes = 0;
static long in_pool_count = 0;
static long in_pool_bytes = 0;

static long _POOL_THRESHOLD_COUNT = 0;
static long _POOL_THRESHOLD_BYTES = 1024 * 1024 * 32;

#define _POOL_NODE_ALLOC(size) (((char*)malloc(sizeof(_pool_tag_t) + size)) + sizeof(_pool_tag_t))
#define _POOL_NODE_PTR(s) (s - sizeof(_pool_tag_t))
#define _POOL_NODE_NEXT(s) (*((void**)(s - sizeof(_pool_tag_t))))
#define _POOL_NODE_SIZE(s) (*((_pool_chunk_size_t*)(s - sizeof(_pool_tag_t))))
#define _POOL_NODE_FREE(s) do { free(_POOL_NODE_PTR(s)); } while(0)

static int _cmp_size_t(const void* l, const void* r) {
size_t* pl = (size_t*)l;
size_t* pr = (size_t*)r;

if(*pl > *pr) return 1;
else if(*pl < *pr) return -1;
else return 0;
}

static void _tidy_mem_pool(bool_t force) {
int i = 0;
char* s = 0;

if(!force) {
if(_POOL_THRESHOLD_COUNT > 0 && in_pool_count < _POOL_THRESHOLD_COUNT)
return;

if(_POOL_THRESHOLD_BYTES > 0 && in_pool_bytes < _POOL_THRESHOLD_BYTES)
return;
}

if(!pool_count)
return;

for(i = 0; i < pool_count; i++) {
while((s = pool[i].stack)) {
pool[i].stack = (char*)_POOL_NODE_NEXT(s);
_POOL_NODE_FREE(s);
}
}

in_pool_count = 0;
in_pool_bytes = 0;
}

static void _open_mem_pool(void) {
#define N 7
size_t szs[N];
size_t lst[N];
int i = 0;
int j = 0;
size_t s = 0;

pool_count = 0;

szs[i++] = _SIZEOF_4BYTES;
szs[i++] = _SIZEOF_8BYTES;
szs[i++] = _SIZEOF_32BYTES;
szs[i++] = _SIZEOF_64BYTES;
szs[i++] = _SIZEOF_128BYTES;
szs[i++] = _SIZEOF_256BYTES;
szs[i++] = _SIZEOF_512BYTES;

mb_assert(i == N);

memset(lst, 0, sizeof(lst));

/* Find all unduplicated sizes */
for(i = 0; i < N; i++) {
s = szs[i];
for(j = 0; j < N; j++) {
if(!lst[j]) {
lst[j] = s;
pool_count++;

break;
} else if(lst[j] == s) {
break;
}
}
}
qsort(lst, pool_count, sizeof(lst[0]), _cmp_size_t);

pool = (_pool_t*)malloc(sizeof(_pool_t) * pool_count);
for(i = 0; i < pool_count; i++) {
pool[i].size = lst[i];
pool[i].stack = 0;
}
#undef N
}

static void _close_mem_pool(void) {
int i = 0;
char* s = 0;

if(!pool_count)
return;

for(i = 0; i < pool_count; i++) {
while((s = pool[i].stack)) {
pool[i].stack = (char*)_POOL_NODE_NEXT(s);
_POOL_NODE_FREE(s);
}
}

free((void*)pool);
pool = 0;
pool_count = 0;
}

static char* _pop_mem(unsigned s) {
int i = 0;
_pool_t* pl = 0;
char* result = 0;

++alloc_count;
alloc_bytes += s;

if(pool_count) {
for(i = 0; i < pool_count; i++) {
pl = &pool[i];
if(s <= pl->size) {
if(pl->stack) {
in_pool_count--;
in_pool_bytes -= (long)(_pool_chunk_size_t)s;

/* Pop from stack */
result = pl->stack;
pl->stack = (char*)_POOL_NODE_NEXT(result);
_POOL_NODE_SIZE(result) = (_pool_chunk_size_t)s;

return result;
} else {
/* Create a new node */
result = _POOL_NODE_ALLOC(pl->size);
if((intptr_t)result == sizeof(_pool_tag_t)) {
result = 0;
} else {
_POOL_NODE_SIZE(result) = (_pool_chunk_size_t)s;
}

return result;
}
}
}
}

/* Allocate directly */
result = _POOL_NODE_ALLOC(s);
if((intptr_t)result == sizeof(_pool_tag_t)) {
result = 0;
} else {
_POOL_NODE_SIZE(result) = (_pool_chunk_size_t)s;
}

return result;
}

static void _push_mem(char* p) {
int i = 0;
_pool_t* pl = 0;

if(--alloc_count < 0) {
mb_assert(0 && "Multiple free.");
}
alloc_bytes -= _POOL_NODE_SIZE(p);

if(pool_count) {
for(i = 0; i < pool_count; i++) {
pl = &pool[i];
if(_POOL_NODE_SIZE(p) <= pl->size) {
in_pool_count++;
in_pool_bytes += _POOL_NODE_SIZE(p);

/* Push to stack */
_POOL_NODE_NEXT(p) = pl->stack;
pl->stack = p;

_tidy_mem_pool(false);

return;
}
}
}

/* Free directly */
_POOL_NODE_FREE(p);
}

/* ========================================================} */

@John, But contexts are totally different from different users with C/C++, thus there's no one-fits-all memory pool solution, that's why C/C++ libs often accept customized memory allocator.

Thanks, I tried that. Using the mempool, calculating the mandelbrot needs about 96 seconds. Without the mempool it needs about 110 seconds if AllegroBASIC was compiled with TCC. Using GCC it needs without mempool about 96 seconds and with mempool about 94 seconds. Not the wide difference as expected ...

Title: Re: MY-BASIC
Post by: John on February 05, 2016, 02:39:40 PM

Are those numbers based on showing each pixel as it's calculated?

Here is the above 10 second example but updating the canvas with each pixel. Can you post your numbers not updating the canvas until the end?

I think this good example of what I have been saying all along about interpreters. (Script BASIC specifically) I can go from 214 seconds to 1 second with a couple line changes. That should be the true goal of any real BASIC.

(http://files.allbasic.info/ScriptBasic/gfx/mbrot_perpix.png)

Code: ScriptBasic

' ScriptBasic GFX - Mandelbrot
 
IMPORT gfx.inc
 
FUNCTION Mandelbrot(cx, cy, iter)
  LOCAL zx, zy, tp
  zx = .0
  zy = .0
  tp = .0
  WHILE zx * zx + zy * zy < 4 AND iter > 0
    tp = zx * zx - zy * zy + cx
    zy = 2 * zx * zy + cy
    zx = tp
    iter = iter - 1
  WEND
  Mandelbrot = iter
END FUNCTION
 
s = gfx::Window(640,480,"Script BASIC SDL_gfx Mandelbrot")
ts = gfx::Time()
FOR y = 0 TO 479
  FOR x = 0 TO 639
    cx = (x - 320) / 120
    cy = (y - 240) / 120
    rit = Mandelbrot(cx, cy, 128)
    gfx::PixelRGBA s, x, y, rit * 32, rit * 16, rit * 8, 255
    gfx::Update 
  NEXT
NEXT
te = gfx::Time()
gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0x000000ff
gfx::Update
WHILE gfx::KeyName(1) <> "+escape"
WEND
gfx::Close
 

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 06, 2016, 01:01:04 AM

Yep, drawing each pixel ... The funny thing is, with RETROBASIC which uses SDL2 the reuslt is way faster. Only about 60 seconds compared to the 95 seconds with Allegro4.
If I don't draw each pixel it needs with AllegroBASIC and TCC 100 seconds, so it even takes longer than drawing every pixel!

Title: Re: MY-BASIC
Post by: John on February 06, 2016, 01:05:12 AM

I'm using SDL 1.2 64 bit with my examples.

That sounds way too strange to even know where to start to unravel that.

If I remove my SDL graphics code, it still runs about the same if I waited until the end to update the canvas. (10 seconds)

Title: Re: MY-BASIC
Post by: John on February 06, 2016, 09:33:09 PM

I think I found a happy middle of the road with this Mandelbrot benchmark. Doing the update of canvas when a line is completed is visually pleasing and relatively fast.

(http://files.allbasic.info/ScriptBasic/gfx/mbrot_line.png)

Code: ScriptBasic

' ScriptBasic GFX - Mandelbrot
 
IMPORT gfx.inc
 
FUNCTION Mandelbrot(cx, cy, iter)
  LOCAL zx, zy, tp
  zx = .0
  zy = .0
  tp = .0
  WHILE zx * zx + zy * zy < 4 AND iter > 0
    tp = zx * zx - zy * zy + cx
    zy = 2 * zx * zy + cy
    zx = tp
    iter = iter - 1
  WEND
  Mandelbrot = iter
END FUNCTION
 
s = gfx::Window(640,480,"Script BASIC SDL_gfx Mandelbrot")
ts = gfx::Time()
FOR y = 0 TO 479
  FOR x = 0 TO 639
    cx = (x - 320) / 120
    cy = (y - 240) / 120
    rit = Mandelbrot(cx, cy, 128)
    gfx::PixelRGBA s, x, y, rit * 32, rit * 16, rit * 8, 255
  NEXT
  gfx::Update 
NEXT
te = gfx::Time()
gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0x000000ff
gfx::Update
WHILE gfx::KeyName(1) <> "+escape"
WEND
gfx::Close
 

Here is the same by the line method but using the C Mandelbrot iterator.

(http://files.allbasic.info/ScriptBasic/gfx/mbrot_line_citer.png)

Code: ScriptBasic

' ScriptBasic GFX - Mandelbrot
 
IMPORT gfx.inc
 
s = gfx::Window(640,480,"Script BASIC SDL_gfx Mandelbrot")
ts = gfx::Time()
FOR y = 0 TO 479
  FOR x = 0 TO 639
    cx = (x - 320) / 120
    cy = (y - 240) / 120
    rit = gfx::Mandelbrot(cx, cy, 128)
    gfx::PixelRGBA s, x, y, rit * 32, rit * 16, rit * 8, 255
  NEXT
  gfx::Update
NEXT
te = gfx::Time()
gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0x000000ff
gfx::Update
WHILE gfx::KeyName(1) <> "+escape"
WEND
gfx::Close
 

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 08, 2016, 11:24:14 AM

@Wang: I used the actual Github sources and ran into a problem ...
The following (part of the) program gives an error:

Code: [Select]

...
do
 cls
 x(i)=mousex
 y(i)=mousey
 gosub draw
 i=i+1
 if i>=1000 then i=i-1000
 sync

until keypressed=true
end

draw:
...
return

The error occurs in the line of the until statement:

Quote

Error: Line 23, Column 5: Wrong function reached in file _core_until

Any idea? Until I compiled it with the new sources it worked fine.

Title: Re: MY-BASIC
Post by: John on February 08, 2016, 11:30:23 AM

Maybe doing a DIF of the two would shed some light.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 09, 2016, 11:30:14 AM

It also seems that the exit function does'nt work properly anymore. The following code does not draw a mandelbrot with the actual my-basic.c and .h files.
I am using now the older ones which work fine. I hope you can fix that issues soon.

Code: Text

screen (256,256,"Fractal")
 
bx=0
by=0
bw=256*1
bh=256*1
 
sx=-2.2
sy=-1.7
sw=3.4
sh=3.4
 
cls
time1=tickcount
for x=bx to bx+bw
 for y=by to by+bh 
   gx=(x-bx)/bw*sw+sx
   gy=(y-by)/bh*sh+sy
   zx=gx
   zy=gy
   for c=0 to 255
    col = c
    nzx=zx*zx - zy*zy + gx
    zy=2*zx*zy+gy
    zx=nzx
    if zx*zx + zy*zy > 4 then  col = c:  exit
  next
  r = col*256+col*32*0.5
  v = col*256+col*64*0.5
  b = col*256+col*32*0.8      
  ink (r,v,b)
  pset (x,y)
 next
 redraw
next
time2=tickcount
ink (255,255,255)
time=(time2-time1)/1000
drawtext (0,0,"Time needed: "+str (time)+" seconds")
sync
inkey

Title: Re: MY-BASIC
Post by: wangrenxin on February 09, 2016, 11:52:19 PM

Marcus, which revision is the well worked one? I'd check it as soon as possible, but it's not easy to find a debug enviroument during Chinese new year.

EDIT: I finally get a debugger, try the latest revision. I fixed the wrong function error, and the EXIT issue; but there's still an issue with the EXIT statement and multiple line IF statement, I'll check it later seriously.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 10, 2016, 08:48:55 AM

Thanks, and a Happy Chinese New Year. (新年好 ;))

Title: Re: MY-BASIC
Post by: wangrenxin on February 11, 2016, 06:14:11 AM

;)

I've fixed the EXIT bug with multiple line IF.

Title: Re: MY-BASIC
Post by: John on February 11, 2016, 03:18:59 PM

Thanks Wang!

I'll give it a try from the embedding standpoint and 64 bit Linux.

Curious. Would you have an interest in contributing to the C BASIC (http://www.basic-compiler.com/forum/) project with your C skills? Maybe converting MyBASIC source to C BASIC could act as a tutorial and make the code easier to read. Even if you have no interest in a make-over, your input would be appreciated if you have time.

Title: Re: MY-BASIC
Post by: wangrenxin on February 11, 2016, 10:50:45 PM

Thank you for inviting me, John. But I'm affraid it's difficult for me to dedicate to more hobby projects now. The CB forums looks interesting, I'll join and take a look around.

Title: Re: MY-BASIC
Post by: John on February 11, 2016, 11:44:58 PM

C BASIC is a fun project and not really a language. It's a preprocessor helper tool to make C look more like BASIC.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 13, 2016, 01:16:23 AM

Quote from: wangrenxin on February 11, 2016, 06:14:11 AM

;)

I've fixed the EXIT bug with multiple line IF.

Sorry, but it still doesn't work as expected. I think the problem lies in line 26 of the above fractal example:

Code: [Select]

if zx*zx + zy*zy > 4 then col = c: exitThis only works with the older my-basic files. If I change the line into

Code: [Select]

if zx*zx + zy*zy > 4 then
 col = c
exit
endif

it even does not work with that older revision.

Title: Re: MY-BASIC
Post by: John on February 14, 2016, 09:53:52 AM

Is it just EXIT or any compound statement after a THEN?

Title: Re: MY-BASIC
Post by: wangrenxin on February 15, 2016, 07:35:44 PM

Markus, please check the latest revision.

Title: Re: MY-BASIC
Post by: John on February 15, 2016, 08:32:16 PM

Hi Wang,

Here is my quick test.

Code: [Select]

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"

mb_code = """
x = 10 : y = 2 : z = 30

IF x = 1 THEN PRINT "One"; : GOTO Done
IF y = 2 THEN PRINT "Two"; : GOTO Done
IF z = 3 THEN PRINT "Three"; : GOTO Done

Done:

END
"""
mb_init()
mb_open()
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()

jrs@laptop:~/sb/sb22/mybasic$ scriba testmbthen.sb Two jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 22, 2016, 12:25:14 PM

Quote from: wangrenxin on February 15, 2016, 07:35:44 PM

Markus, please check the latest revision.

Yes, thanks it works now.
Although there's another issue now. If I check if the window was closed MY-BASIC now doesn't end the program anymore.
This does not work:

Code: [Select]

if windowclosed = true then
 end
endif

However, any other function (e.g. exit) is exceuted ...

Title: Re: MY-BASIC
Post by: wangrenxin on February 22, 2016, 06:10:28 PM

Quote from: Cybermonkey342 on February 22, 2016, 12:25:14 PM

If I check if the window was closed MY-BASIC now doesn't end the program anymore.

The TRUE is defined as integer 1 and FALSE as integer 0 in MY-BASIC, that means 1 equals to true, but 2 not equals to true nor equals to false. It won't execute the END statement if windowclosed doesn't equal to 1. Currently, it's able to use following ways to test a condition steady.

1.

Code: Visual Basic

if windowclosed <> false then
 end
endif
 

Code: Visual Basic

if windowclosed then
 end
endif
 

I would dismiss this confusion in later refactoring.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 23, 2016, 10:40:28 AM

Oh, I think that's not the problem. My function does the following:

Code: [Select]

if (windowclosehandler!=0) {
	 windowclosehandler=1;
	}

also this code works:

Code: [Select]

do
'... other code
until (keystate (KEY_ESC) = true) or (windowclosed=true)

And another question; is it possible to initialize an array with values? Would be handy for level data, something like:

Code: [Select]

dim x(2,2)=((1,1),(2,2))

Apart from that a DATA statement would be nice ...

Title: Re: MY-BASIC
Post by: wangrenxin on February 23, 2016, 06:03:21 PM

Markus,

I've tried a simple test case, which works fine without prompting anything as expected:

Code: PHP

windowclosed = true
if windowclosed = true then
    end
endif
print "impossible";

So I think the problem is not simply within the test case. Would you provide a minimum full code which reproduce the bug?

It's not possible to initialize an array with values for the moment, I'll think over it.

Title: Re: MY-BASIC
Post by: wangrenxin on February 23, 2016, 07:17:19 PM

Markus, I've added a TO_ARRAY statement to make an array from a list, while lists are easy to initialize with data:

Code: PHP

l = list(0, 1, 2)
a = to_array(l)
print a(0); a(1); a(2);
print len(a);

Title: Re: MY-BASIC
Post by: John on February 23, 2016, 07:32:11 PM

Wang,

Does that work with string lists?

John

Title: Re: MY-BASIC
Post by: wangrenxin on February 23, 2016, 08:50:37 PM

Quote from: John on February 23, 2016, 07:32:11 PM

Does that work with string lists?

Yes, but it needs to undefine the MB_SIMPLE_ARRAY macro in my_basic.h.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 24, 2016, 08:48:05 AM

First thanks for the to_array statement. I'll try that later.
Here's the complete code (again the fractals):

Code: Text

screen (256,256,"Fractal")
 
bx=0
by=0
bw=256
bh=256
 
sx=-2.2
sy=-1.7
sw=3.4
sh=3.4
 
cls
time1=tickcount
for x=bx to bx+bw
 for y=by to by+bh 
   gx=(x-bx)/bw*sw+sx
   gy=(y-by)/bh*sh+sy
   zx=gx
   zy=gy
   for c=0 to 255
    col = c
    nzx=zx*zx - zy*zy + gx
    zy=2*zx*zy+gy
    zx=nzx
    if zx*zx + zy*zy > 4 then
    col = c
    exit
    endif
  next
  r = col*256+col*32*0.5
  v = col*256+col*64*0.5
  b = col*256+col*32*0.8      
  ink (r,v,b)
  pset (x,y)
  if windowclosed = true then
   end
  endif
 next
redraw
next
 
time2=tickcount
ink (255,255,255)
timex=(time2-time1)/1000
drawtext (0,0,"Time needed: "+str (timex)+" seconds")
sync
inkey
end

It's the lines 36 to 38. If I change the line 37 e.g. with exit (or any other statement), it is recognized, but not the end statement. Maybe because of the loops? This also didn't work with the old version. Only this did work:

Code: [Select]

if windowclosed = true then end
But in the actual version it doesn't work anymore.

Is it possible to convert lists to 2-dimensional arrays?

Title: Re: MY-BASIC
Post by: wangrenxin on February 24, 2016, 08:17:34 PM

Markus, thank your for your code, I figured out the problem due to your code. It went wrong since I'd refactored the FOR loop a few weeks ago. I've fixed it, and you can test it with following code:

Code: Text

gosub sub
end
sub:
    for j = 0 to 1
        for i = 0 to 10
            print i, ", ", j;
            v = i > 3
            if v = true then
                end ' Can be replaced with "return"
            endif
        next
    next
    return

Quote from: Cybermonkey342 on February 24, 2016, 08:48:05 AM

Is it possible to convert lists to 2-dimensional arrays?

Yep it's possible. I prefer to implement it in script:

Code: Text

def to_2d_array(l, d0, d1)
    dim ret(d0, d1)
    for j = 0 to d1 - 1
        for i = 0 to d0 - 1
            ret(i, j) = l(j * d0 + i)
        next
    next
    return ret
enddef
a = to_2d_array(list(0, 1, 2, 3), 2, 2)
print a(0, 0); a(1, 0); a(0, 1); a(1, 1);

Title: Re: MY-BASIC
Post by: John on February 24, 2016, 10:32:47 PM

Wang & Markus,

If you guys want to create a GeSHi (http://qbnz.com/highlighter/) syntax definition file for your BASIC languages, I will include them here on the forum for you to use.

Here is the Script BASIC (sb) syntax definition file.

Code: PHP

<?php
/*************************************************************************************
 * sb.php
 *
 * Author: John Spikowski (support@scriptbasic.org)
 *
 * Script BASIC language file for GeSHi.
 *
 *************************************************************************************
 *
 *     This file is part of GeSHi.
 *
 *   GeSHi is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   GeSHi is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with GeSHi; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 ************************************************************************************/
 
$language_data = array (
    'LANG_NAME' => 'Script BASIC',
    'COMMENT_SINGLE' => array(),
    'COMMENT_MULTI' => array(),
    'COMMENT_REGEXP' => array(
        // Comments (either single or multiline with _
        1 => '/\'.*(?<! _)\n/sU',
        ),
    'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
    'QUOTEMARKS' => array('"'),
    'ESCAPE_CHAR' => '',
    'KEYWORDS' => array(
        1 => array(
            'ABS', 'ACOS', 'ACOSECANT', 'ACTAN', 'ADDDAY', 'ADDHOUR', 'ADDMINUTE', 'ADDMONTH', 'ADDRESS', 'ADDSECOND', 'ADDWEEK', 'ADDYEAR', 'ALIAS', 'AND', 'AS', 'ASC', 'ASECANT', 'ASIN', 'ATAN', 'ATN', 
            'BIN', 'BINMODE', 'BY', 'BYVAL', 
            'CALL', 'CHDIR', 'CHOMP', 'CHR', 'CHR$', 'CINT', 'CLOSE', 'CLOSEALL', 'COMMAND', 'CONF', 'CONST', 'COS', 'COSECANT', 'COTAN', 'COTAN2', 'CRYPT', 'CURDIR', 'CVD', 'CVI', 'CVL', 'CVS', 
            'DAY', 'DECLARE', 'DELETE', 'DELTREE', 'DIRECTORY', 'DO', 'ELIF', 'ELSE', 'ELSEIF', 'ELSIF', 'END', 'ENDIF', 'ENVIRON', 'ENVIRON$', 'EOD', 'EOF', 'ERROR', 'ERROR$', 'EVEN', 'EXECUTE', 'EXIT', 'EXP', 
            'FALSE', 'FILE', 'FILEACCESSTIME', 'FILECOPY', 'FILECREATETIME', 'FILEEXISTS', 'FILELEN', 'FILEMODIFYTIME', 'FILEOWNER', 'FIX', 'FOR', 'FORK', 'FORMAT', 'FORMATDATE', 'FORMATTIME', 'FRAC', 'FREEFILE', 'FROM', 'FUNCTION', 
            'GCD', 'GLOBAL', 'GMTIME', 'GMTIMETOLOCALTIME', 'GO', 'GOSUB', 'GOTO', 
            'HCOS', 'HCOSECANT', 'HCTAN', 'HEX', 'HEX$', 'HOSTNAME', 'HOUR', 'HSECANT', 'HSIN', 'HTAN', 
            'ICALL', 'IF', 'IMAX', 'IMIN', 'IMPORT', 'INPUT', 'INSTR', 'INSTRREV', 'INT', 'ISARRAY', 'ISDEFINED', 'ISDIRECTORY', 'ISEMPTY', 'ISFILE', 'ISINTEGER', 'ISNUMERIC', 'ISREAL', 'ISSTRING', 'ISUNDEF', 
            'JOIN', 'JOKER', 
            'KILL', 
            'LBOUND', 'LCASE', 'LCASE$', 'LCM', 'LEFT', 'LEFT$', 'LEN', 'LET', 'LIB', 'LIKE', 'LINE', 'LOC', 'LOCAL', 'LOCALTIMETOGMTIME', 'LOCK', 'LOF', 'LOG', 'LOG10', 'LOOP', 'LOWER', 'LOWER$', 'LTRIM', 'LTRIM$', 
            'MAX', 'MAXINT', 'MID', 'MID$', 'MIN', 'MININT', 'MINUTE', 'MKD', 'MKD$', 'MKDIR', 'MKI', 'MKI$', 'MKL', 'MKL$', 'MKS', 'MKS$', 'MODULE', 'MONTH', 
            'NAME', 'NEXT', 'NEXTFILE', 'NO', 'NOT', 'NOW', 'NULL', 
            'OCT', 'OCT$', 'ODD', 'ON', 'OPEN', 'OPTION', 'OR', 'OUTPUT', 
            'PACK', 'PATTERN', 'PAUSE', 'PI', 'POP', 'POW', 'PRINT', 'PRINTNL', 
            'QUOTE', 
            'RANDOMIZE', 'REF', 'REGION', 'REPEAT', 'REPLACE', 'RESET', 'RESUME', 'RETURN', 'REWIND', 'RIGHT', 'RIGHT$', 'RND', 'ROUND', 'RTRIM', 'RTRIM$', 
            'SEC', 'SECANT', 'SEEK', 'SET', 'SGN', 'SIN', 'SLEEP', 'SPACE', 'SPACE$', 'SPLIT', 'SPLITA', 'SPLITAQ', 'SQR', 'STEP', 'STOP', 'STR', 'STR$', 'STRING', 'STRING$', 'STRREVERSE', 'STRREVERSE$', 'SUB', 'SWAP', 'SYSTEM', 
            'TAN', 'TAN2', 'TEXTMODE', 'THEN', 'TIME', 'TIMEVALUE', 'TO', 'TRIM', 'TRIM$', 'TRUE', 'TRUNCATE', 'TYPE', 
            'UBOUND', 'UCASE', 'UCASE$', 'UNDEF', 'UNPACK', 'UNTIL', 'UPPER', 'UPPER$', 
            'VAL', 'VAR', 'VBCALL', 'VBNEW', 'VBREL',
            'WAITPID', 'WEEKDAY', 'WEND', 'WHILE', 'WILD', 
            'XOR', 
            'YEAR', 'YEARDAY' 
            ),
        ),
    'SYMBOLS' => array(
        ),
    'CASE_SENSITIVE' => array(
        GESHI_COMMENTS => false,
        1 => false,
        2 => false,
        3 => false,
        4 => false,
        5 => false,
        6 => false
        ),
    'STYLES' => array(
        'KEYWORDS' => array(
            1 => 'color: #000080; font-weight: bold;',
            ),
        'COMMENTS' => array(
            1 => 'color: #008000;'
            ),
        'BRACKETS' => array(
            ),
        'STRINGS' => array(
            0 => 'color: #800000;'
            ),
        'NUMBERS' => array(
            ),
        'METHODS' => array(
            ),
        'SYMBOLS' => array(
            ),
        'ESCAPE_CHAR' => array(
            0 => 'color: #800000; font-weight: bold;'
            ),
        'SCRIPT' => array(
            ),
        'REGEXPS' => array(
            )
        ),
    'URLS' => array(
        1 => '',
        2 => '',
        3 => '',
        4 => '',
        5 => '',
        6 => ''
        ),
    'OOLANG' => false,
    'OBJECT_SPLITTERS' => array(
        ),
    'REGEXPS' => array(
        ),
    'STRICT_MODE_APPLIES' => GESHI_NEVER,
    'SCRIPT_DELIMITERS' => array(
        ),
    'HIGHLIGHT_STRICT_BLOCK' => array(
        ),
    'PARSER_CONTROL' => array(
        'ENABLE_FLAGS' => array(
            'BRACKETS' => GESHI_NEVER,
            'SYMBOLS' => GESHI_NEVER,
            'NUMBERS' => GESHI_NEVER
            )
        )
);
 
?>
 

Title: Re: MY-BASIC
Post by: wangrenxin on February 25, 2016, 03:02:21 AM

It's nice to have, John.

Here's a keywords and reserved words list in MB:

NIL, MOD, AND, OR, NOT, IS, LET, DIM, IF, THEN, ELSEIF, ELSE, ENDIF, FOR, IN, TO, STEP, NEXT, WHILE, WEND, DO, UNTIL, EXIT, GOTO, GOSUB, RETURN, CALL, DEF, ENDDEF, CLASS, ENDCLASS, NEW, VAR, REFLECT, LAMBDA, MEM, TYPE, IMPORT, END

ABS, SGN, SQR, FLOOR, CEIL, FIX, ROUND, SRND, RND, SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, LOG, ASC, CHR, LEFT, LEN, MID, RIGHT, STR, VAL, PRINT, INPUT

LIST, DICT, PUSH, POP, PEEK, INSERT, SORT, EXIST, INDEX_OF, GET, SET, REMOVE, CLEAR, CLONE, TO_ARRAY, ITERATOR, MOVE_NEXT

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 25, 2016, 11:14:49 AM

@Wang: Yeah, thanks it works again as expected. I think I can release a new version of AllegroBASIC this weekend.

@John: AllegroBASIC uses all keywords from MY-BASIC and the following additional keywords:

TRUE, FALSE(did you forget them Wang? ;)), SCREEN, SLEEP, SYNC, REDRAW, CIRCLE, FILLCIRCLE, INK, PAPER, CLS, PSET, RECTANGLE, FILLRECTANGLE, LINE, SCREENWIDTH, SCREENHEIGHT, KEYPRESSED, INKEY, DRAWTEXT, TEXTSIZE, PAINT, ELLIPSE, FILLELLIPSE, FILLTRIANGLE, TRIANGLE, KEYSTATE, MOUSEX, MOUSEY, MOUSEBUTTON, MOUSEWHEEL, SHOWMOUSE, HIDEMOUSE, TICKCOUNT, LOADBMP, LOADIMAGE, DRAWSPRITE, DRAWIMAGE, SETFPS, IMAGEWIDTH, IMAGEHEIGHT, ROTATESPRITE, SCALESPRITE, ROTATESCALEDSPRITE, LOADWAV, LOADSOUND, PLAYSOUND, STOPSOUND, FOPEN, FCLOSE, FPEEK, FPOKE, FREAD, FREAD_LINE, FWRITE, FWRITE_LINE, MESSAGEBOX, INPUTBOX, TIME, FILEEXISTS, WINDOWCLOSED

Title: Re: MY-BASIC
Post by: John on February 25, 2016, 07:20:13 PM

I put a combined mb (MyBASIC) syntax file on the server. If you add/change/remove keywords or enhance the the format I used for the Script BASIC file, let me know. (see changes to the last couple posts you guys made)

Title: Re: MY-BASIC
Post by: wangrenxin on February 25, 2016, 09:35:56 PM

@John, Thanks, it's prettier.

@Markus, Oops, forgot booleans indeed. I'm glad to help to make AllegroBASIC one more step forward.

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 26, 2016, 08:53:12 AM

@John: Cool, thanks a lot!

@Wang: The most work on AllegroBASIC is done by you! ;)
(AllegroBASIC has just about 1,400 lines of code and MY-BASIC? 16,000?)

Title: Re: MY-BASIC
Post by: Cybermonkey342 on February 28, 2016, 04:02:32 AM

Allright guys, version 0.6 of AllegroBASIC is available on the homepage: http://allegrobasic.pulsar2d.org/
What's new?

included the tinyfiledialogs libarary for error output
added messagebox and inputbox (to replace PRINT and INPUT since there's no console window anymore)
added a TIME function which returns the time in format HH:MM:SS as a string
added drawspritepart and drawimagepart which let you draw part of a bitmap
added fileexists function
new about dialog in TinyIDE

Title: Re: MY-BASIC
Post by: wangrenxin on February 28, 2016, 05:49:44 PM

Cheers!

Title: Re: MY-BASIC
Post by: wangrenxin on February 29, 2016, 06:02:11 PM

I've added some new features to MY-BASIC:

1. A new keyword "ME" to MY-BASIC to represent a class instance itself inside its scope
2. Multi-line comment support by surrounding comment lines with "'[" and "']"

See an example below:

Code: Text

class clz
        var name = "Clz"
        def tostring()
                return name ' Returns the "name"
        enddef
        def foo()
                print me; ' It will use the overridden "tostring"
        enddef
endclass
c = new(clz)
c.name = "Clz (Cloned)"
clz.foo()
c.foo()
'[ Multi-line comment
print "Won't print";
print "Won't print neither";
']
print "End";
 

@John, Could you add "ME", "'[", "']", and triple dots "..." to the MB code shader? And is it possible to tell the shader the exact type of an identifier to color it, eg. identifiers after "class", "def", and comments between "'[" and "']", it's better if they could be processed distinctively from normal symbols.

@Markus, Removing the console window is friendly for most Windows guys, but it's still necessary when debugging a script, could you give an option to allow user to open a console window? Eg. adding a "console" statement. FYI. this is a sample to create a console window for GUI based applications on Windows http://stackoverflow.com/a/23457341/609345 (http://stackoverflow.com/a/23457341/609345).

Title: Re: MY-BASIC
Post by: John on February 29, 2016, 08:03:17 PM

Have peek at the GeSHi Project Site (http://qbnz.com/highlighter/) for the options. Attached is the current mb.php being used. I think the brackets and periods should go under the symbols section. You and Markus should work together on this and come up with a color scheme you like. You can do some pretty cool stuff with the definition file and making your code readable. Download the package and look at the existing .php language definition files as a guide.

Title: Re: MY-BASIC
Post by: wangrenxin on March 01, 2016, 02:14:52 AM

Sure, it looks worth studying.

Title: Re: MY-BASIC
Post by: John on March 01, 2016, 03:25:01 AM

I would let Markus take the lead on this as he has a SMF forum he could try it on before giving me the final definition file. The point I was trying to make is that you guys should at least agree on a color scheme and how specialized syntax is dealt with. I'm sure Markus will impress us.

Title: Re: MY-BASIC
Post by: wangrenxin on March 01, 2016, 10:15:00 PM

Hi,

I've added a new sample for MY-BASIC, YARD (Yet Another RPG Dungeon), at https://github.com/paladin-t/my_basic/tree/master/sample/yard (https://github.com/paladin-t/my_basic/tree/master/sample/yard). In which I used new features I've implemented these months.

Have fun.

Title: Re: MY-BASIC
Post by: John on March 03, 2016, 01:26:19 AM

I noticed you added a reset argument to mb_load_str.

I'm not sure how the game is suppose to work as I'm not a gamer. Q doesn't seem to quit.

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
import "level.bas"
import "player.bas"
 
print "Welcome to Yet Another RPG Dungeon!";
 
level.create()
_role = new(player)
_role.init(10, 2, 1)
_role.dead_handler = lambda (_)
(
        print "- You are dead";
        level.status = game_status.lose
)
level.start(_role)
_turn = 1
while _role.alive
        print "[----  Turn ", _turn, ", HP ", _role.hp, ", ATK ", _role.atk, "  ----]";
        level.format()
        input _i$
        cls()
        if level.update(_i$) then
                _turn = _turn + 1
        endif
wend
level.format()
"""
mb_init()
mb_open()
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mb_dungeon.sb Welcome to Yet Another RPG Dungeon! [---- Turn 1, HP 10, ATK 2 ----] <0, 0> [Operations] E: Go east Q: Quit game

Title: Re: MY-BASIC
Post by: wangrenxin on March 03, 2016, 03:29:03 AM

Quote from: John on March 03, 2016, 01:26:19 AM

I noticed you added a reset argument to mb_load_str.

Yes, pass with true for most cases.
I'm always cautious to change the API, but it's easy to get wrong with multi-line comments if I didn't add this parameter.

Quote from: John on March 03, 2016, 01:26:19 AM

I'm not sure how the game is suppose to work as I'm not a gamer. Q doesn't seem to quit.

I forgot to mention pressing enter after chosen a command.

Title: Re: MY-BASIC
Post by: John on March 03, 2016, 08:26:01 AM

Quote

I forgot to mention pressing enter after chosen a command.

Tried that. No commands seem to work.

Title: Re: MY-BASIC
Post by: wangrenxin on March 03, 2016, 11:04:06 PM

@John, It accepts lower case command only, I've fixed this issue by checking both lower and upper case command input.

Title: Re: MY-BASIC
Post by: John on March 03, 2016, 11:30:46 PM

Not working and unpredictable and it maxes out my CPU(s).

Title: Re: MY-BASIC
Post by: wangrenxin on March 04, 2016, 01:27:38 AM

Quote from: John on March 03, 2016, 11:30:46 PM

Not working and unpredictable and it maxes out my CPU(s).

So sad, it works fine on my Windows. I'll check it on Linux later.

But one odd thing is MB is single threaded, how could it burn both of your CPU cores to 100%...

Title: Re: MY-BASIC
Post by: John on March 04, 2016, 02:10:25 AM

Quote

But one odd thing is MB is single threaded, how could it burn both of your CPU cores to 100%...

Core leak. :)

Title: Re: MY-BASIC
Post by: wangrenxin on March 11, 2016, 03:59:37 AM

@John, it works fine with my Windows, OSX and Linux (Raspbian for RasPi), could you provide more detailed information for the segment fault?

@All, I've added a short Interop with C# (https://github.com/paladin-t/my_basic/wiki/Interop-with-C%23) wiki.

Title: Re: MY-BASIC
Post by: John on March 11, 2016, 09:51:01 PM

My gut was right and Script BASIC is seeing your include as its include. What makes me smile is I didn't get a pre-run syntax error loading MyBASIC code.

I think this is a bug in Script BASIC as it interprets include if the first statement on the line as its own and ignores that it is part of a multi-line string. :-\

The problem is the included code was inside the MyBASIC code block so MyBASIC was freaking out on multiple sets of the same functions.

jrs@laptop:~/sb/sb22/mybasic$ scriba dbgcon.sb mb_dungeon.sb Application: ScriptBasic Remote Debugger - Linux Version: 1.0 Source-File-Count: 9 Source-File: mb_dungeon.sb Source-File: level.bas Source-File: goal.bas Source-File: entity.bas Source-File: map.bas Source-File: utils.bas Source-File: monster.bas Source-File: npc.bas Source-File: player.bas Line: 1 ->

Title: Re: MY-BASIC
Post by: wangrenxin on March 14, 2016, 12:37:29 AM

Does SB take the import "xxx" as its own include? I'm afraid there's no better solution than changing the import word in MB or changing in SB. :-\

Title: Re: MY-BASIC
Post by: John on March 14, 2016, 01:41:47 AM

It's a bug in Script BASIC I need to fix.

I have known about it for years. ???

Title: Re: MY-BASIC
Post by: wangrenxin on March 17, 2016, 04:16:23 AM

Hi,

I found a way to simulate SELECT CASE in MY-BASIC without adding new keywords. Implemented as a select function as follow, which accepts a variable argument list with a boolean expression, a lambda expression, another boolean expression, and another lambda... The advantage is it accepts not only one constant equivalence case condition, but also a boolean expression with more sub conditions for one case; the disadvantage is it requires a very ugly single line code calling the select function. Maybe it's necessary to add multi-line code linking to MB now, just like what the underline _ does in VB.

Code: Text

default = true ' For the default case
def select(...)
        l = len(...)
        if l mod 2 <> 0 then
                print "Parameters not matched.";
                return
        endif
        for i = 0 to l - 1 step 2
                if ... then ' Evaluates a condition
                        _ = ... ' Gets a lambda and executes it
                        _()
                        return
                else
                        _ = ... ' Ignores a lambda argument
                endif
        next
enddef
a = 85
select(a >= 85, lambda () (print "A";), a >= 75, lambda () (print "B";), a >= 60, lambda () (print "C";), default, lambda () (print "D";))
 

Title: Re: MY-BASIC
Post by: John on March 17, 2016, 09:11:19 PM

Script BASIC doesn't have a SELECT/CASE structure either. It does have a flexible IF that works just as well. Actually better as it doesn't have the traditional CASE compare / range / type restrictions.

Code: ScriptBasic

a = 85
IF a >= 85 THEN
  PRINT "A\n"
ELSE IF a >= 75 THEN
  PRINT "B\n"
ELSE IF a >= 60 THEN
  PRINT "C\n"
ELSE
  PRINT "D\n"
END IF
 

jrs@laptop:~/sb/sb22/test$ scriba simcase.sb A jrs@laptop:~/sb/sb22/test$

Code: ScriptBasic

DECLARE SUB mb_init ALIAS "mbas_init" LIB "mb"
DECLARE SUB mb_dispose ALIAS "mbas_dispose" LIB "mb"
DECLARE SUB mb_open ALIAS "mbas_open" LIB "mb"
DECLARE SUB mb_close ALIAS "mbas_close" LIB "mb"
DECLARE SUB mb_load_str ALIAS "mbas_load_str" LIB "mb"
DECLARE SUB mb_run ALIAS "mbas_run" LIB "mb"
 
mb_code = """
    default = true ' For the default case
    def select(...)
            l = len(...)
            if l mod 2 <> 0 then
                    print "Parameters not matched.";
                    return
            endif
            for i = 0 to l - 1 step 2
                    if ... then ' Evaluates a condition
                            _ = ... ' Gets a lambda and executes it
                            _()
                            return
                    else
                            _ = ... ' Ignores a lambda argument
                    endif
            next
    enddef
    a = 85
    select(a >= 85, lambda () (print "A";), a >= 75, lambda () (print "B";), a >= 60, lambda () (print "C";), default, lambda () (print "D";))
"""
mb_init()
mb_open()
mb_load_str(mb_code)
mb_run()
mb_close()
mb_dispose()
 

jrs@laptop:~/sb/sb22/mybasic$ scriba mbcase.sb A jrs@laptop:~/sb/sb22/mybasic$

Title: Re: MY-BASIC
Post by: wangrenxin on March 17, 2016, 11:49:22 PM

Quote from: John on March 17, 2016, 09:11:19 PM

It does have a flexible IF that works just as well. Actually better as it doesn't have the traditional CASE compare / range / type restrictions.

Yes, I can't agree more. IF has done it well.

John, does SB support separating a single statement into multi-lines? I'm a little bit refusing to add these features; but not quite sure.

Title: Re: MY-BASIC
Post by: John on March 18, 2016, 12:45:33 AM

Quote

does SB support separating a single statement into multi-lines?

Yes it does with the _ character.

Code: ScriptBasic

FUNCTION test (arg1, _
               arg2, _
               arg3)
 

Title: Re: MY-BASIC
Post by: wangrenxin on April 22, 2016, 04:54:05 AM

Finally, I added Unicode token support to MY-BASIC! For instance I can use Chinese variable now:

Code: Text

&#21464;&#37327; = 22
&#21478;&#19968;&#20010;&#21464;&#37327; = 7
print &#21464;&#37327; / &#21478;&#19968;&#20010;&#21464;&#37327;;
 

Title: Re: MY-BASIC
Post by: wangrenxin on April 22, 2016, 04:55:50 AM

Quote from: wangrenxin on April 22, 2016, 04:54:05 AM

Finally, I added Unicode token support to MY-BASIC! For instance I can use Chinese variable now:

Code: Text
变量 = 22
另一个变量 = 7
print 变量 / 另一个变量;

Well, I meant this:
(http://41.media.tumblr.com/05f628361a80f6eaa0811f177b4aacc8/tumblr_o61abq2cXb1th0z8bo1_250.png)

Title: Re: MY-BASIC
Post by: wangrenxin on December 06, 2016, 07:28:57 AM

Added an inline data sequence module (https://github.com/paladin-t/my_basic/wiki/Inline-data-sequence-module), now it has a simple equivalent to retro DATA, READ, RESTORE statements :)

Title: Re: MY-BASIC
Post by: John on December 08, 2016, 05:45:08 PM

Great to see you still plugging away at the project. This is a nice enhancement for retro style BASIC compatibility.

Thanks for keeping us in the loop here on All BASIC.

Title: Re: MY-BASIC
Post by: wangrenxin on December 08, 2016, 06:52:37 PM

Yep, more stuff to add, although the procedure is very slow ;D
BTW. it also supports REM statement now for comment.

Title: Re: MY-BASIC
Post by: John on July 23, 2017, 01:04:23 PM

I recompiled the My-BASIC extension module for Script BASIC and all seems to have went well. The only thing I had to do is add the extra true argument to the mb_run() function wrapper.

Can you give us an update where things are with My-BASIC?

Title: Re: MY-BASIC
Post by: wangrenxin on July 24, 2017, 04:53:45 AM

Sure.

There are some minor bugfix, and some other major improvements for MY-BASIC since my last updating here.

   * Added support for applying `ITERATOR/MOVE_NEXT` and `FOR x IN y/NEXT` for collections, class and referenced usertype. https://github.com/paladin-t/my_basic/wiki/Use-iterators (https://github.com/paladin-t/my_basic/wiki/Use-iterators)
   * Added support for using a non-referenced usertype larger than `sizeof(void*)`. https://github.com/paladin-t/my_basic/wiki/Use-usertype-values#structure (https://github.com/paladin-t/my_basic/wiki/Use-usertype-values#structure)
   * Added interpreter forking functions.
   * Added a structured exception handling ability with interpreter forking. https://github.com/paladin-t/my_basic/wiki/Structured-exception-handling (https://github.com/paladin-t/my_basic/wiki/Structured-exception-handling)
   * Added a multiple condition branching, which is implemented in MY-BASIC code. https://github.com/paladin-t/my_basic/wiki/Multiple-condition (https://github.com/paladin-t/my_basic/wiki/Multiple-condition)
   * Added support for defining an alias for the `LAMBDA` keyword, which is helpful to write neat code. https://github.com/paladin-t/my_basic/wiki/Lambda-abstraction (https://github.com/paladin-t/my_basic/wiki/Lambda-abstraction)

Recently I'm working on an App powered by MY-BASIC, which will allow users to write game or application in an IDE with modern BASIC syntax. It's aimed to be similar as PICO-8. I'll initially release it for desktop (Windows), still WIP, yet details and releasing date are TBD.

There are also few API changes, which are easy to figure out.

BTW. don't forget to share your use cases with us via https://github.com/paladin-t/my_basic/issues/13 (https://github.com/paladin-t/my_basic/issues/13).

AllBASIC

BASIC Developer & Support Resources => Interpreters => Topic started by: John on July 25, 2013, 12:03:49 AM