all tasks

Task/URL-encoding/REXX/url-encoding-1.rexx

@@ -0,0 +1,72 @@
+/* Rexx */
+do
+  call testcase
+  say
+  say RFC3986
+  call testcase RFC3986
+  say
+  say HTML5
+  call testcase HTML5
+  say
+  return
+end
+exit
+
+/* -------------------------------------------------------------------------- */
+encode:
+procedure
+do
+  parse arg url, varn .
+  parse upper var varn variation
+  drop RFC3986 HTML5
+  opts. = ''
+  opts.RFC3986 = '-._~'
+  opts.HTML5   = '-._*'
+
+  rp = ''
+  do while length(url) > 0
+    parse var url tc +1 url
+    select
+      when datatype(tc, 'A') then do
+        rp = rp || tc
+        end
+      when tc == ' ' then do
+        if variation = HTML5 then
+          rp = rp || '+'
+        else
+          rp = rp || '%' || c2x(tc)
+        end
+      otherwise do
+        if pos(tc, opts.variation) > 0 then do
+          rp = rp || tc
+          end
+        else do
+          rp = rp || '%' || c2x(tc)
+          end
+        end
+      end
+    end
+
+  return rp
+end
+exit
+
+/* -------------------------------------------------------------------------- */
+testcase:
+procedure
+do
+  parse arg variation
+  X = 0
+  url. = ''
+  X = X + 1; url.0 = X; url.X = 'http://foo bar/'
+  X = X + 1; url.0 = X; url.X = 'mailto:"Ivan Aim" <ivan.aim@email.com>'
+  X = X + 1; url.0 = X; url.X = 'mailto:"Irma User" <irma.user@mail.com>'
+  X = X + 1; url.0 = X; url.X = 'http://foo.bar.com/~user-name/_subdir/*~.html'
+
+  do i_ = 1 to url.0
+    say url.i_
+    say encode(url.i_, variation)
+    end i_
+
+  return
+end