work due to typecheck errors.
12 files changed:
USE: html
USE: cont-responder
USE: cont-utils
-USE: stack
+USE: kernel
USE: stdio
-USE: combinators
USE: namespaces
USE: words
USE: lists
IN: cont-examples
USE: cont-responder
USE: html
-USE: stack
+USE: kernel
USE: stdio
USE: html
USE: lists
USE: html
USE: cont-responder
USE: cont-utils
-USE: stack
USE: stdio
USE: namespaces
USE: httpd-responder
USE: math
USE: random
-USE: continuations
USE: namespaces
-USE: stack
-USE: combinators
USE: streams
USE: lists
USE: strings
USE: html
USE: kernel
-USE: logic
USE: html
USE: logging
USE: url-encoding
! etc.
IN: cont-responder
USE: namespaces
-USE: stack
+USE: kernel
USE: combinators
USE: stdio
USE: cont-responder
USE: lists
USE: stdio
-USE: stack
+USE: kernel
USE: namespaces
USE: html
-USE: combinators
: simple-page ( title quot -- )
#! Call the quotation, with all output going to the
USE: html
USE: cont-responder
USE: cont-utils
-USE: stack
+USE: kernel
USE: stdio
USE: namespaces
USE: streams
USE: errors
USE: strings
USE: logic
-USE: combinators
USE: live-updater
USE: prettyprint
USE: unparser
USE: html
USE: words
USE: stdio
-USE: stack
USE: kernel
USE: cont-utils
USE: cont-responder
! cont-responder code for display forms and anchors that use XMLHttpRequest
! and the 'liveUpdater.js' code.
IN: live-updater
-USE: stack
+USE: kernel
USE: streams
USE: strings
USE: html
USE: stdio
USE: namespaces
USE: lists
-USE: combinators
: get-live-updater-js* ( stream -- string )
#! Read all lines from the stream, creating a string of the result.
!
! Start an httpd server and some words to re-load the continuation
! server files.
+USE: kernel
USE: httpd-responder
USE: httpd
USE: threads
-USE: stack
USE: prettyprint
-USE: combinators
USE: errors
USE: stdio
USE: cont-utils
USE: html
USE: stdio
-USE: stack
USE: strings
USE: namespaces
USE: inspector
USE: lists
-USE: combinators
USE: cont-examples
USE: regexp
USE: prettyprint
USE: todo
USE: math
-USE: logic
USE: kernel
: todo-stylesheet ( -- string )
: valid-username-char ( ch -- b )
#! Return true if the character is valid to appear in a username.
- [
- [ letter? ] [ drop t ]
- [ LETTER? ] [ drop t ]
- [ digit? ] [ drop t ]
- [ ] [ drop f ]
- ] cond ;
+ dup letter? [
+ drop t
+ ] [
+ dup LETTER? [
+ drop t
+ ] [
+ digit? [
+ t
+ ] [
+ f
+ ] ifte
+ ] ifte
+ ] ifte ;
: replace-invalid-username-chars ( str -- str )
#! Return a string with invalid username characters mapped to underscores.
! complete.
IN: todo
USE: parser
-USE: stack
USE: strings
USE: streams
USE: namespaces
USE: prettyprint
USE: unparser
USE: url-encoding
-USE: combinators
USE: files
-USE: logic
USE: hashtables
: <todo> ( user password -- <todo> )