[Gd-chatter] r11713 - trunk/libraries/uri

[cgay at gwydiondylan.org]

Author: cgay
Date: Tue Feb 26 14:58:33 2008
New Revision: 11713

Modified:
   trunk/libraries/uri/library.dylan
   trunk/libraries/uri/uri.dylan
Log:
job: minor
Added as(<string>, <uri>) and fixed some warnings.

Modified: trunk/libraries/uri/library.dylan
==============================================================================
--- trunk/libraries/uri/library.dylan	(original)
+++ trunk/libraries/uri/library.dylan	Tue Feb 26 14:58:33 2008
@@ -9,8 +9,7 @@
 end library;
 
 define module uri
-  use common-dylan;
-  use common-extensions,
+  use common-dylan,
     exclude: { format-to-string };
   use vector-search;
   use subseq;
@@ -33,6 +32,5 @@
   export remove-dot-segments,
     split-path, split-query;
   export absolute?, relative?;
-  export print-message;
   export percent-decode;
 end module;

Modified: trunk/libraries/uri/uri.dylan
==============================================================================
--- trunk/libraries/uri/uri.dylan	(original)
+++ trunk/libraries/uri/uri.dylan	Tue Feb 26 14:58:33 2008
@@ -141,13 +141,10 @@
   table;
 end method split-query;
 
-define function relative? (uri :: <uri>) => (is-relative? :: <boolean>);
-  empty?(uri.uri-scheme);
-end;
-
-define function absolute? (uri :: <uri>) => (is-absolute? :: <boolean>);
-  ~relative?(uri);
-end;
+define method as
+    (class == <string>, uri :: <uri>) => (result :: <string>)
+  build-uri(uri)
+end method as;
 
 // build-uri 
 
@@ -393,4 +390,7 @@
 
 //format-out("%s\n", build-uri(transform-uris(parse-uri("http://foo.bar/test"), make(<uri>, path: "../foo/../../bar"))));
 //format-out("%s\n", build-uri(transform-uris(parse-uri("http://foo.bar/test"), make(<uri>, path: "/foo/bar"))));
+
+format-out("as: %s\n", as(<string>, parse-uri("http://foo?a=1&b=2#anchor")));
 */
+