From: rich <rich>
Date: Sun, 13 Feb 2005 17:09:14 +0000 (+0000)
Subject: #set_no_fragment
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=b7dea9bbf5d430051b73ff38eecc26f4f407a586;p=perl4caml.git

#set_no_fragment
---

diff --git a/.depend b/.depend
index b41d9b5..92d9ad8 100644
--- a/.depend
+++ b/.depend
@@ -2,16 +2,16 @@ perl.cmo: perl.cmi
 perl.cmx: perl.cmi 
 examples/google.cmo: wrappers/pl_Net_Google.cmo 
 examples/google.cmx: wrappers/pl_Net_Google.cmx 
-examples/loadpage.cmo: wrappers/pl_HTML_Element.cmo \
-    wrappers/pl_HTML_TreeBuilder.cmo wrappers/pl_HTTP_Request.cmo \
-    wrappers/pl_LWP_UserAgent.cmo 
-examples/loadpage.cmx: wrappers/pl_HTML_Element.cmx \
-    wrappers/pl_HTML_TreeBuilder.cmx wrappers/pl_HTTP_Request.cmx \
-    wrappers/pl_LWP_UserAgent.cmx 
-examples/parsedate.cmo: wrappers/pl_Date_Format.cmo \
-    wrappers/pl_Date_Parse.cmo 
-examples/parsedate.cmx: wrappers/pl_Date_Format.cmx \
-    wrappers/pl_Date_Parse.cmx 
+examples/loadpage.cmo: wrappers/pl_LWP_UserAgent.cmo \
+    wrappers/pl_HTTP_Request.cmo wrappers/pl_HTML_TreeBuilder.cmo \
+    wrappers/pl_HTML_Element.cmo 
+examples/loadpage.cmx: wrappers/pl_LWP_UserAgent.cmx \
+    wrappers/pl_HTTP_Request.cmx wrappers/pl_HTML_TreeBuilder.cmx \
+    wrappers/pl_HTML_Element.cmx 
+examples/parsedate.cmo: wrappers/pl_Date_Parse.cmo \
+    wrappers/pl_Date_Format.cmo 
+examples/parsedate.cmx: wrappers/pl_Date_Parse.cmx \
+    wrappers/pl_Date_Format.cmx 
 examples/test.cmo: perl.cmi 
 examples/test.cmx: perl.cmx 
 wrappers/pl_Data_Dumper.cmo: perl.cmi 
@@ -24,53 +24,55 @@ wrappers/pl_Date_Parse.cmo: perl.cmi
 wrappers/pl_Date_Parse.cmx: perl.cmx 
 wrappers/pl_HTML_Element.cmo: perl.cmi 
 wrappers/pl_HTML_Element.cmx: perl.cmx 
-wrappers/pl_HTML_Form.cmo: perl.cmi wrappers/pl_HTTP_Response.cmo 
-wrappers/pl_HTML_Form.cmx: perl.cmx wrappers/pl_HTTP_Response.cmx 
+wrappers/pl_HTML_Form.cmo: wrappers/pl_HTTP_Response.cmo perl.cmi 
+wrappers/pl_HTML_Form.cmx: wrappers/pl_HTTP_Response.cmx perl.cmx 
 wrappers/pl_HTML_Parser.cmo: perl.cmi 
 wrappers/pl_HTML_Parser.cmx: perl.cmx 
-wrappers/pl_HTML_TreeBuilder.cmo: perl.cmi wrappers/pl_HTML_Element.cmo \
-    wrappers/pl_HTML_Parser.cmo 
-wrappers/pl_HTML_TreeBuilder.cmx: perl.cmx wrappers/pl_HTML_Element.cmx \
-    wrappers/pl_HTML_Parser.cmx 
+wrappers/pl_HTML_TreeBuilder.cmo: wrappers/pl_HTML_Parser.cmo \
+    wrappers/pl_HTML_Element.cmo perl.cmi 
+wrappers/pl_HTML_TreeBuilder.cmx: wrappers/pl_HTML_Parser.cmx \
+    wrappers/pl_HTML_Element.cmx perl.cmx 
 wrappers/pl_HTTP_Cookies.cmo: perl.cmi 
 wrappers/pl_HTTP_Cookies.cmx: perl.cmx 
 wrappers/pl_HTTP_Headers.cmo: perl.cmi 
 wrappers/pl_HTTP_Headers.cmx: perl.cmx 
