RT R3 A107 Hostkit for Win32

about.txt

@@ -1,8 +1,8 @@
 REBOL 3 Host-Kit Source Distribution
 From REBOL Technologies in Ukiah, California
 
-    Version: 2.100.106.0.0  (alpha)
-    Updated: 8-Sep-2010/12:45:20-7:00 
+    Version: 2.100.107.0.0  (alpha)
+    Updated: 9-Sep-2010/20:38:59-7:00 
 
 PURPOSE:
 
@@ -23,10 +23,9 @@ five commands. Type "help" for doc pages, and "?" for a summary.
 HOW TO BUILD:
 
 We have included project makefiles for various tool-chains as make-name
-directories. Some of these can be run directly from their directories.
-Others may require you to move their files to the top directory.
+directories. They can be run directly from their directories.
 
-For some types of builds, you need rebol.exe in your build directory.
+If you change any of the .r files you need rebol.exe in your build directory.
 
 That's it for now. Be productive, lean, and quick,
 

make-gcc/makefile

@@ -1,21 +1,20 @@
-#--- REBOL 3.0 Host Makefile - Build A106 - From make-build.r (8-Sep-2010/19:45:20)
-#--- TO MAKE: copy this file to the top level (where src/ is a dir)
+#--- REBOL 3.0 Host Makefile - Build A107 - From make-build.r (10-Sep-2010/3:38:59)
 #--- This file intentionally kept simple... to work on all platforms.
 
 C= gcc 
 #C= cc  (an alternative)
+S= ../src
+L= ../lib
+O= obj
+I= $S/include
+T= $S/tools
 
-CFLAGS= -c -O1 -DUNICODE -DREB_LIB -I src/include/
-#The REB_LIB flag indicates use direct linkage to reb-lib
-
-LIBS= lib/r3lib.lib -L c:/mingw/lib/ -lm -lwsock32 -lcomdlg32 -lgdi32 -lstdc++
+# Set this to the name of the file copy program:
+CP=	cp
 
-#-lc -lm -lstdc++
+CFLAGS= -c -O1 -DUNICODE -I $S/include/
 
-S= src
-O= obj
-I= src/include
-T= src/tools
+LIBS= $L/r3lib.lib -L c:/mingw/lib/ -lm -lwsock32 -lcomdlg32 -lgdi32 -lstdc++
 
 INCS= \
 	$I/reb-config.h\
@@ -82,25 +81,25 @@ all:
 	-mkdir obj
 	make r3.exe
 
+clean:
+	-del /q obj\*
+
 core:
 	-mkdir obj
 	make r3core.exe
 
-clean:
-	-del /q obj\*
-
 r3.exe:	 $(OBJS) $(GFX) $(AGG) r3lib.dll
 	$C $(CFLAGS) -fpack-struct -o $O/host-main.o $S/os/host-main.c
 	$C -o r3.exe $(OBJS) $(GFX) $(AGG) $(LIBS)
 	strip r3.exe
 
 r3core.exe:	$(OBJS) r3lib.dll
-	$C $(CFLAGS) -fpack-struct -DCORE_ONLY -o $O/host-main.o $S/os/host-main.c
+	$C $(CFLAGS) -fpack-struct -DREB_CORE -o $O/host-main.o $S/os/host-main.c
 	$C -o r3core.exe $(OBJS) $(LIBS)
 	strip r3core.exe
 
-r3lib.dll: lib/r3lib.dll
-	copy lib\r3lib.dll .
+r3lib.dll: $L/r3lib.dll
+	$(CP) $L/r3lib.dll .
 
 
 #--- Convert REBOL files to C files:
@@ -132,9 +131,6 @@ $O/dev-net.o:       $S/os/dev-net.c $(INCS) $I/reb-host.h $I/host-lib.h $I/sys-n
 $O/dev-dns.o:       $S/os/dev-dns.c $(INCS) $I/reb-host.h $I/host-lib.h $I/sys-net.h
 	$C $(CFLAGS) -fpack-struct -o $O/dev-dns.o $S/os/dev-dns.c
 
-$O/host-init.o:     $S/os/host-init.c $(INCS) 
-	$C $(CFLAGS) -fpack-struct -o $O/host-init.o $S/os/host-init.c
-
 $O/host-lib.o:      $S/os/win32/host-lib.c $(INCS) $I/reb-host.h $I/host-lib.h
 	$C $(CFLAGS) -fpack-struct -o $O/host-lib.o $S/os/win32/host-lib.c
 

make-vc9/r3.vcproj

@@ -44,7 +44,7 @@
 				Name="VCCLCompilerTool"
 				Optimization="0"
 				AdditionalIncludeDirectories="..\src\include"
-				PreprocessorDefinitions="UNICODE;REB_LIB"
+				PreprocessorDefinitions="UNICODE"
 				MinimalRebuild="true"
 				BasicRuntimeChecks="3"
 				RuntimeLibrary="3"
