Commit 2a95b6d1 authored by kollo's avatar kollo

improved xbc for windows, added ybasic, update in c-demo examples

+ update in ideas list
parent a2d76789
# Ideas for future releases of X11-Basic
## System Variables / Systemvariablen:
## System Variables
DATAPOINTER oder _DATA mit Restoremoeglichkeit
DATAPOINTER oder _DATA mit Restoremöglichkeit
ISDIR(d$) --> STAT ? --> geht mit user-funktion...
## SDL Graphics
* Auch TTF fonts (this is a complicated task...)
* Use TTF fonts (this is a complicated task...)
* GPRINT Routinen zu voller VT100 Emulation mit standard-GEM-Font ausweiten. (einschließlich cursor). Die Routinen koennen von TTconsole genommen werden. (teilw. erledigt)
* 16 moegliche Fenster, USEWINDOW, --> SETWINDOW num,mode
* 16 mögliche Fenster, USEWINDOW, --> SETWINDOW num,mode
* Was tun mit SCREEN und ROOTWINDOW? SAVESCREEN/SAVEWINDOW?
* Fullscreenmode (done)
## Sound
......@@ -36,25 +35,12 @@ you can as well setup a server and open a listening socket with OPEN,
much the same as you would do it with normal internet connections.
## USB support
FSFIRST$() and FSNEXT$() can be used to scan for USB devices. (done)
## encryption
The enhancements and new ideas concerning cryptography must be held separately
from the master branch, because the can cause problems on US export limitations
on sourceforge (I think)...
LIBGCRYPT:
hash$=HASH$(data$[,typ%]) (ok)
sdata$=SIGN$(data$,privkey$) (ok)
verify%=VERIFY$(sdata$,pubkey$) (ok)
cdata$=ENCRYPT$(data$,key$[,typ%]) (ok)
data$=DECRYPT$(cdata$,key$[,typ%]) (ok)
err=KEYGEN(typ%,pubkey$,privkey$)
......@@ -63,10 +49,3 @@ LIBGCRYPT:
* xbasic und xbasic.exe umbenennen in x11basic und x11basic.exe
(vielleicht mit einem link von xbasic)
oder:
x11basic as wrapper script (done, see ybasic) :
xbbc -o /tmp/$1.b $1
xbasic /tmp/$1.b
......@@ -33,7 +33,7 @@ int verbose=0;
/* Here your c program starts */
main(int anzahl, char *argumente[]) {
int main(int anzahl, char *argumente[]) {
double ret;
int i;
/* Initialize the x11basic-library */
......@@ -51,6 +51,7 @@ main(int anzahl, char *argumente[]) {
/* If you like, you can use single x11basic-commands: */
kommando("PBOX 10,10,100,100");/* This is for single command execution: */
kommando("GPRINT \"PRESS ANY KEY\"");
kommando("SHOWPAGE");
kommando("KEYEVENT");
/* ... */
......
......@@ -79,6 +79,7 @@ int main(int anzahl, char *argumente[]) {
kommando("PLOT MX,MY");
}
kommando("GPRINT \"Press any key...\"");
kommando("SHOWPAGE");
kommando("KEYEVENT");
kommando("MOUSE MX,MY"); /*You can also use variables*/
......
' Pseudo-Compiler for X11-Basic (MS WINDOWS Version)
' erzeugt allein lauffaehigen Code (.exe)
' (c) Markus Hoffmann 2010-2015 2015-01-01
' (c) Markus Hoffmann 2010-2015 2018-01-01
'
'* This file is part of X11BASIC, the BASIC interpreter / compiler
'* ======================================================================
......@@ -64,7 +64,7 @@ IF qflag=0
weiss=COLOR_RGB(1,1,1)
COLOR weiss,schwarz
IF LEN(inputfile$)=0
TEXT 10,10,"X11-Basic compiler V.1.23 (c) Markus Hoffmann 2010-2015"
TEXT 10,10,"X11-Basic compiler V.1.25 (c) Markus Hoffmann 2010-2018"
FILESELECT "select program to compile","./*.bas","demo.bas",inputfile$
IF LEN(inputfile$)
IF NOT EXIST(inputfile$)
......@@ -241,6 +241,7 @@ PROCEDURE packvm(bfile$)
ENDIF
ENDIF
ENDIF
ON ERROR gosub file_error
PRINT "saving ";outputfilename$,LEN(t$),"bytes."
BSAVE outputfilename$,VARPTR(t$),LEN(t$)
KILL bfile$
......@@ -349,3 +350,7 @@ PROCEDURE usetcc
ENDIF
SYSTEM "tcc "+cfile$+" x11basic.lib libgfx.lib -o "+outputfilename$
RETURN
PROCEDURE file_error
PRINT "FILE ERROR ERR=";ERR
a=FORM_ALERT(1,"[3][File writing error!|Do you have write-permission in the|specified directory?][QUIT]")
RETURN
xbbc -o /tmp/`basename $1`.b $1
xbasic /tmp/`basename $1`.b $2 $3 $4 $5 $6 $7 $8 $9 $10
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment