I have created a ScriptBasic extension module from the SDL_gfx library. Attached are the binary and examples for Ubuntu 64 bit and Windows 32 bit. This version is primary for testing the SDL_gfx interface. It only supports the main screen surface at this time. The next installment will have a surface management system which any function can act upon. This will be the lead-in to sprites. The current source to the ScriptBasic GFX extension module is on the C BASIC Bitbucket Repository and can be built using the ScriptBasic 2.1 header files. SDL 1.2 installed is a prerequisite.


























I created a gfx.inc module IMPORT file for the ScriptBasic GFX extension module.


The following keyboard and mouse functions are available for polling and waiting for events.

• gfx_Mouse(0) - Waits for mouse movement and returns X position.
  
• gfx_Mouse(1) - Waits for mouse movement and returns Y position.
  
• gfx_Mouse(2) - Polls for a mouse button press event and returns.
  
• gfx_Mouse(3) - Waits for a mouse button to be pressed then returns.
  
• gfx_GetKey(0) - Polls for a key press event and returns a unicode value
  
• gfx_GetKey(1) - Waits for a key to be pressed then returns a unicode value
  
• gfx_GetKey(2) - Polls for a key press event and returns a keycode value
  
• gfx_GetKey(3) - Waits for a key to be pressed then returns a keycode value
  
• gfx_GetKey(4) - Polls for a key press event and returns a scancode value
  
• gfx_GetKey(5) - Waits for a key to be pressed then returns a scancode value
  
• gfx_KeyName(0) - (not new) Polls for key up/down events and returns the key name with a +=dn / -=up prefix
  
• gfx_KeyName(1) - (not new) Waits for a key up/down event and returns the key name with a +=dn / -=up prefix
  
• gfx_ClearScreen(n) - Clears the screen with the passed (n) color value in the format of 0xRRGGBB
  

Here is an example of typing abc<left shift hold>ABC<ESC> for each of the gfx_GetKey(n) modes.

UNICODE
jrs@laptop:~/sb/sb22/sdl$ scriba getkey.sb
Unicode: 97 Character: a
Unicode: 98 Character: b
Unicode: 99 Character: c
Unicode: 0 Character:
Unicode: 65 Character: A
Unicode: 66 Character: B
Unicode: 67 Character: C
Unicode: 27 Character: 
jrs@laptop:~/sb/sb22/sdl$

KeyCode
jrs@laptop:~/sb/sb22/sdl$ scriba getkey.sb
Keycode: 97 Character: a
Keycode: 98 Character: b
Keycode: 99 Character: c
Keycode: 304 Character: 0
Keycode: 97 Character: a
Keycode: 98 Character: b
Keycode: 99 Character: c
Keycode: 27 Character: 
jrs@laptop:~/sb/sb22/sdl$

ScanCode
jrs@laptop:~/sb/sb22/sdl$ scriba getkey.sb
Scancode: 38 Character: &
Scancode: 56 Character: 8
Scancode: 54 Character: 6
Scancode: 50 Character: 2
Scancode: 38 Character: &
Scancode: 56 Character: 8
Scancode: 54 Character: 6
Scancode: 9 Character:
jrs@laptop:~/sb/sb22/sdl$

gfx_KeyName (SDL_GetKeyName +keydown | -keyup)
jrs@laptop:~/sb/sb22/sdl$ scriba getkey.sb
Key Name: +a
Key Name: -a
Key Name: +b
Key Name: -b
Key Name: +c
Key Name: -c
Key Name: +left shift
Key Name: +a
Key Name: -a
Key Name: +b
Key Name: -b
Key Name: +c
Key Name: -c
Key Name: -left shift
Key Name: +escape
Key Name: -escape
jrs@laptop:~/sb/sb22/sdl$

ScriptBasic has no command line option.

You seem to be talking about the shell (bash, sh, ...) you are using to run a ScriptBasic script.

I use Ubuntu standard terminal. If I want to copy something from the screen and paste it at the prompt to execute, I first select the text I want with the mouse, right click on it and select copy. I then immediately right click again and select paste which inserts it at the current command prompt ready for execution.

 

I use the 32 bit version of scriba under Wine all the time. What issues are you having?

