get todo list working with native factor.

rewrote storage routines to not use run-file. Removed regular
expressions and use paser-combinators instead.

contrib/cont-responder/load.factor

@@ -36,6 +36,8 @@ default-responders
 USE: parser
 
 : l1  
+  "../parser-combinators/lazy.factor" run-file
+  "../parser-combinators/parser-combinators.factor" run-file
   "cont-html.factor" run-file  
   "cont-responder.factor" run-file 
   "cont-utils.factor" run-file ;

contrib/cont-responder/todo-example.factor

@@ -45,6 +45,8 @@ USE: todo
 USE: arithmetic
 USE: logic
 USE: kernel
+USE: lazy
+USE: parser-combinators
  
 : todo-stylesheet ( -- string )
   #! Return the stylesheet for the todo list
@@ -189,15 +191,23 @@ USE: kernel
     "Register" login-form
   ] simple-page ;
 
-: re-matches ( a b -- b )
+: username-parser ( -- parser )
-  drop drop t ;
+  #! Return a parser which parses a valid todo username.
+  #! That is, it contains only lowercase, uppercase and digits.
+  [ letter? ] satisfy 
+  [ LETTER? ] satisfy <|> 
+  [ digit? ] satisfy <|> <!+> just ;
+
+: is-valid-username? ( password -- bool )
+  #! Return true if the username parses correctly
+  username-parser call ;
 
 : login-details-valid? ( name password -- )
   #! Ensure that a valid username and password were
   #! entered. In particular, ensure that only alphanumeric
   #! data was entered to prevent security problems by
   #! using .., etc in the name.
-  drop "[a-zA-Z0-9]*" re-matches ;
+  drop is-valid-username? ;
   
 : get-registration-details ( -- name password )
   #! Get the registration details from the user putting
@@ -309,9 +319,13 @@ USE: kernel
     ] form 
   ] bind ;
   
+: priority-parser ( -- parser )
+  #! Return a parser for parsing priorities
+  [ digit? ] satisfy just ;
+
 : todo-details-valid? ( priority description -- bool )
   #! Return true if a valid priority and description were entered.
-  str-length 0 > swap "[0-9]" re-matches and ;
+  str-length 0 > swap priority-parser call and ;
 
 : get-new-todo-item ( -- <todo-item> )
   #! Enter a new item to the current todo list.

contrib/cont-responder/todo.factor

@@ -34,6 +34,10 @@ USE: lists
 USE: arithmetic
 USE: stdio
 USE: kernel
+USE: prettyprint
+USE: unparser
+USE: url-encoding
+
 
 : <todo> ( user password -- <todo> )
   #! Create an empty todo list
@@ -65,30 +69,47 @@ USE: kernel
   #! Print the string with quotes around it
   "\"" write write "\"" print ;
 
+: write-item ( <todo-item> -- )
+  #! write the item in a manner that can be later re-read
+  [
+    "complete?" get [ "yes" url-encode print ] [ "no" url-encode print ] ifte
+    "priority" get url-encode print
+    "description" get url-encode print
+  ] bind ;
+
+: write-items ( list -- )
+  #! write the todo list items
+  dup length unparse print
+  [ write-item ] each ;
+
 : write-todo ( <todo> -- )
   #! Write the todo list to the current output stream
   #! in a format that if loaded by the parser will result
   #! in a <todo> again.
   [ 
-    "USE: namespaces" print
+    "user" get url-encode print
-    "USE: lists" print
+    "password" get url-encode print
-    "<namespace> [" print
+    "items" get write-items
-    "password" get print-quoted
-    "password" print-quoted "set" print
-    "user" get print-quoted
-    "user" print-quoted "set" print    
-    "items" get [ namespace>alist ] map "items" swons print
-    "cdr [ alist>namespace ] map" print 
-    "items" print-quoted "set" print
-    "] extend" print
   ] bind ;
 
 : store-todo ( <todo> filename -- )
   #! store the todo list in the given file.
   <filebw> [ write-todo ] with-stream ;
 
+: read-todo ( -- <todo> )
+  #! Read a todo list from the current input stream.
+  read url-decode read url-decode <todo> 
+  read str>number [
+    dup
+    <namespace> [
+      read url-decode "yes" = "complete?" set
+      read url-decode "priority" set
+      read url-decode "description" set
+    ] extend add-todo-item
+  ] times ;
+
 : load-todo ( filename -- <todo> )
-  run-file ;  
+  <filebr> [ read-todo ] with-stream ;  
 
 : password-matches? ( password <todo> -- <todo> )
   #! Returns the <todo> if the password matches otherwise
@@ -132,7 +153,7 @@ USE: kernel
   #! Return true if item1 is a higher priority than item2
   >r item-priority r> item-priority str-lexi> ;
   
-: todo-items ( <todo> -- )
+: todo-items ( <todo> -- alist )
   #! Return a list of items for the given todo list.
   [ "items" get ] bind [ priority-comparator ] sort ;