From: Lady <redacted>
Date: Fri, 19 Jan 2024 04:22:32 +0000 (-0500)
Subject: Allow underscores in u·r·l’s
X-Git-Tag: 0.4.1~4
X-Git-Url: https://git.ladys.computer/Shushe/commitdiff_plain/f5ac8c9751642c78bc8338ca65d3a61a200a7a11?ds=sidebyside

Allow underscores in u·r·l’s

Somehow I missed allowing these the first time.
---

diff --git a/GNUmakefile b/GNUmakefile
index ee342ec..53db7f2 100644
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -218,9 +218,11 @@ override perdec = $(foreach encoded,$1,$(shell $(PRINTF) '%s\n' $(call quote,$(e
 # The encoding assumes the input is a “u·r·i component”; e·g that the
 # resulting string should only contain `pchar´ (but can contain any
 # `sub-delim´).
-override perenc = $(foreach unencoded,$1,$(call perdec,$(shell $(PRINTF) '%s' $(call quote,$(unencoded)) | $(OD) -t x1 | $(SED) 's/^[0-9]*//;s/2[146-9A-Ea-e]/%&/g;s/3[0-9AaBbDd]/%&/g;s/40/%&/g;s/[46][1-9A-Fa-f]/%&/g;s/[57][0-9Aa]/%&/g;s/7[Ee]/%&/g;s/[ ][0-9A-Fa-f]\{2\}/%25&/g' | $(TR) -d ' \n' | $(TR) 'abcdef' 'ABCDEF')))
+override perenc = $(foreach unencoded,$1,$(call perdec,$(shell $(PRINTF) '%s' $(call quote,$(unencoded)) | $(OD) -t x1 | $(SED) 's/^[0-9]*//;s/2[146-9A-Ea-e]/%&/g;s/3[0-9AaBbDd]/%&/g;s/40/%&/g;s/[46][1-9A-Fa-f]/%&/g;s/[57][0-9Aa]/%&/g;s/5[Ff]/%&/g;s/7[Ee]/%&/g;s/[ ][0-9A-Fa-f]\{2\}/%25&/g' | $(TR) -d ' \n' | $(TR) 'abcdef' 'ABCDEF')))
 
 # (callable) Percent‐encode each component in the given paths.
+#
+# ☡ This will remove leading and trailing slashes.
 override pathenc = $(foreach path,$1,$(subst $(space),/,$(call perenc,$(subst /, ,$(path)))))
 
 # (overridable) Collect all of the applicable includes from the