The following is the ScriptBasic SDL extension module functions I have included to date. These functions may be an ALIAS to whatever name you would like to use in your ScriptBasic program. I'll update this list as I have time to work on it.

SB_Window
SB_RGB
SB_WaitKey
SB_Ticks
SB_UpdateRect
SB_CLS
SB_Draw_Pixel
SB_Draw_Line
SB_Draw_Circle
SB_Draw_FillCircle
SB_Draw_HLine
SB_Draw_VLine
SB_Draw_Rect
SB_Draw_FillRect
SB_Draw_Ellipse
SB_Draw_FillEllipse
SB_Draw_Round
SB_Draw_FillRound
SB_CreateTerminal
SB_DestroyTerminal
SB_TerminalBlit
SB_TerminalRefresh
SB_TerminalClear
SB_TerminalPrint
SB_TerminalPrintAt
SB_TerminalReset
SB_TerminalSetFont
SB_TerminalSetSize
SB_TerminalSetPosition
SB_TerminalSetColor
SB_TerminalSetBorderColor
SB_TerminalSetBorderSize
SB_TerminalSetDefaultForeground
SB_TerminalSetDefaultBackground
SB_TerminalSetForeground
SB_TerminalSetBackground
SB_TerminalEnableBold
SB_TerminalEnableUnderline
SB_TerminalEnableItalic
SB_TerminalDisableBold
SB_TerminalDisableUnderline
SB_TerminalDisableItalic
SB_TerminalProcessEvent


I have created a SDL extension module for drawing 2D graphic primitives. I plan to expand of the SDL extension module with sprites, a terminal and other SDL related API functions. I hope to have the SDL extension module completed for the ScriptBasic 2.2 release.



' ScriptBasic SDL_Draw Example

DECLARE SUB Window ALIAS "SB_Window" LIB "sdl"
DECLARE SUB RGB ALIAS "SB_RGB" LIB "sdl"
DECLARE SUB WaitKey ALIAS "SB_WaitKey" LIB "sdl"
DECLARE SUB Ticks ALIAS "SB_Ticks" LIB "sdl"
DECLARE SUB UpdateRect ALIAS "SB_UpdateRect" LIB "sdl"
DECLARE SUB CLS ALIAS "SB_CLS" LIB "sdl"
DECLARE SUB Draw_Pixel ALIAS "SB_Draw_Pixel" LIB "sdl"
DECLARE SUB Draw_Line ALIAS "SB_Draw_Line" LIB "sdl"
DECLARE SUB Draw_Circle ALIAS "SB_Draw_Circle" LIB "sdl"
DECLARE SUB Draw_FillCircle ALIAS "SB_Draw_FillCircle" LIB "sdl"
DECLARE SUB Draw_HLine ALIAS "SB_Draw_HLine" LIB "sdl"
DECLARE SUB Draw_VLine ALIAS "SB_Draw_VLine" LIB "sdl"
DECLARE SUB Draw_Rect ALIAS "SB_Draw_Rect" LIB "sdl"
DECLARE SUB Draw_FillRect ALIAS "SB_Draw_FillRect" LIB "sdl"
DECLARE SUB Draw_Ellipse ALIAS "SB_Draw_Ellipse" LIB "sdl"
DECLARE SUB Draw_FillEllipse ALIAS "SB_Draw_FillEllipse" LIB "sdl"
DECLARE SUB Draw_Round ALIAS "SB_Draw_Round" LIB "sdl"
DECLARE SUB Draw_FillRound ALIAS "SB_Draw_FillRound" LIB "sdl"

