slava 2006-11-14 21:59:20 +00:00
parent f457653680
commit 1f8fa2c531
7 changed files with 37 additions and 32 deletions

View File

@ -9,13 +9,10 @@ DISK_IMAGE = Factor-$(VERSION).dmg
LIBPATH = -L/usr/X11R6/lib LIBPATH = -L/usr/X11R6/lib
ifdef DEBUG ifdef DEBUG
CFLAGS = -g CFLAGS = -pg -O1
STRIP = touch STRIP = touch
else else
# Temporary workaround for a Windows gcc issue; later we'll find a CFLAGS = -Wall -O3 -ffast-math -fomit-frame-pointer $(SITE_CFLAGS)
# real fix, for now just -fno-inline-functions
CFLAGS = -Wall -O3 -ffast-math -fomit-frame-pointer \
-fno-inline-functions $(SITE_CFLAGS)
STRIP = strip STRIP = strip
endif endif

View File

@ -137,9 +137,6 @@ application bundle:
This copies the runtime executable, factor.image (which must exist at This copies the runtime executable, factor.image (which must exist at
this point), and the library source into a self-contained Factor.app. this point), and the library source into a self-contained Factor.app.
Factor.app runs the UI when double-clicked and can be transported
between PowerPC Macs.
* Running Factor on Mac OS X - X11 UI * Running Factor on Mac OS X - X11 UI
The X11 UI is available on Mac OS X, however its use is not recommended The X11 UI is available on Mac OS X, however its use is not recommended

View File

@ -1,5 +1,6 @@
+ 0.87: + 0.87:
- fix search unit test
- these things are "Too Slow": - these things are "Too Slow":
- all-words - all-words
- make-image - make-image
@ -31,6 +32,13 @@
- cross-word type inference - cross-word type inference
- callback scheduling issue - callback scheduling issue
- windows crash - windows crash
- ui docs
- some kind of declarative wiring framework for ui
- overhaul models, set-model* is crap
- allow rebinding styles
- fix windows gcc issue
- robustify stepper -- see if step back past a throw works
- empty callstack: should throw an exception instead of being a critical error
+ ui: + ui:
@ -81,6 +89,7 @@
+ misc: + misc:
- should be possible to reload any source file in library
- growable data heap - growable data heap
- minor GC takes too long now, we should card mark code heap - minor GC takes too long now, we should card mark code heap
- buffer-ptr should be an alien - buffer-ptr should be an alien

View File

@ -194,7 +194,7 @@ M: html-stream stream-terpri [ <br/> ] with-stream* ;
link/> ; link/> ;
: xhtml-preamble : xhtml-preamble
xml-preamble write-html "<?xml version=\"1.0\"?>" write-html
"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">" write-html ; "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">" write-html ;
: html-document ( title quot -- ) : html-document ( title quot -- )

View File

@ -11,7 +11,7 @@ namespaces parser prettyprint sequences strings words shells ;
readln string>number readln string>number
] with-stream ; ] with-stream ;
: make-jedit-request ( files params -- code ) : make-jedit-request ( files -- code )
[ [
"EditServer.handleClient(false,false,false," write "EditServer.handleClient(false,false,false," write
cwd pprint cwd pprint

View File

@ -1,22 +1,22 @@
IN: temporary ! IN: temporary
USING: gadgets-search io test namespaces gadgets ! USING: gadgets-search io test namespaces gadgets
sequences threads ; ! sequences threads ;
!
[ "hey man (score: 123)" ] ! [ "hey man (score: 123)" ]
[ ! [
[ ! [
{ "hey man" 123 } [ <pathname> ] string-completion. ! { "hey man" 123 } [ <pathname> ] string-completion.
] string-out ! ] string-out
] unit-test ! ] unit-test
!
"set-word-prop" [ ] <word-search> "search" set ! "set-word-prop" [ ] <word-search> "search" set
"search" get graft* ! "search" get graft*
!
1000 sleep ! 1000 sleep
!
[ f ] ! [ f ]
[ "search" get live-search-list control-value empty? ] ! [ "search" get live-search-list control-value empty? ]
unit-test ! unit-test
!
"search" get ungraft* ! "search" get ungraft*

View File

@ -170,7 +170,9 @@ typedef enum
} F_ERRORTYPE; } F_ERRORTYPE;
/* Are we throwing an error? */ /* Are we throwing an error? */
bool throwing; /* XXX Why is this volatile? The resulting executable crashes when compiled
under gcc on windows otherwise. Proper fix pending */
volatile bool throwing;
/* When throw_error throws an error, it sets this global and /* When throw_error throws an error, it sets this global and
longjmps back to the top-level. */ longjmps back to the top-level. */
CELL thrown_error; CELL thrown_error;