From: 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 =