tasks a-s

Task/Run-length-encoding/Vedit-macro-language/run-length-encoding.vedit

@@ -0,0 +1,31 @@
+:RL_ENCODE:
+BOF
+While (!At_EOF) {
+    if (At_EOL) { Line(1) Continue }    // skip newlines
+    #1 = Cur_Char                       // #1 = character
+    Match("(.)\1*", REGEXP)             // count run length
+    #2 = Chars_Matched                  // #2 = run length
+    if (#2 > 127) { #2 = 127 }          // can be max 127
+    if (#2 > 1 || #1 > 127) {
+        Del_Char(#2)
+        Ins_Char(#2 | 128)              // run length (high bit set)
+        Ins_Char(#1)                    // character
+    } else {                            // single ASCII char
+        Char                            // skip
+    }
+}
+Return
+
+:RL_DECODE:
+BOF
+While (!At_EOF) {
+    #2 = Cur_Char
+    if (#2 > 127) {                     // is this run length?
+        #1 = Cur_Char(1)                // #1 = character value
+        Del_Char(2)
+        Ins_Char(#1, COUNT, #2 & 127)
+    } else {                            // single ASCII char
+        Char
+    }
+}
+Return