[svn] New function schemes_are_similar_p to test enumerated scheme codes for

[wget] / src / url.c

diff --git a/src/url.c b/src/url.c
index 6bcaa39a7b9f402b94c976515d72dabb5fb34e23..f68ee6104d43d036d93e9bd80d2419e8f4eb4b90 100644 (file)
--- a/src/url.c
+++ b/src/url.c
@@ -2472,6 +2472,24 @@ downloaded_files_free (void)
       downloaded_files_hash = NULL;
     }
 }
+
+/* Return non-zero if scheme a is similar to scheme b.
+ 
+   Schemes are similar if they are equal.  If SSL is supported, schemes
+   are also similar if one is http (SCHEME_HTTP) and the other is https
+   (SCHEME_HTTPS).  */
+int
+schemes_are_similar_p (enum url_scheme a, enum url_scheme b)
+{
+  if (a == b)
+    return 1;
+#ifdef HAVE_SSL
+  if ((a == SCHEME_HTTP && b == SCHEME_HTTPS)
+      || (a == SCHEME_HTTPS && b == SCHEME_HTTP))
+    return 1;
+#endif
+  return 0;
+}
 \f
 #if 0
 /* Debugging and testing support for path_simplify. */