steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

One last tweak

db4
Slava Pestov 2009-05-22 17:48:05 -05:00
parent 760445c8e4
commit b58c1780c6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/webapps/mason/mason.factor
View File

@ -15,7 +15,7 @@ TUPLE: mason-app < dispatcher ;
: download-link ( builder label -- xml ) : download-link ( builder label -- xml )
[ [
[ URL" download" ] dip [ URL" http://builds.factorcode.org/download" ] dip
[ os>> "os" set-query-param ] [ os>> "os" set-query-param ]
[ cpu>> "cpu" set-query-param ] bi [ cpu>> "cpu" set-query-param ] bi
] dip link ; ] dip link ;
@ -137,16 +137,16 @@ CONSTANT: cpus
os>> { os>> {
{ "winnt" "Windows XP (also tested on Vista)" } { "winnt" "Windows XP (also tested on Vista)" }
{ "macosx" "Mac OS X 10.5 Leopard" } { "macosx" "Mac OS X 10.5 Leopard" }
{ "linux" "Linux 2.6.16 with GLIBC 2.4" } { "linux" "Ubuntu Linux 9.04 (other distributions may also work)" }
{ "freebsd" "FreeBSD 7.0" } { "freebsd" "FreeBSD 7.0" }
{ "netbsd" "NetBSD 4.0" } { "netbsd" "NetBSD 4.0" }
{ "openbsd" "OpenBSD 4.2" } { "openbsd" "OpenBSD 4.4" }
} at } at
] [ ] [
dup cpu>> "x86.32" = [ dup cpu>> "x86.32" = [
os>> { os>> {
{ [ dup { "winnt" "linux" } member? ] [ drop "Intel Pentium 4, Core Duo, or other x86 chip with SSE2 support. Note that 32-bit Athlon XP processors do not support SSE2." ] } { [ dup { "winnt" "linux" "freebsd" } member? ] [ drop "Intel Pentium 4, Core Duo, or other x86 chip with SSE2 support. Note that 32-bit Athlon XP processors do not support SSE2." ] }
{ [ dup { "freebsd" "netbsd" "openbsd" } member? ] [ drop "Intel Pentium Pro or better" ] } { [ dup { "netbsd" "openbsd" } member? ] [ drop "Intel Pentium Pro or better" ] }
{ [ t ] [ drop f ] } { [ t ] [ drop f ] }
} cond } cond
] [ drop f ] if ] [ drop f ] if