-wrappers/pl_HTTP_Message.cmo: perl.cmi wrappers/pl_HTTP_Headers.cmo 
-wrappers/pl_HTTP_Message.cmx: perl.cmx wrappers/pl_HTTP_Headers.cmx 
-wrappers/pl_HTTP_Request.cmo: perl.cmi wrappers/pl_HTTP_Message.cmo \
-    wrappers/pl_URI.cmo 
-wrappers/pl_HTTP_Request.cmx: perl.cmx wrappers/pl_HTTP_Message.cmx \
-    wrappers/pl_URI.cmx 
-wrappers/pl_HTTP_Request_Common.cmo: perl.cmi wrappers/pl_HTTP_Request.cmo 
-wrappers/pl_HTTP_Request_Common.cmx: perl.cmx wrappers/pl_HTTP_Request.cmx 
-wrappers/pl_HTTP_Response.cmo: perl.cmi wrappers/pl_HTTP_Message.cmo \
-    wrappers/pl_HTTP_Request.cmo 
-wrappers/pl_HTTP_Response.cmx: perl.cmx wrappers/pl_HTTP_Message.cmx \
-    wrappers/pl_HTTP_Request.cmx 
-wrappers/pl_LWP_UserAgent.cmo: perl.cmi wrappers/pl_HTTP_Cookies.cmo \
-    wrappers/pl_HTTP_Request.cmo wrappers/pl_HTTP_Response.cmo 
-wrappers/pl_LWP_UserAgent.cmx: perl.cmx wrappers/pl_HTTP_Cookies.cmx \
-    wrappers/pl_HTTP_Request.cmx wrappers/pl_HTTP_Response.cmx 
-wrappers/pl_Net_Google.cmo: perl.cmi wrappers/pl_Net_Google_Cache.cmo \
-    wrappers/pl_Net_Google_Search.cmo wrappers/pl_Net_Google_Spelling.cmo 
-wrappers/pl_Net_Google.cmx: perl.cmx wrappers/pl_Net_Google_Cache.cmx \
-    wrappers/pl_Net_Google_Search.cmx wrappers/pl_Net_Google_Spelling.cmx 
+wrappers/pl_HTTP_Message.cmo: wrappers/pl_HTTP_Headers.cmo perl.cmi 
+wrappers/pl_HTTP_Message.cmx: wrappers/pl_HTTP_Headers.cmx perl.cmx 
+wrappers/pl_HTTP_Request.cmo: wrappers/pl_URI.cmo \
+    wrappers/pl_HTTP_Message.cmo perl.cmi 
+wrappers/pl_HTTP_Request.cmx: wrappers/pl_URI.cmx \
+    wrappers/pl_HTTP_Message.cmx perl.cmx 
+wrappers/pl_HTTP_Request_Common.cmo: wrappers/pl_HTTP_Request.cmo perl.cmi 
+wrappers/pl_HTTP_Request_Common.cmx: wrappers/pl_HTTP_Request.cmx perl.cmx 
+wrappers/pl_HTTP_Response.cmo: wrappers/pl_HTTP_Request.cmo \
+    wrappers/pl_HTTP_Message.cmo perl.cmi 
+wrappers/pl_HTTP_Response.cmx: wrappers/pl_HTTP_Request.cmx \
+    wrappers/pl_HTTP_Message.cmx perl.cmx 
+wrappers/pl_LWP_UserAgent.cmo: wrappers/pl_HTTP_Response.cmo \
+    wrappers/pl_HTTP_Request.cmo wrappers/pl_HTTP_Cookies.cmo perl.cmi 
+wrappers/pl_LWP_UserAgent.cmx: wrappers/pl_HTTP_Response.cmx \
+    wrappers/pl_HTTP_Request.cmx wrappers/pl_HTTP_Cookies.cmx perl.cmx 
+wrappers/pl_Net_Google.cmo: wrappers/pl_Net_Google_Spelling.cmo \
+    wrappers/pl_Net_Google_Search.cmo wrappers/pl_Net_Google_Cache.cmo \
+    perl.cmi 
+wrappers/pl_Net_Google.cmx: wrappers/pl_Net_Google_Spelling.cmx \
+    wrappers/pl_Net_Google_Search.cmx wrappers/pl_Net_Google_Cache.cmx \
+    perl.cmx 
 wrappers/pl_Net_Google_Cache.cmo: perl.cmi 
 wrappers/pl_Net_Google_Cache.cmx: perl.cmx 
 wrappers/pl_Net_Google_Response.cmo: perl.cmi 
 wrappers/pl_Net_Google_Response.cmx: perl.cmx 
