update case convert functions

JoshDavid · JoshDavid · commit 3765913eee44 · 2025-04-03T21:09:13.000-04:00
diff --git a/APLSource/DB/ExtractHeaders.aplf b/APLSource/DB/ExtractHeaders.aplf
@@ -1,9 +1,9 @@
  ExtractHeaders←{
-     ucase←{1(819⌶)⍵}
-     s←(u←ucase ⍵)~⎕UCS 10 13 32
+     U←1∘⎕C
+     s←U ⍵~⎕UCS 10 13 32
      selEnd←'SELECT'{⊃(≢⍺)+⍸⍺⍷⍵}s
      fromStart←'FROM'{⊃⍸⍺⍷⍵}s
      txtBetween←(selEnd-1)↓(fromStart-1)↑s
-     (,'*')≡txtBetween:ucase GetAllColNames ⍵
+     (,'*')≡txtBetween:U GetAllColNames ⍵
      ','##.Utils.Split txtBetween
  }
diff --git a/APLSource/Utils/Lowercase.aplf b/APLSource/Utils/Lowercase.aplf
@@ -1,3 +1,3 @@
  Lowercase←{
-     (819⌶)⍵
+     ⎕C ⍵
  }
