Source code in the autohotkey programming language

table := "
(
   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
)"

MsgBox % result := Abbreviations("riG   rePEAT copies  put mo   rest    types   fup.    6       poweRin", table)
return

Abbreviations(str, table){
    Words := [], Expanded := []
    while pos := RegExMatch(table, "i)([a-z]+)(?:\s+(\d+))?", m, A_Index=1?1:pos+StrLen(m))
        Words[m1] := m2?m2:StrLen(m1)
    for i, abb in StrSplit(RegExReplace(str, " +", " "), " ")
    {
        for word, count in Words
            if (word ~= "i)^" abb) && (StrLen(abb) >= count)
            {
                StringUpper, word, word
                result .= word " "
                Expanded[abb] := true
                break
            }
        if !Expanded[abb]
            result .= "*error* "
    }
    return Trim(result, " ")
}