AIR/jade
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added CHAR, ENUM/ENDENUM, EXIT, SHORT, LPCAR keywords, and first SDL Test

Browse Source
This commit is contained in:
Armando Rivera 2013-11-06 21:52:08 -05:00
parent c3abc4f553
commit d1e945c0d2
7 changed files with 241 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Keywords.txt
View File

@ -1,12 +1,13 @@
_TO_
ADDRESS
AND
AS
BEGIN
BOOL
BREAK
BYREF
CASE
CASE_ELSE
CHAR
CLASS
CONSTANT
DECLARE
@ -16,11 +17,14 @@ ELSE
ENC$
END
ENDCASE
ENDENUM
ENDFUNCTION
ENDIF
ENDMAIN
ENDSELECT
ENDSUB
ENUM
EXIT
FALSE REVERSE$
FOR
FUNCTION
@ -31,6 +35,7 @@ INT
LCASE$
LEFT$
LOADFILE$
LPCHAR
LTRIM$
MAIN
MAP
@ -39,6 +44,7 @@ MID$
NEXT
NOT
OR
PRINT
PRIOR
REPLACE$
RETURN
@ -46,6 +52,7 @@ RIGHT$
RTRIM$
SAVEFILE
SELECT
SHORT
SPLITPATH$
STEP
STR$
@ -57,7 +64,8 @@ TRUE
TYPE
UCASE$
UINT
VAL \nPRINT
VAL
VECTOR
WEND
WHILE
_TO_

3
Prototypes.txt
View File

@ -6,6 +6,7 @@ LOADFILE$ (CSTRING N)
LTRIM$ (CSTRING s)
MCASE$ (CSTRING S)
MID$ (CSTRING s, INT start, INT length)
PRINT (CSTRING A="")
REPLACE$ (CSTRING subject, CONSTANT CSTRING& search, CONSTANT CSTRING& replace)
REVERSE$ (CSTRING src)
RIGHT$ (CSTRING s, INT length)
@ -14,4 +15,4 @@ SAVEFILE (CSTRING src, CSTRING fname)
SPLITPATH$ (CSTRING FPATH, INT mask)
TRIM$ (CSTRING s)
UCASE$ (CSTRING str)
VAL (CSTRING str) \nPRINT (CSTRING A="")
VAL (CSTRING str)

7
cppbas.inc
View File

@ -71,6 +71,13 @@
#define UINT unsigned int
#define VECTOR std::vector
#define MAP std::map
#define CHAR char
#define ENUM enum
#define ENDENUM };
#define EXIT exit
#define BREAK break;
#define SHORT short
#define LPCHAR char*
#ifndef TRUE
#define TRUE 1

BIN
sdl_test/anim/icon.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 880 B

BIN
sdl_test/font/cour.ttf Normal file
View File

Binary file not shown.

BIN
sdl_test/test Executable file
View File

Binary file not shown.

222
sdl_test/test.cpp Normal file
View File