-wrappers/pl_Net_Google_Search.cmo: perl.cmi \
-    wrappers/pl_Net_Google_Response.cmo 
-wrappers/pl_Net_Google_Search.cmx: perl.cmx \
-    wrappers/pl_Net_Google_Response.cmx 
+wrappers/pl_Net_Google_Search.cmo: wrappers/pl_Net_Google_Response.cmo \
+    perl.cmi 
+wrappers/pl_Net_Google_Search.cmx: wrappers/pl_Net_Google_Response.cmx \
+    perl.cmx 
 wrappers/pl_Net_Google_Spelling.cmo: perl.cmi 
 wrappers/pl_Net_Google_Spelling.cmx: perl.cmx 
 wrappers/pl_Template.cmo: perl.cmi 
 wrappers/pl_Template.cmx: perl.cmx 
 wrappers/pl_URI.cmo: perl.cmi 
 wrappers/pl_URI.cmx: perl.cmx 
-wrappers/pl_WWW_Mechanize.cmo: perl.cmi wrappers/pl_HTML_Form.cmo \
-    wrappers/pl_HTTP_Response.cmo wrappers/pl_LWP_UserAgent.cmo 
-wrappers/pl_WWW_Mechanize.cmx: perl.cmx wrappers/pl_HTML_Form.cmx \
-    wrappers/pl_HTTP_Response.cmx wrappers/pl_LWP_UserAgent.cmx 
+wrappers/pl_WWW_Mechanize.cmo: wrappers/pl_LWP_UserAgent.cmo \
+    wrappers/pl_HTTP_Response.cmo wrappers/pl_HTML_Form.cmo perl.cmi 
+wrappers/pl_WWW_Mechanize.cmx: wrappers/pl_LWP_UserAgent.cmx \
+    wrappers/pl_HTTP_Response.cmx wrappers/pl_HTML_Form.cmx perl.cmx 
diff --git a/wrappers/pl_URI.ml b/wrappers/pl_URI.ml
index a4a7732..f0a2363 100644
--- a/wrappers/pl_URI.ml
+++ b/wrappers/pl_URI.ml
@@ -2,7 +2,7 @@
   *
   * Copyright (C) 2003 Merjis Ltd.
   *
-  * $Id: pl_URI.ml,v 1.4 2005-02-13 16:33:28 rich Exp $
+  * $Id: pl_URI.ml,v 1.5 2005-02-13 17:09:14 rich Exp $
   *)
 
 open Perl
@@ -31,6 +31,8 @@ object (self)
     string_of_sv (call_method sv "fragment" [])
   method set_fragment fragment =
     call_method_void sv "fragment" [sv_of_string fragment]
+  method set_no_fragment () =
+    call_method_void sv "fragment" [sv_undef ()]
   method as_string =
     string_of_sv (call_method sv "as_string" [])
   method canonical =