Window(640, 480, "ScriptBasic SDL_Draw Example")
c_white = RGB(255, 255, 255)
c_gray = RGB(200, 200, 200)
c_dgray = RGB(64, 64, 64)
c_cyan = RGB(32, 255, 255)
Draw_Line(100, 100, 30, 0, c_white)
Draw_Line(30, 0, 100, 100, c_white)
Draw_Line(100, 100, 30, 0, c_white)
Draw_Line(30, 0, 100, 100, c_white)
Draw_Line(0, 0, 100, 100, c_white)
Draw_Line(100, 100, 300, 200, c_white)
Draw_Line(200, 300, 250, 400, RGB(128, 128, 255))
Draw_Line(500, 50, 600, 70, RGB(128, 255, 128))
Draw_Line(500, 50, 600, 70, RGB(128, 255, 128))
Draw_Circle(100, 100, 50, c_white)
Draw_Circle(150, 150, 5, c_white)
Draw_Circle(150, 150, 4, RGB(64, 64, 64))
Draw_Circle(150, 150, 3, RGB(255, 0, 0))
Draw_Circle(150, 150, 2, RGB(0, 255, 0))
Draw_Circle(150, 150, 1, RGB(0, 0, 255))
Draw_Line(500, 100, 600, 120, RGB(128, 255, 128))
Draw_Circle(601, 121, 2, c_white)
Draw_Circle(400, 200, 2, c_white)
Draw_Line(400, 200, 409, 200, c_white)
Draw_Circle(409, 200, 2, c_white)
Draw_Line(400, 200, 400, 250, c_white)
Draw_Circle(400, 250, 2, c_white)
Draw_Line(409, 200, 400, 250, c_white)
Draw_Line(400, 300, 409, 300, c_gray)
Draw_Line(400, 300, 400, 350, c_gray)
Draw_Line(409,300, 400, 350, c_dgray)
Draw_Rect(398, 298, 4, 4, c_cyan)
Draw_Rect(407, 298, 4, 4, c_cyan)
Draw_Rect(398, 348, 4, 4, c_cyan)
Draw_HLine(10, 400, 50, c_white)
Draw_VLine(60, 400, 360, c_white)
Draw_Rect(500, 400, 50, 50, c_white)
Draw_Pixel(510, 410, c_white)
Draw_Pixel(520, 420, RGB(255, 0, 0))
Draw_Pixel(530, 430, RGB(0, 255, 0))
Draw_Pixel(540,440, RGB(0, 0, 255))
Draw_Ellipse(100, 300, 60, 30, c_white)
Draw_FillEllipse(300, 300, 30, 60, RGB(64, 64, 200))
Draw_Ellipse(300, 300, 30, 60, RGB(255, 0, 0))
Draw_Round(200, 20, 70, 50, 10, c_white)
Draw_Round(300, 20, 70, 50, 20, RGB(255, 0, 0))
Draw_FillRound(390, 20, 70, 50, 20, RGB(255, 0, 0))
Draw_Round(390, 20, 70, 50, 20, c_cyan)
Draw_Rect(499, 199, 52, 72, RGB(255, 255, 0))
Draw_FillRect(500, 200, 50, 70, RGB(64, 200, 64))
Draw_FillCircle(500, 330, 30, c_cyan)
  
UpdateRect

WaitKey



' ScriptBasic Circle

DECLARE SUB Window ALIAS "SB_Window" LIB "sdl"
DECLARE SUB WaitKey ALIAS "SB_WaitKey" LIB "sdl"
DECLARE SUB UpdateRect ALIAS "SB_UpdateRect" LIB "sdl"
DECLARE SUB RGB ALIAS "SB_RGB" LIB "sdl"
DECLARE SUB CLS ALIAS "SB_CLS" LIB "sdl"
DECLARE SUB Draw_Circle ALIAS "SB_Draw_Circle" LIB "sdl"

Window 800, 600, "ScriptBasic Circle"
w = 400
h = 300
CLS(RGB(255, 255, 255))
black = RGB(0, 0, 0)
FOR i = 0 TO 130 STEP 10
  Draw_Circle w - i, h + i, i, black
  Draw_Circle w + i, h - i, i, black
  Draw_Circle w + i, h + i, i, black
  Draw_Circle w - i, h - i, i, black
NEXT
UpdateRect
WaitKey


I found my first ScriptBasic bug after managing the project since 2006. It even surprised Peter that no one discovered it before. The fix was easy and based on the reminder / warning comment in the old version of the code Peter left, it was something I think he had plans to come back to. I was going to include this fix as part of the next ScriptBasic 2.2 Build 2 release candidate but the fix was needed now for the BAS2NIM project as it will use LIKE/JOKER extensively.

Matching with jokers has a serious flaw in the core ScriptBasic. To fix that the file commands/string.c has to be modified.

Code: [Select]

