Modul:URLutil: Unterschied zwischen den Versionen

Modul:URLutil (Quelltext anzeigen)

Version vom 1. März 2016, 19:18 Uhr

4.089 Bytes hinzugefügt , vor 8 Jahren

2016-03-01 getNormalized

Anonymer Benutzer

w>PerfektesChaos

@@ Zeile 1: / Zeile 1: @@
 local URLutil = { suite  = "URLutil",
-                   serial = "2016-01-01" };
+                   serial = "2016-03-01" };
 --[=[
 Utilities for URL etc. on www.
@@ Zeile 7: / Zeile 7: @@
 * getHost()
 * getLocation()
+* getNormalized()
 * getPath()
 * getPort()
@@ Zeile 52: / Zeile 53: @@
      return false
 end -- getURIScheme()
+local decodeComponent = function ( ask, averse )
+    local j, k, m, n
+    local i = 1
+    while ( i ) do
+        i = ask:find( "%%[2-7]%x", i )
+        if i then
+            s = false
+            j = i + 1
+            k = j + 1
+            n = ask:byte( k, k )
+            k = k + 1
+            m = ( n > 96 )
+            if m then
+                n = n - 32
+                m = n
+            end
+            if n > 57 then
+                n = n - 55
+            else
+                n = n - 48
+            end
+            n = ( ask:byte( j, j ) - 48 )  *  16   +   n
+            if n == 20  or  n == 127  or
+               averse:find( string.char( n ), 1, true ) then
+                if m then
+                    ask = string.format( "%s%c%s",
+                                         ask:sub( 1, j ),
+                                         m,
+                                         ask:sub( k ) )
+                end
+            elseif i == 1 then
+                ask = string.format( "%c%s",  n,  ask:sub( k ) )
+            else
+                ask = string.format( "%s%c%s",
+                                     ask:sub( 1,  i - 1 ),
+                                     n,
+                                     ask:sub( k ) )
+            end
+            i = j
+        end
+    end -- while i
+    return ask
+end -- decodeComponent()
@@ Zeile 71: / Zeile 117: @@
      return r
 end -- getTopDomain()
+local getHash = function ( url )
+    local r = url:find( "#", 1, true )
+    if r then
+        local i = url:find( "&#", 1, true )
+        if i then
+            local s
+            while ( i ) do
+                s = url:sub( i + 2 )
+                if s:match( "^%d+;" ) or s:match( "^x%x+;" ) then
+                    r = url:find( "#",  i + 4,  true )
+                    if r then
+                        i = url:find( "&#",  i + 4,  true )
+                    else
+                        i = false
+                    end
+                else
+                    r = i + 1
+                    i = false
+                end
+            end -- while i
+        end
+    end
+    return r
+end -- getHash()
@@ Zeile 108: / Zeile 181: @@
      local r
      if type( url ) == "string" then
-         local s = mw.text.decode( url )
+         local i = getHash( url )
-        local i = s:find( "#", 1, true )
          if i then
-             r = mw.text.trim( s:sub( i ) ):sub( 2 )
+             r = mw.text.trim( url:sub( i ) ):sub( 2 )
              if type( decode ) == "string" then
                  local encoding = mw.text.trim( decode )
@@ Zeile 155: / Zeile 227: @@
          else
              local i
-             r = mw.text.decode( r )
+             i = getHash( r )
-            i = r:find( "#", 1, true )
              if i then
                  if i == 1 then
@@ Zeile 170: / Zeile 241: @@
      return r
 end -- URLutil.getLocation()
+URLutil.getNormalized = function ( url )
+    local r
+    if type( url ) == "string" then
+        r = mw.text.trim( url )
+        if r == "" then
+            r = false
+        end
+    else
+        r = false
+    end
+    if r then
+        local k = r:find( "//", 1, true )
+        if k then
+            local j = r:find( "/",  k + 2,  true )
+            local sF, sP, sQ
+            if r:find( "%%[2-7]%x" ) then
+                local i = getHash( r )
+                if i then
+                    sF = r:sub( i + 1 )
+                    r  = r:sub( 1,  i - 1 )
+                    if sF == "" then
+                        sF = false
+                    else
+                        sF = decodeComponent( sF, "\"#%<>[\]^`{|}" )
+                    end
+                end
+                i = r:find( "?", 1, true )
+                if i then
+                    sQ = r:sub( i )
+                    r  = r:sub( 1,  i - 1 )
+                    sQ = decodeComponent( sQ, "\"#%<>[\]^`{|}&=+;" )
+                end
+                if j then
+                    if #r > j then
+                        sP = decodeComponent( r:sub( j + 1 ),
+                                              "\"#%<>[\]^`{|}/?" )
+                    end
+                    r  = r:sub( 1,  j - 1 )
+                end
+            elseif j then
+                local n = #r
+                if r:byte( n, n ) == 35 then    -- '#'
+                    n = n - 1
+                    r = r:sub( 1, n )
+                end
+                if n > j then
+                    sP = r:sub( j + 1 )
+                end
+                r = r:sub( 1,  j - 1 )
+            end
+            r = mw.ustring.lower( r ) .. "/"
+            if sP then
+                r = r .. sP
+            end
+            if sQ then
+                r = r .. sQ
+            end
+            if sF then
+                r = string.format( "%s#%s", r, sF )
+            end
+        end
+    end
+    return r
+end -- URLutil.getNormalized()
@@ Zeile 693: / Zeile 831: @@
 function p.getLocation( frame )
      return URLutil.getLocation( frame.args[ 1 ] ) or ""
+end
+function p.getNormalized( frame )
+    return URLutil.getNormalized( frame.args[ 1 ] ) or ""
 end
 function p.getPath( frame )
@@ Zeile 790: / Zeile 931: @@
 function p.wikiEscapeURL( frame )
      return URLutil.wikiEscapeURL( frame.args[ 1 ] )
+end
+function p.failsafe()
+    return URLutil.serial
 end
 function p.URLutil()