@@ -124,7 +124,7 @@
 				Optimization="2"
 				EnableIntrinsicFunctions="true"
 				AdditionalIncludeDirectories="..\src\include"
-				PreprocessorDefinitions="UNICODE;REB_LIB"
+				PreprocessorDefinitions="UNICODE"
 				RuntimeLibrary="2"
 				StructMemberAlignment="3"
 				EnableFunctionLevelLinking="true"

src/boot/graphics.r

@@ -6,6 +6,23 @@ REBOL [
 	; Run make-host-ext.r to convert to host-ext-graphics.h
 ]
 
+words: [
+	;gui-metric
+    screen-size
+    border-size
+    border-fixed
+    title-size
+    work-origin
+    work-size
+]
+
+;temp hack - will be removed later
+init-words: command [
+	words [block!]
+]
+
+init-words words
+
 init: command [
 	"Initialize graphics subsystem."
 	gob [gob!] "The screen gob (root gob)"
@@ -45,6 +62,10 @@ draw: command [
 	commands [block!] "Draw commands"
 ]
 
+gui-metric: command [
+	"Returns specific gui related metric setting."
+	keyword [word!] "Available keywords: SCREEN-SIZE, BORDER-SIZE, BORDER-FIXED, TITLE-SIZE, WORK-ORIGIN and WORK-SIZE."
+]
 
 ;#not-yet-used [
 ;

src/boot/shape.r

@@ -0,0 +1,128 @@
+REBOL [
+	Title: "REBOL Graphics - SHAPE commands"
+	Name: shape
+	Type: extension
+	Exports: none
+	; Run make-host-ext.r to convert
+]
+
+;don't change order of already defined words unless you know what you are doing
+
+words: [
+	;arc
+	negative
+	positive
+	small
+	large
+]
+
+;temp hack - will be removed later
+init-words: command [
+	words [block!]
+]
+
+init-words words
+
+;please alphabetize the order of commands so it easier to lookup things
+
+arc: command [
+	"Draws an elliptical arc from the current point."
+	end-point [pair!]
+	radius [pair!]
+	angle [number!] 
+	'sweep-flag [word!] "The arc will be drawn in POSITIVE or NEGATIVE angle direction"
+	'arc-flag [word!] "User SMALL or LARGE arc sweep"
+]
+
+arc': command [
+	"Draws an elliptical arc from the current point.(uses relative coordinates)"
+	end-point [pair!]
+	radius [pair!]
+	angle [number!] 
+	'sweep-flag [word!] "The arc will be drawn in POSITIVE or NEGATIVE angle direction"
+	'arc-flag [word!] "User SMALL or LARGE arc sweep"
+]
+
+close: command [
+	"Closes previously defined set of lines in the SHAPE block."
+]
+
+curv: command [
+	"Draws a cubic Bézier curve or polybézier using two points."
+	points [block!] "Block of point pairs (2nd control point, end point)"
+]
+
+curv': command [
+	"Draws a cubic Bézier curve or polybézier using two points.(uses relative coordinates)"
+	points [block!] "Block of point pairs (2nd control point, end point)"
+]
+
+curve: command [
+	"Draws a cubic Bézier curve or polybézier using three points."
+	points [block!] "Block of point triplets (1st control point, 2nd control point, end point)"
+]
+
+curve': command [
+	"Draws a cubic Bézier curve or polybézier using three points.(uses relative coordinates)"
+	points [block!] "Block of point triplets (1st control point, 2nd control point, end point)"
+]
+
+hline: command [
+	"Draws a horizontal line from the current point."
+	end-x [number!]
+]
+
+hline': command [
+	"Draws a horizontal line from the current point.(uses relative coordinates)"
+	end-x [number!]
+]
+
+line: command [
+	"Draws a line from the current point through the given points."
+	points [pair! block!]
+]
+
+line': command [
+	"Draws a line from the current point through the given points.(uses relative coordinates)"
+	points [pair! block!]
+]
+
+move: command [
+	"Set's the starting point for a new path without drawing anything."
+	point [pair!]
+]
+
+move': command [
+	"Set's the starting point for a new path without drawing anything.(uses relative coordinates)"
+	point [pair!]
+]
+
+qcurv: command [
+	"Draws a quadratic Bézier curve from the current point to end point."
+	end-point [pair!]
+]
+
+qcurv': command [
+	"Draws a quadratic Bézier curve from the current point to end point.(uses relative coordinates)"
+	end-point [pair!]
+]
+
+qcurve: command [
+	"Draws a quadratic Bézier curve using two points."
+	points [block!] "Block of point pairs (control point, end point)"
+]
+
+qcurve': command [
+	"Draws a quadratic Bézier curve using two points.(uses relative coordinates)"
+	points [block!] "Block of point pairs (control point, end point)"
+]
+
+vline: command [
+	"Draws a vertical line from the current point."
+	end-y [number!]
+]
+
+vline': command [
+	"Draws a vertical line from the current point.(uses relative coordinates)"
+	end-y [number!]
+]