t
] [ 2drop f ] if
] loop ;
-
+
: delete-if-exists ( file -- )
dup exists? [ delete-file ] [ drop ] if ;
[ . ] debug-print ;
: fcgi-handler ( -- )
- make-new-request parse-packets
+ make-new-request parse-packets
prepare-request
- "/path" main-responder get call-responder*
+ "/path" main-responder get call-responder*
[ content-type>> "\n\n" append ] [ body>> ] bi append write-response ;
: <fastcgi-server> ( addr -- server )
[ fcgi-handler ] >>handler ;
: test-output ( -- str )
- "<pre>"
+ "<pre>"
request tget header>> [ "%s => %s\n" sprintf ] { }
assoc>map concat append
"</pre>" append ;