$ diff commands/string.c ../commands/string.c
2329a2330
>
2331,2337c2332,2335
<     }else{
<     /* If the array is long enough then delete the previous result otherwise
<        fake data may remain in it and it may cause trouble. */
<     for( i=0 ; i < pLastResult->cArraySize ; i++ ){
<       pLastResult->pcbParameterArray[i] = 0;
<       pLastResult->ParameterArray[i] = NULL;
<       }
---
>     }
>   for( i=0 ; i < pLastResult->cArraySize ; i++ ){
>     pLastResult->pcbParameterArray[i] = 0;
>     pLastResult->ParameterArray[i] = NULL;

It is simply removing the "else" from the code and this way the ParameterArray variables always get NULLified.

This code originally assumed that even if there is some garbage in this array that will never be accessed, because the algorithm calculates the number of joker characters in the pattern and if any JOKER(N) call is made with a large N then it fill return undef by default, because the code recognized the over indexing.

However in the example above there are special joker characters, namely <, > and / that are configured not to be joker characters by default and they are also not activated using the SET JOKER command. They are calculated and the code comes to the conclusion that there are 6 joker characters. In reality there are only two when the matching is done and the array indexes from 2 to 5 remain garbage, but still accessible. Setting them explicitly NULL before the matching takes place will force them to be undef. Although this "undef" is not because of over indexing in the C level code there is no difference on the BASIC level.

--
Dipl. Ing. Peter Verhas
 

It looks like Cloud9 IDE isn't as robust as I thought and is more restrictive than developing on a non-rooted Android device .  I would say it's more tailored for web scripting development than language development.

The CompileOnline.com option is the best way to try ScriptBasic before downloading a copy for yourself.

John, I think scriptbasic is working for you guys because you must have had earlier built versions from source scriptbasics.

If you download the current ubuntu2.2 64 bit version zip to a clean ubuntu install(no previous scriptbasic ever) you will see the catch 22 routine with getting a basic.conf made.
scriba runs, but anything requiring additional includes no way.

But this is not only a scriptbasic issue, I am having problems installing many languages. Only luck was code::blocks and the c and c++ compilers.

These beta releases are designed to unzip where you want. There are a few steps to getting hooked into the environment.

From a console:

1. Get your environment variables set.

export PATH=/home/jrs/sb/sb22/bin:$PATH
export SCRIBACONF=/home/jrs/sb/sb22/bin/basic.conf

2. Here is my minimal basic.conf I use. (change paths to meet your setup)

dll ".so"
module "/home/jrs/sb/sb22/modules/"
include "/home/jrs/sb/sb22/include/"
maxinclude 100
preproc (
  internal (
    sdbg "/home/jrs/sb/sb22/modules/sdbg.so"
   )
 )
maxstep 0
maxlocalstep 0
maxlevel 300
maxmem 0

You can edit and recompile the basic.conf with the following scriba command line option. The result will create a binary basic.conf in the directory you pointed the environment variable SCRIBACONF to.

scriba -k your_conf_text_file

The module / include directories paths in the basic.conf file are used by the ScriptBasic extension modules so you can do a IMPORT mysql and it knows where to find things. Without these paths defined you have to used full paths in your program.  

That should allow you to run all the SB test programs if you have all your dependencies installed. (MySQL server/client, libcurl, unixODBC, Mini-XML)

Everything is a lot easier on Windows, although Ubuntu did see all my hardware better than Windows does on new installs. But for a new user, it is too confusing.
Files are everywhere and almost all are protected except for stuff in home.

 I thought one of the beauties of linux was supposed to be the packaging systems
and its ability to download all dependencies for you, but this is not the case by my testing these few days.

Linux has a GUI package installer (Synaptic) and apt-get from the console. Your a man now, put the boy toys away.  

If you need root level privileges then use sudo. For example if you need to copy a library you built in your user /home/you directory structure to the system /usr/lib directory, try this.

sudo cp mylib.so /usr/lib/

It will ask for your password you assigned yourself. (assuming you gave yourself admin privileges as the default user)

if you want to remain in a root shell, use sudo su.

Use exit to exit the shell your in or close the console.

 

I will leave Ubuntu on the dual boot, but back to windows so I can code again.

Don't give up so easy. Learning is part of the fun. I'll catch you if you fall.