Author: wmb Date: 2009-11-25 21:31:53 +0100 (Wed, 25 Nov 2009) New Revision: 1502
Modified: cpu/ppc/Linux/ cpu/ppc/build/ cpu/x86/Linux/ cpu/x86/Linux/Makefile cpu/x86/Linux/graphdev.fth Log: svn ignores
Property changes on: cpu/ppc/Linux ___________________________________________________________________ Modified: svn:ignore - ppcforth.trace ppcforth
+ ppcforth.trace ppcforth forth
Property changes on: cpu/ppc/build ___________________________________________________________________ Modified: svn:ignore - ppcforth build
+ ppcforth build *.tag
Property changes on: cpu/x86/Linux ___________________________________________________________________ Modified: svn:ignore - forth x86forth ppcforth
+ forth x86forth ppcforth *.tag
Modified: cpu/x86/Linux/Makefile =================================================================== --- cpu/x86/Linux/Makefile 2009-11-25 20:27:12 UTC (rev 1501) +++ cpu/x86/Linux/Makefile 2009-11-25 20:31:53 UTC (rev 1502) @@ -3,7 +3,8 @@ BP=../../..
CFLAGS = -O -g -m32 -DTARGET_X86 -# CFLAGS += -DUSE_XCB +CFLAGS += -DUSE_XCB +LIBS += -lxcb
WRTAIL = forth/wrapper WRDIR = ${BP}/${WRTAIL} @@ -12,7 +13,7 @@
ZIPOBJS = zipmem.o deflate.o trees.o bits.o util.o inflate.o
-OBJS = wrapper.o logger.o ${ZIPOBJS} +OBJS = wrapper.o logger.o ${ZIPOBJS} xcbifce.o
all: forth x86forth ../build/inflate.bin
@@ -21,7 +22,7 @@ # Use x86forth when you need to compile new dictionaries that will # run on x86 systems. forth: ${OBJS} - ${CC} -m32 -o $@ ${OBJS} + ${CC} -m32 -o $@ ${OBJS} ${LIBS} @ln -sf forth x86forth
# Compile with -O0 because with GCC4, higher optimization levels cause the
Modified: cpu/x86/Linux/graphdev.fth =================================================================== --- cpu/x86/Linux/graphdev.fth 2009-11-25 20:27:12 UTC (rev 1501) +++ cpu/x86/Linux/graphdev.fth 2009-11-25 20:31:53 UTC (rev 1502) @@ -1,8 +1,16 @@ purpose: Simulation of OFW graphics using X
+[ifndef] screen-ih +dev / : open true ; : close ; dend +0 value screen-ih +: $call-screen screen-ih $call-method ; +[then] +[ifndef] show-state : show-state 2drop ; [then] + dev / new-device " xgraphics" device-name : open ( -- okay? ) d# 1200 d# 900 d# 392 syscall 2drop retval 0= ; +debug open : close ( -- ) d# 396 syscall ;
: fill-rectangle ( color565 x y w h -- ) d# 404 syscall 4drop drop ;