Data commit

Task/Abbreviations-simple/MiniScript/abbreviations-simple.mini

@@ -0,0 +1,42 @@
+c = "add 1  alter 3  backup 2  bottom 1  Cappend 2  change 1  Schange  Cinsert 2 Clast 3" +
+ " compress 4 copy 2 count 3 Coverlay 3 cursor 3  delete 3 Cdelete 2  down 1  duplicate" +
+ " 3 xEdit 1 expand 3 extract 3  find 1 Nfind 2 Nfindup 6 NfUP 3 Cfind 2 findUP 3 fUP 2" +
+ " forward 2  get  help 1 hexType 4  input 1 powerInput 3  join 1 split 2 spltJOIN load" +
+ " locate 1 Clocate 2 lowerCase 3 upperCase 3 Lprefix 2  macro  merge 2 modify 3 move 2" +
+ " msg  next 1 overlay 1 parse preserve 4 purge 3 put putD query 1 quit  read recover 3" +
+ " refresh renum 3 repeat 3 replace 1 Creplace 2 reset 3 restore 4 rgtLEFT right 2 left" +
+ " 2  save  set  shift 2  si  sort  sos  stack 3 status 4 top  transfer 3  type 1  up 1"
+
+minLen = {}
+lastItem = ""
+for item in c.split
+    if item == "" then continue
+    item = item.upper
+    if lastItem and item[0] >= "0" and item[0] <= "9" then
+        minLen[lastItem] = val(item)
+        lastItem = ""
+    else
+        minLen[item] = null
+        lastItem = item
+    end if
+end for
+
+check = function(word)
+    word = word.upper
+    for key in minLen.indexes
+        if key[:word.len] != word then continue
+        min = minLen[key]
+        if min and word.len < min then continue
+        return key
+    end for
+    return "*error*"
+end function
+
+input = "riG   rePEAT copies  put mo   rest    types   fup.    6       poweRin"
+
+output = []
+for word in input.split
+    if word == "" then continue
+    output.push check(word)
+end for
+print output.join