Merge branch 'master' of git://factorcode.org/git/factor
commit
72dcf7fe61
|
@ -1,6 +1,6 @@
|
|||
USING: math tools.test system ;
|
||||
USING: math tools.test system prettyprint ;
|
||||
IN: temporary
|
||||
|
||||
[ t ] [ cell integer? ] unit-test
|
||||
[ t ] [ bootstrap-cell integer? ] unit-test
|
||||
[ ] [ os-env . ] unit-test
|
||||
[ ] [ os-envs . ] unit-test
|
||||
|
|
|
@ -19,8 +19,7 @@ SYMBOL: responders
|
|||
<html> <body> <h1> write </h1> </body> </html> ;
|
||||
|
||||
: error-head ( error -- )
|
||||
dup log-error
|
||||
dup response
|
||||
dup log-error response
|
||||
H{ { "Content-Type" "text/html" } } print-header nl ;
|
||||
|
||||
: httpd-error ( error -- )
|
||||
|
|
|
@ -7,8 +7,7 @@ sequences ;
|
|||
QUALIFIED: unix
|
||||
IN: io.sniffer.bsd
|
||||
|
||||
M: unix-io (handle-destructor) ( obj -- )
|
||||
destructor-obj close drop ;
|
||||
M: unix-io destruct-handle ( obj -- ) close drop ;
|
||||
|
||||
C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ;
|
||||
C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;
|
||||
|
|
|
@ -11,7 +11,7 @@ LAZY: 'any-char' ( -- parser )
|
|||
[ digit? ] satisfy [ digit> ] <@ ;
|
||||
|
||||
: 'integer' ( -- parser )
|
||||
'digit' <!+> [ 0 [ swap 10 * + ] reduce ] <@ ;
|
||||
'digit' <!+> [ 10 swap digits>integer ] <@ ;
|
||||
|
||||
: 'string' ( -- parser )
|
||||
[ CHAR: " = ] satisfy
|
||||
|
|
|
@ -100,6 +100,7 @@ SYMBOL: cached-postings
|
|||
\ planet-factor { } define-action
|
||||
|
||||
{
|
||||
{ "Berlin Brown" "http://factorlang-fornovices.blogspot.com/feeds/posts/default" "http://factorlang-fornovices.blogspot.com" }
|
||||
{ "Chris Double" "http://www.bluishcoder.co.nz/atom.xml" "http://www.bluishcoder.co.nz/" }
|
||||
{ "Elie Chaftari" "http://fun-factor.blogspot.com/feeds/posts/default" "http://fun-factor.blogspot.com/" }
|
||||
{ "Doug Coleman" "http://code-factor.blogspot.com/feeds/posts/default" "http://code-factor.blogspot.com/" }
|
||||
|
|
Loading…
Reference in New Issue