[Gd-chatter] r11067 - in trunk/libraries/network: koala/sources/koala web-framework

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Wed Dec 13 21:46:59 2006
New Revision: 11067

Modified:
   trunk/libraries/network/koala/sources/koala/urls.dylan
   trunk/libraries/network/web-framework/changes.dylan
   trunk/libraries/network/web-framework/library.dylan
Log:
Job: minor
 * fixed missing encode-url
 * fixed some missing exports and a typo in web-framework


Modified: trunk/libraries/network/koala/sources/koala/urls.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/urls.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/urls.dylan	Wed Dec 13 21:46:59 2006
@@ -66,6 +66,26 @@
   end iterate;
 end decode-url;
 
+define function encode-url (url :: <byte-string>, #key reserved?)
+ => (encoded-url :: <byte-string>);
+  let reserved-chars = "$-_.+!*'(),";
+  let encoded-url = "";
+  for (char in url)
+    if (((char >= 'a' & char <= 'z') |  
+         (char >= 'A' & char <= 'Z') |
+         (char >= '0' & char <= '9')) | 
+        (member?(char, reserved-chars) &
+         ~reserved?))
+      encoded-url := add!(encoded-url, char);
+    else
+      encoded-url := 
+        concatenate(encoded-url, "%", 
+          format-to-string("%X", as(<byte>, char)));
+    end if;
+  end for;
+  encoded-url;
+end;
+
 define function parse-request-url (str, bpos, epos)
   => (url :: <url>) // <http-url>, but that's bogus.
   parse-url(str, bpos, epos)

Modified: trunk/libraries/network/web-framework/changes.dylan
==============================================================================
--- trunk/libraries/network/web-framework/changes.dylan	(original)
+++ trunk/libraries/network/web-framework/changes.dylan	Wed Dec 13 21:46:59 2006
@@ -30,7 +30,7 @@
   /* repeated slot extensionElement */
   slot entries :: <string-table> = make(<string-table>),
     init-keyword: entries:;
-  slot language :: <list> = #(),
+  slot languages :: <list> = #(),
     init-keyword: languages:;
   slot description :: <text>,
     init-keyword: description:;

Modified: trunk/libraries/network/web-framework/library.dylan
==============================================================================
--- trunk/libraries/network/web-framework/library.dylan	(original)
+++ trunk/libraries/network/web-framework/library.dylan	Wed Dec 13 21:46:59 2006
@@ -152,7 +152,7 @@
   use users;
   use change, export: all;
   //exports
-  export generate-rss;
+  export generate-rss, generate-atom;
   
   //feed
   export <feed>,
@@ -169,7 +169,7 @@
     title, title-setter,
     updated, updated-setter,
     entries, entries-setter,
-    language, language-setter,
+    languages, languages-setter,
     description, description-setter,
     published, published-setter;
   
@@ -211,6 +211,8 @@
     website, website-setter,
     content, content-setter,
     published, published-setter;
+
+  export <uri>, <link>;
 end;