lad: case-insensitivity

pkgs/lad/case-insensitivity.patch

@@ -0,0 +1,26 @@
+diff --git a/5.1/assembler.lua b/5.1/assembler.lua
+index fb89b18df2..e5f0b2753b 100644
+--- a/5.1/assembler.lua
++++ b/5.1/assembler.lua
+@@ -100,7 +100,7 @@
+   label <- <name> ":"
+   string <- '"' ('\\' / '\"' / !'"' .)* '"'
+   instruction <- ( <s> ( {<label>} / <number>)? <s> <ln>? <s> {<op>} ( <s> {<param>} )+ <s> ( %nl )+ ) -> {}
+-  op <- [A-Z]+
++  op <- [A-Za-z]+
+   param <- <register> / <number> / <name> / <string>
+   register <- ( "R[" <number> "]" )
+   s <- ( !%nl %s )*
+@@ -310,10 +310,10 @@
+   local b = 3
+   local c = 4
+   if check_label(table[1]) == nil then
+-    op = table[1]
++    op = string.upper (table[1])
+   else
+     set_label(table[1], parsed, n)
+-    op = table[2]
++    op = string.upper (table[2])
+     a = 3
+     b = 4
+     c = 5

pkgs/lad/default.nix

@@ -4,6 +4,9 @@
 , makeWrapper
 , fetchFromGitHub
 , lib
+, wantLad5_1 ? true
+, wantLad5_2 ? true
+, wantCaseInsensitivity ? false
 }:
 
 let
@@ -27,17 +30,22 @@ in stdenv.mkDerivation {
   };
   LUA51 = lib.getExe our-lua51;
   LUA52 = lib.getExe our-lua52;
+  patches = lib.optional wantCaseInsensitivity ./case-insensitivity.patch;
   installPhase = ''
     mkdir -p $out/bin $out/opt/{5.1,5.2}
     cp 5.1/*.lua $out/opt/5.1/
     cp 5.2/*.lua $out/opt/5.2/
+    ${lib.optionalString wantLad5_1 ''
     makeWrapper $LUA51 $out/bin/luaa-5.1 \
       --add-flags $out/opt/5.1/assembler.lua
     makeWrapper $LUA51 $out/bin/luad-5.1 \
       --add-flags $out/opt/5.1/disassembler.lua
+    ''}
+    ${lib.optionalString wantLad5_2 ''
     makeWrapper $LUA52 $out/bin/luaa-5.2 \
       --add-flags $out/opt/5.2/luaa.lua
     makeWrapper $LUA52 $out/bin/luad-5.2 \
       --add-flags $out/opt/5.2/luad.lua
+    ''}
   '';
 }