@ -0,0 +1,222 @@
#include "../cppbas.inc"
#include <SDL.h>
#include <SDL_image.h>
#include <SDL_ttf.h>
DIM AS CHAR string[128]; // String used by txtIt & SDL_ttf
// Conver Variable Argument into a string
SUB txtIt(char *pStr , ...) BEGIN
DIM AS va_list valist; // Type to hold information about variable arguments
va_start(valist, pStr); // Initialize a variable argument list
vsprintf( string , pStr , valist ); // Print formatted variable argument list to string
va_end(valist); // This macro should be executed before the function
ENDSUB
DIM AS INT FPS = 50; // Assign a FPS
DIM AS INT NextTick , interval ; // Used by FPS_Fn
// Initialize FPS_Fn( )
SUB FPS_Initialize() BEGIN
NextTick = 0 ;
interval = 1 * 1000 / FPS ;
ENDSUB
// Frame Per Second Function , put this in a loop
SUB FPS_Fn() BEGIN
IF ( NextTick > SDL_GetTicks( ) ) THEN
SDL_Delay( NextTick - SDL_GetTicks( ) );
ENDIF
NextTick = SDL_GetTicks( ) + interval ;
ENDSUB
// This function load a image file to a surface
// Set bCKey with colorkey (R,G,B) to clear a color on the image
// Set alpha value FOR transparency 0(No transparent) ~ 255(Ivisible)
FUNCTION SDL_Surface *ImgLoader(char *file, BOOL bCKey, INT r, INT g, INT b, INT alpha) BEGIN
SDL_Surface *pic;
pic = IMG_Load(file); // From SDL_image.h , load the image to pic
IF (pic==NULL) THEN
fprintf(stderr,"Missing image %s : %s\n",file,IMG_GetError());
ENDIF
IF ( bCKey ) THEN
SDL_SetColorKey(pic,SDL_SRCCOLORKEY|SDL_RLEACCEL,SDL_MapRGB(pic->format,r,g,b));
ENDIF
IF (alpha) THEN
SDL_SetAlpha(pic, SDL_SRCALPHA|SDL_RLEACCEL , 255 - alpha);
ENDIF
pic = SDL_DisplayFormat(pic);
RETURN (pic);
ENDFUNCTION
// Load a normal picture into a surface
FUNCTION SDL_Surface *ImgLoader(LPCHAR file) BEGIN
RETURN ImgLoader(file,1,0,0,0,0) ;
ENDFUNCTION
// Load a pic & set the transparent color to (255,255,255) , no alpha
FUNCTION SDL_Surface *ImgLoader(char *file,bool bCKey) BEGIN
RETURN ImgLoader(file,1,255,255,255,0) ;
ENDFUNCTION
MAIN
DIM AS TTF_Font *font; // Declare a SDL_ttf font : font
TTF_Init(); // Initilize SDL_ttf
font = TTF_OpenFont("./font/cour.ttf",16); // Open a font & set the font size
DIM AS SDL_Surface *imgTxt ; // Store image of the text FOR blit
DIM AS SDL_Rect txtRect ; // Store (x,y) of text FOR blit
DIM AS SDL_Color fColor , fColorW , fColorR , fColorG ; // Font color (R,G,B)
txtRect.x = 10;
txtRect.y = 250;
fColor.r = fColor.g = fColor.b = 245; // Set font to white color
fColorW.r = 250;
fColorW.g = 250;
fColorW.b = 250;
fColorR.r = 250;
fColorR.g = 25;
fColorR.b = 25;
fColorG.r = 25;
fColorG.g = 250;
fColorG.b = 25;
DIM AS SDL_Event event; // FOR keyboard event
DIM AS BOOL bRun = 1; // The SELECT of WHILE loop
// bKeyXXX Present the state of keyboard
DIM AS BOOL bKeyUP = 0 , bKeyDOWN = 0 , bKeyLEFT = 0 , bKeyRIGHT = 0;
DIM AS INT aTick = 0;
DIM AS SHORT dx = 2; // The movement value when moving the object anim[ ]
SDL_Surface *screen ;
ENUM BEGIN
pic1,
pic_No
ENDENUM
DIM AS SDL_Surface *anim[pic_No];
DIM AS SDL_Rect animRect ; // The coordinate of anim[ ]
animRect.x = 160 ;
animRect.y = 160 ;
atexit(SDL_Quit);
IF( SDL_Init(SDL_INIT_VIDEO) < 0 ) EXIT(1);
SDL_WM_SetCaption("SDL Window - Multiplication Table", NULL);
screen = SDL_SetVideoMode( 400 , 300 , 32 , SDL_DOUBLEBUF|SDL_HWSURFACE|SDL_ANYFORMAT);
anim[0] = ImgLoader("./anim/icon.gif");
FPS_Initialize( );
DIM AS INT xi=1 , yi=1 ; // Use FOR display picture
WHILE (bRun) BEGIN
aTick++;
SDL_FillRect(screen , NULL , 0x221122);
IF ( aTick%6 == 1) xi++;
IF ( xi > 9 ) THEN
xi = 1;
yi++;
ENDIF
IF ( yi > 9 ) yi = 1;
FOR(INT i=0 TO i < yi STEP i++ ) BEGIN
animRect.x = 10 + i * 40 ;
animRect.y = 200;
SDL_BlitSurface( anim[0] , NULL , screen , &animRect );
END
FOR (INT i=0 TO i < xi STEP i++ ) BEGIN
animRect.x = 10 + i * 40 ;
animRect.y = 240;
SDL_BlitSurface( anim[0] , NULL , screen , &animRect );
END
// A Multiplication Table
FOR (INT i = 1 TO i <= 9 STEP i++) BEGIN
FOR( INT j = 1 TO j <= 9 STEP j++) BEGIN
txtIt("%2d" , i*j );
fColor = fColorW; // Default is white color
// IF ( i==1 OR j==1 ) THEN IF ( i==xi OR j==yi ) THEN fColor = fColorG;
IF ( i==1 AND j==yi ) fColor = fColorG;
IF( j==1 AND i==xi ) fColor = fColorG;
IF( i == xi AND j == yi ) fColor = fColorR;
imgTxt = TTF_RenderText_Solid( font , string , fColor );
txtRect.x = 30 + i*30 ;
txtRect.y = 30 + j*15 ;
SDL_BlitSurface( imgTxt , NULL , screen , &txtRect );
END // FOR( INT j = 1 ; j <= 9 ; j++) { END
END // FOR(INT i = 1 ; i <= 9 ; i++) { END
txtIt("%1d %1d %1d %1d", bKeyUP , bKeyDOWN , bKeyLEFT , bKeyRIGHT);
fColor = fColorW; // Default is white color
imgTxt = TTF_RenderText_Solid( font , string , fColor );
SDL_BlitSurface( imgTxt , NULL , screen , NULL );
SDL_Flip(screen);
FPS_Fn();
WHILE ( SDL_PollEvent( &event ) ) BEGIN
SELECT ( event.type ){
CASE SDL_KEYDOWN:
SELECT ( event.key.keysym.sym ){
CASE SDLK_UP:
bKeyUP = 1;
ENDCASE
CASE SDLK_DOWN:
bKeyDOWN = 1;
ENDCASE
CASE SDLK_LEFT:
bKeyLEFT = 1;
ENDCASE
CASE SDLK_RIGHT:
bKeyRIGHT = 1;
ENDCASE
CASE SDLK_ESCAPE:
bRun = 0;
ENDCASE
CASE_ELSE:
ENDCASE
ENDSELECT // SELECT ( event.key.keysym.sym ){ END
// CASE SDL_KEYDOWN: END
CASE SDL_KEYUP:
SELECT ( event.key.keysym.sym ){
CASE SDLK_UP:
bKeyUP = 0;
ENDCASE
CASE SDLK_DOWN:
bKeyDOWN = 0;
ENDCASE
CASE SDLK_LEFT:
bKeyLEFT = 0;
ENDCASE
CASE SDLK_RIGHT:
bKeyRIGHT = 0;
ENDCASE
CASE_ELSE:
ENDCASE
ENDSELECT // SELECT ( event.key.keysym.sym ){ END
// CASE SDL_KEYUP: END
CASE SDL_QUIT:
bRun = 0;
ENDCASE
CASE_ELSE:
ENDCASE
ENDSELECT // SELECT ( event.type ){ END
WEND // WHILE ( SDLK_PollEvent( &event ) ){ END
// Deal with key states
IF (bKeyUP) animRect.y = animRect.y - dx;
IF (bKeyDOWN) animRect.y = animRect.y + dx;
IF (bKeyLEFT) animRect.x = animRect.x - dx;
IF (bKeyRIGHT) animRect.x = animRect.x + dx;
WEND // WHILE (bRun) { END
RETURN 0;
END